Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Hüseyin Çoban - 26 Ocak 2011, 21:13:14

Başlık: Buton ile sıra no verme işlemi
Gönderen: Hüseyin Çoban - 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.]

Başlık: Ynt: Buton ile sıra no verme işlemi
Gönderen: Hüseyin Çoban - 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.