Dolu hücre kadar veri yazdırma

[steppe]

Merhaba Arkadaşlar,
A sütunundaki dolu hücre sayısı kadar B sütununa 1111 yazdırma.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki iki şekilde de yapabilirsiniz.

Sub test1()
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(Bak, "B") = 1111
    Next
End Sub

Sub test2()
    Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row) = 1111
End Sub

 

[NADİR YILDIZ]

=EĞER(A1>0;A1)

 

[steppe]

Muzaffer Ali Hocam,
Yardımlarınız için çok teşekkür ederim.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.