Satır ve sütun döngü

[Usyk]

Merhaba

Aşağıdaki makro ile b sütununda veri var ise
B1 hücresine S1 yazdırıyorum.

Aynı şekilde c, d, e, ... sütunları boyunca son dolu sütuna kadar For next ile S2, S3, S4, ... yazdırabilir miyim.

*** If WorksheetFunction.CountA(s1.Range("b2:b65536")) > 0 Then

*** s1.Range("b1") = "S1"

*** End If

 

[Necdet]

Merhaba,

Arada boş sütun olduğunda ne olacağını yazmamışsınız.

Aşağıdaki kodları deneyiniz, sadece dolu olan sütunlara numara verir.

Sub BirinciSatırDoldur()

    Dim s   As Integer, _
        Kol As Integer, _
        j   As Integer, _
        i   As Long
    
    Kol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column

    For j = 2 To Kol
        i = Cells(Rows.Count, j).End(3).Row
        If i > 1 Then
            s = s + 1
            Cells(1, j) = "S" & s
        End If
    Next j
    
End Sub

 

[Usyk]

Necdet bey arada boş sütun ihtimali var ama sonuç değişmiyor, veri var ise sıradan artıracak. Ben de birşeyler karalamıştım ama tam çözememiştim. Sizin yazdığınız kodu denedim gayet güzel olmuş. Teşekkür ederim.