1' den Büyük Olan Hücrelerin Sayılması

[selcukerd]

Merhaba Arkadaşlar,

Dolu olan hücreye göre teker teker kimlik kartları yazıcıya göndermek istiyorum. Bunu ekteki excel dosyasında yaptım fakat tc kimlik numaraların olduğu hücrelere formül koymak zorundayım. Kafamda şöyle bir şey var ama nasıl yapabilirim? Hücreleri doluluğuna göre saymasın fakat tc kimlik numarası olduğu için hücre değeri 1' den büyükse saysın ve saydığını tek tek kimlik kartına yazıp çıktıyı versin

Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki şekilde dener misiniz?
.

Sub Düğme1_Tıklat()
    Set SA = Sheets("ANA SAYFA")
    For i = 2 To SA.Cells(Rows.Count, "A").End(3).Row
        [B][COLOR="Blue"]If SA.Cells(i, "A") = 0 Or SA.Cells(i, "A") = "" Then GoTo 10[/COLOR][/B]
        SA.Range("G4:H4") = SA.Cells(i, "A")
        SA.Range("G5:H6") = SA.Cells(i, "B")
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
[B][COLOR="Blue"]10:[/COLOR][/B]    Next i
End Sub

 

[Ömer BARAN]

Aslında B sütunu boşsa da yazdırmamak lazım.
Bunun için; üstteki kod'da yer alan If satırını aşağıdaki ile değiştirmek daha doğru olur bence.
.

[COLOR="Blue"][FONT="Arial Narrow"]        If SA.Cells(i, "A") = 0 Or SA.Cells(i, "A") = "" Or SA.Cells(i, "B") = "" Then GoTo 10[/FONT][/COLOR]

 

[selcukerd]

Teşekkür ederim Ustadım Gayet iyi olmuş. Ekstradan öneri dahi vermişsin Emeğine eline sağlık..

 

[Ömer BARAN]

Teşekkür ederim Ustadım Gayet iyi olmuş. Ekstradan öneri dahi vermişsin Emeğine eline sağlık..

Eyvallah, iyi günler dilerim.