Aşağıda yazılı kodu 2003 excell de çalıştıramadım, sanırım kırmızı yazılı olan yerde bir problem var ama çözemedim, user forma yazdığım tarihi (j1) hücresine yapıştırıyor ve o tarihe göre filtre uygulayıp etrafındaki bilgileri kopyaladıktan sonra başka bir sayfaya yapıştırmak istemiştim ama bir türlü başarılı olamadım, emeği geçen veya geçmeyen herkese şimdiden saygı ve sevgilerimi sunmayı bir borç telakki ediyorum.
Saygılarımla...
Private Sub buton_Click()
If tarih.Value = Empty Then
MsgBox "Lütfen geçerli bir tarih giriniz.", vbInformation, "Tarih Hatası"
Else
Sheets("SUZVADELİ").Select
Columns("B:B").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Sheets("SUZVADELİ").Range("J1").Value
Selection.CurrentRegion.Select
Selection.Copy
Sheets("GÜNLÜK").Select
Range("a3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("SUZVADELİ").Select
Columns("b:b").Select
Selection.AutoFilter
End If
End Sub
Saygılarımla...
Private Sub buton_Click()
If tarih.Value = Empty Then
MsgBox "Lütfen geçerli bir tarih giriniz.", vbInformation, "Tarih Hatası"
Else
Sheets("SUZVADELİ").Select
Columns("B:B").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Sheets("SUZVADELİ").Range("J1").Value
Selection.CurrentRegion.Select
Selection.Copy
Sheets("GÜNLÜK").Select
Range("a3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("SUZVADELİ").Select
Columns("b:b").Select
Selection.AutoFilter
End If
End Sub