Çözüldü Belli bir değeri içeren satırları silme

merhabalar excelTurkey ailesi.
benim şöyle bir sorunum var. ekte de gönderdiğim şekilde TELEFON, TCKN, ADI, SOYADI sütunları olan excel sayfamda.
1. TELEFON satırında telefonumuz var. TCKN satırında 10000000000 ile 99999999999 aralığında değer var. ADI ve SOYADI satırları ad soyad ile dolu.
yapmak istediğim olay TCKN satırında TCKN satırında 10000000000 ile 99999999999 aralığında değer olan tüm satırları silmek

2. TELEFON satırında telefonumuz var. TCKN satırında "Veri yok!" yazıyor. ADI satırında "Veri yok!" yazıyor. SOYADI sütunu herhangi bir soyisim yazıyor.
yapmak istediğim olayı TCKN satırında "Veri yok!" yazıyor. ADI satırında "Veri yok!" yazıyor. olan tüm satırları silmek

aslında kısacası TELEFON satırı dolu, TCKN satırında "Veri yok!" yazanü, ADI ve SOYADI satırları dolu numaraların kalmasını istiyorum

teşekkürler

Merhabalar,
Pek bir şey anladığımı söylemem maalesef.
Üstte 1-2 diye istekleriniz var, altta da kısaca demişsiniz ama bu kısaca olan kısım ikinci isteğinize mi ait, genel mi bilemedim.

Yeni bir dosyada, solda şu anki hâli, sağda da olması gereken tabloyu hazırlayıp yollarsanız gerekli desteği verelim.

Admin' Alıntı:

Merhabalar,
Pek bir şey anladığımı söylemem maalesef.
Üstte 1-2 diye istekleriniz var, altta da kısaca demişsiniz ama bu kısaca olan kısım ikinci isteğinize mi ait, genel mi bilemedim.

Yeni bir dosyada, solda şu anki hâli, sağda da olması gereken tabloyu hazırlayıp yollarsanız gerekli desteği verelim.

Genişletmek için tıkla ...

sayın Admin
istediğiniz şekilde hazırladığım dosyayı ekte sunuyorum
teşekkürler

Admin' Alıntı:

@mkabadayi, şimdi netleşti.
Bu kodları kullanabilirsiniz.

PHP:Panoya kopyala

Sub Emre()
    Dim i&
    For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
        If Cells(i, 2).Value = "Veri yok!" And Cells(i, 3).Value = "Veri yok!" _
        Or Cells(i, 2).Value >= 10000000000# And Cells(i, 2).Value <= 99999999999# Then
            Rows(i).Delete
        End If
    Next i
    i = Empty
End Sub

Genişletmek için tıkla ...

teşekkürler sağolun @Admin sayın OSMA

Rica ederim, iyi günler.