belirli tarih aralığını al ayrı sayfaya taşı

[karakayalı]

dosya ektedir.şimdiden tşk.ler

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.

Sub TariheGoreAktar()
x = 1
For i = 1 To Range("a65536").End(3).Row
If Cells(i, 1) Like "*198*" Or Cells(i, 1) Like "*199*" Then
Sheets("Sayfa2").Cells(x, 1) = Cells(i, 1)
x = x + 1
End If
Next
End Sub

Not:
Dosya ekte diye yazmanız doğru değil!
Ne istediğinizi mesajınızda belirtmelisiniz!
Acaba nasıl bir dosya diye bakmamızı beklemeyiniz.

 

[karakayalı]

teşekkürler...