Sayfalardan veri aktarımını yapamadım.

[memoli79]

İyi geceler üstadlarım. Bir tablom var orada açıklama yaptım ama burada yine kısaca açıklayayım. 10 sayfalık belgem var. İlk 8 sayfaya girdiğim verileri son sayfadaki Textbox'a girdiğim tarihe göre son sayfaya sıralı olarak alacak sondan bir önceki sayfaya sadece yazılı tarihteki verileri alacak. Tarihi değiştirip tıkladığımda en son boş satırdan eklemeye devam edecek. Aynı zamanda TextBox'ta hangi tarih yazılı iken düğmeye tıkladığımda sadece o günlerin olduğu satırları yine sayfa sırasına göre GÜNLÜK sayfasına alacak tarih değişip tekrar düğmeye tıkladığımda GÜNLÜK sayfasında 4'üncü satırdan aşağıyı temizleyip yazdığım tarihli olanları yazacak.Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    Application.ScreenUpdating = False
    
    Dim SG As Worksheet: Set SG = Sheets("GÜNLÜK")
    Dim SB As Worksheet: Set SB = Sheets("BİRLEŞTİRİLMİŞ")
    
    sat = 4
    SG.Range("A4:G" & Rows.Count).Clear
    
    t = CDate(Sayfa1.TextBox1)
    
    For i = 1 To 8
        s = Sheets(i).Name
        For a = 4 To Sheets(s).Cells(Rows.Count, "B").End(3).Row
            If Sheets(s).Cells(a, "B") = t Then
                
                Sheets(s).Range("A" & a & ":G" & a).Copy SG.Cells(sat, "A")
                sat = sat + 1
                
                SBsonsat = SB.Cells(Rows.Count, "B").End(3).Row + 1
                Sheets(s).Range("A" & a & ":G" & a).Copy SB.Cells(SBsonsat, "A")

            End If
        Next a
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

 

[memoli79]

Hüseyin Bey çok teşekkür ederim.