1940 ve asağı dogumluları satırlardan silmek

[skoti]

Elimde yaklasık 10000 kişinin doğum tarihinin oldugu bir dosya var.
Bunlar atıyorum A1'den A10000'e kadar.
Bunların aralarından 1940 ve asagı dogumluları silmek istiyorum.
12.04.1940 yada 12/04/1940 şeklinde kayıt edilmiş.
Acaba bir formül varmı.

 

[leumruk]

Elimde yaklasık 10000 kişinin doğum tarihinin oldugu bir dosya var.
Bunlar atıyorum A1'den A10000'e kadar.
Bunların aralarından 1940 ve asagı dogumluları silmek istiyorum.
12.04.1940 yada 12/04/1940 şeklinde kayıt edilmiş.
Acaba bir formül varmı.

Makro ile çözebilirsiniz. Örnek bir dosya eklerseniz yardımcı olabiliriz.

 

[skoti]

örnek vermek istedim ama dosya 2007 ile yazilmis.
12.04.1936
12.5.1934
23/11/1942
26.03.1923
ve bu sekilde devam ediyor.
benim istedigim, arada olan 1940 ve asagi dogumlulari silmek.
umarim yeterince aciklayici olmustur.

 

[tahsinanarat]

Örnek dosyayı kendinize uyarlayınız

Tarihlerin c sutununda olduğu varsayılmıştır, kodları kendinize göre uyarlayınız.
Sub sil()
Set s1 = Sheets("Sayfa1")
Tarih = s1.[A1]
For i = Cells(65536, "A").End(xlUp).Row To 2 Step -1
If s1.Cells(i, "c").Value <= Tarih Then Rows(i).Delete
Next i
MsgBox Adet & Tarih & " Tarihinden küçük olan kayıtlar silinmiştir"
End Sub

 

[leumruk]

Merhaba,
Aşağıdaki örneği inceleyiniz. 2007 kullanıyorsanız, satır sayısını kendi dosyanıza uyarlayın.

Sub Sil()
Application.ScreenUpdating = False
For x = Cells(65536, 1).End(3).Row To 1 Step -1
If Format(Cells(x, 1), "yyyy") < 1940 Then
Rows(x).Delete shift:=xlUp
Say = Say + 1
End If
Next
MsgBox Say & " adet satır silinmiştir.", vbInformation, "leumruk"
End Sub

 

[Necdet]

Merhaba,

Sanırım Aşağıdaki kodlar yılı kontrol ettiğinden daha sağlıklı çalışacaktır.

Sub sil()
Set s1 = Sheets("Sayfa1")
Dim i As Long
s1.Select
For i = [A65536].End(3).Row To 2 Step -1
    If Year(Cells(i, "c")) < 40 Then Rows(i).Delete
Next i
MsgBox "kayıtlar silinmiştir"
End Sub

 

[skoti]

bende kendim söyle hallettim.
komple sütunu isaretleyip, filitreledim.
a-z yaptim, ve 1940 ve altindakileri sildim.
ama herkese cok tesekkürler.
bir sorum olacak.
hakikaten excelle yeni biri olarak....
siz bu kodlari yada formülleri yazdinizda, ben bunlari nereye kopyalayip isimi görecem.
sütunlarami yapistirilacak bunlar yoksa baska biryeremi ???