Koşula Bağlı satır Ekleme

[steppe]

Merhaba Arkadaşlar,
Epeyce araştırdım fakat işin içinden çıkamadım.Örnek dosyada detaylı açıkladığım A sütununda yüzlerce veri var.İsim,tel,adres ve bir boş satır alt alta gelecek şeklinde sıralanıyor. Yalnız bazen tel olmuyor isim ve adres alt alta geliyor.İstediğim isim ve adres (numaratik olmayan iki satır) alt alta geldiğinde araya boş bir satır ekleyip boş satıra nasıl 0 (sıfır) yazdırabiliriz?
Yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz. B sütununa yeni listenizi yazar.

Sub kosula_gore_yaz()
dz = Range("Z:Z")
For a = 1 To Cells(Rows.Count, "A").End(3).Row
    If IsNumeric(Cells(a, "A")) = False And IsNumeric(Cells(a + 1, "A")) = False Then
        s = s + 1
        dz(s, 1) = Cells(a, "A")
        s = s + 1
        dz(s, 1) = 0
    Else
        s = s + 1
        dz(s, 1) = Cells(a, "A")
    End If
Next
Range("[COLOR="Red"]B:B[/COLOR]") = dz
End Sub

 

[steppe]

ÖmerBey,
Yardımlarınız için çok teşekkür ederim.