Tarihe göre veri aktar

[ADER_34]

Selam hayırlı akşamlar arkadaşlar,sayfa1 den sayfa2 ye textbox a yazdığım tarihe göre veri aktarmak istiyorum hangi kodları kullanmam gerek yardımcı olurmusunuz? kolay gelsin teşekkürler..
http://s3.dosya.tc/server6/jls581/TARIH_AKTAR.xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    t = CDate(Sayfa1.TextBox1)
    
    Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
    Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
    sat = 2
    
    S2.Range("A2:J" & Rows.Count).ClearContents
    
    For i = 2 To S1.Cells(Rows.Count, "J").End(3).Row
        If S1.Cells(i, "J") = t Then
            S2.Cells(sat, "A") = S1.Cells(i, "A")
            S2.Cells(sat, "B") = S1.Cells(i, "B")
            S2.Cells(sat, "C") = S1.Cells(i, "C")
            S2.Cells(sat, "D") = S1.Cells(i, "D")
            S2.Cells(sat, "E") = S1.Cells(i, "E")
            S2.Cells(sat, "F") = S1.Cells(i, "F")
            S2.Cells(sat, "G") = S1.Cells(i, "G")
            S2.Cells(sat, "H") = S1.Cells(i, "H")
            S2.Cells(sat, "I") = S1.Cells(i, "I")
            S2.Cells(sat, "J") = S1.Cells(i, "J")
            sat = sat + 1
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

 

[ADER_34]

Hüseyin Bey kodlar sorunsuz çok teşekkürler..

 

[alioltulu]

Merhaba benim sorum biraz farklı.
Sayfada Ctrl + F ile arama yapıyoruz günün tarihini yazarak. bana sadece B sutünunda olan günün tarihinin yazılı olduğu hücreyi ara yapmam gerekiyor tabi bu makro ile olması gerekli.
Günün tarihini de A1 Hücresine formülle =Bugün() olarak formülledim. Yani A1 hücresinin değerini B1:B2500 hücreleri arasında bulup o hücrenin üzerinde durması gereken bir makroya ihtiyacım var. Umarım sorumu anlatabilmişimdir. Saygılar..

 

[alioltulu]

Hüseyin Bey Bu konuyla alakalı yardımcı olur musunuz bana? Kolay Gelsin.