belirli bir şarta göre satır silme

[imsiyat]

arkadaşlar merhaba. şimdi elimde bir dosya var ve iki şarta göre gereksiz satırları silmem lazım. burada engel durumunda zihinsel yazan ve 1940 tan sonra doğmuş olanları listelemem gerekiyor. aslında programlama aram iyidir ama hiç excel de programlama yapmadım.

makrolarla yapılabilir sanırım.

teşekkürler şimdiden.

 

[Ömer]

Merhaba,

Butona bağlayarak çalıştırınız.

Sub SartlıSil()
 
Dim i As Long
 
Application.ScreenUpdating = False
 
For i = Cells(Rows.Count, "A").End(xlUp).Row To 6 Step -1
    If IsNumeric(Cells(i, "A")) = True Then
        If Cells(i, "D") <> "Zihinsel" Or Year(CDate(Cells(i, "B"))) < 1940 Then
            Rows(i).Delete
        End If
    End If
Next i
 
Application.ScreenUpdating = True
 
End Sub

.

 

[imsiyat]

Merhaba,

Butona bağlayarak çalıştırınız.

Sub SartlıSil()
 
Dim i As Long
 
Application.ScreenUpdating = False
 
For i = Cells(Rows.Count, "A").End(xlUp).Row To 6 Step -1
    If IsNumeric(Cells(i, "A")) = True Then
        If Cells(i, "D") <> "Zihinsel" Or Year(CDate(Cells(i, "B"))) < 1940 Then
            Rows(i).Delete
        End If
    End If
Next i
 
Application.ScreenUpdating = True
 
End Sub

.

teşekkür ederim. kendime göre uyarlayabilirim sanırım artık. gerçekten çok sağolun. yalnız hocam içinde zihinsel geçenler diye nasıl düzeltebilirim?

 

[imsiyat]

ömer hocam içinde zihinsel olan değilde zihinsel de geçen hücreleri nasıl ayıklayabilirim? yani başka şeylerde olacak içinde ama zihinsel de olacak.

 

[Ömer]

Bu şekilde deneyiniz.

Sub SartlıSil()
 
Dim i As Long
 
Application.ScreenUpdating = False
 
For i = Cells(Rows.Count, "A").End(xlUp).Row To 6 Step -1
    If IsNumeric(Cells(i, "A")) = True Then
        If Not Cells(i, "D") Like "*Zihinsel*" Or Year(CDate(Cells(i, "B"))) _
        < 1940 Then
            Rows(i).Delete
        End If
    End If
Next i
 
Application.ScreenUpdating = True
 
End Sub

.

 

[imsiyat]

gerçekten çok teşekkürler. sizin gibiler sayesinde insanlara yardım etme isteğim sönmüyor.

 

[Ömer]

Rica ederim, işinize yaradığına sevindim. İyi çalışmalar..