Boş satır Ekleme

[steppe]

Merhaba Arkadaşlar,
Örnekte detaylı açıkladığım şekilde A sütununda alt alta isim şehir telefon var.Yalnız bazı adayların isim ve şehri var telefonu yok.Telefonu olmayan adayın şehir altına nasıl boş satır ekleyebilirim?
Yardımlarınız için şimdiden teşekkür ederim.

 

[systran]

VBA editör kullanarak projenize önce module ekleyiniz. sonra aşağıdaki kodu modül içine yapıştırınız ve F5 ile çalıştırınız.

Sub ekle()
sonsatir = Sayfa1.Cells(65536, "A").End(xlUp).Row
For i = 3 To sonsatir Step 3
   tmpStr = Sayfa1.Cells(i, 1)
   tmpStr = Replace(tmpStr, "(", "")
   tmpStr = Replace(tmpStr, ")", "")
   tmpStr = Replace(tmpStr, " ", "")
   sonuc = IsNumeric(tmpStr)
   
    If Not (sonuc) Then
     Sayfa1.Range("A" & i).EntireRow.Insert
    End If
    
Next i
End Sub

 

[steppe]

systran Hocam,
Yardımlarınız için çok teşekkür ederim.
Yalnız bir şeyi atlamışım.Telefon formatları (212) 332 32 32 şeklinde idi yani telefonları da metin gibi görüyor.Bu durumda nasıl yapabiliriz?

 

[systran]

kodu güncelledim, kontrol eder misiniz?

 

[steppe]

systran Hocam,
Tam istediğim gibi olmuş.Yardımlarınız için çok çok teşekkür ederim.