Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: Buton ile sıra no verme işlemi  (Okunma sayısı 6840 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Buton ile sıra no verme işlemi
« : 26 Ocak 2011, 21:13:14 »
Merhaba Arkadaşlar,

Numara ver butonunu tıkladığımda, C4 hücresinden itibaren B sütununda tutar olan hücrelerin sağındaki hücreye sıra no vermeli.

Ancak daha önceden benim elile verdiğim sıra noları atlamalı.
İşlemi içerisinde boşluk olan satırlara kadar yapmalı.

Böyle bir işlem için makro kodlarına ihtiyacım var. Yardım ve fikirlerinizi bekliyorum.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
« Son Düzenleme: 27 Ocak 2011, 07:48:15 Gönderen: Hüseyin Çoban »

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Buton ile sıra no verme işlemi
« Yanıtla #1 : 27 Ocak 2011, 12:04:32 »
Aşağıdaki kodlar ile sorun çözülmüştür.
İyi çalışmalar.

Alıntı
Option Explicit
 
Sub SIRANO_VER()
    Dim X As Long, No As Long
   
    No = 1
   
    For X = 4 To Range("B65536").End(3).Row
        If Cells(X, "B") <> "" Then
            If Asc(Cells(X, "B")) = 32 Then Exit For
            If Cells(X, "C") = "" Then
                Cells(X, "C") = No
                No = No + 1
            End If
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Kodlar Sn Korhan Ayhan' a aittir.