Seğerli Hocalarım Merhabalar.Acaba bişey rica edebilirmiyim. Uğraşıp duruyorum ama anlamadığım için kodlardan yapamıyorum.Aşağıya eklediğim makro dolu olan hücreleri kopyalıyor. A sutununda tarihler var. Benim istediğim acaba dolu olan satır yerine sadece hangi gündeysek o günün tarihine uyan A:U arası satırları seçsin .Sadece seçsin kopyalama başka bişey yapmasın Çünkü ben ona daha sonra başka işlevler ekleyeceğim. Şimdiden teşekkürler.
Sub KAYİT_Test()
Application.ScreenUpdating = False
Dim tarih1 As Date, tarih2 As Date, xtarih As Date
Dim S1 As Worksheet, S2 As Worksheet, Defterler(), Son As Long, Satır As Long
Set S1 = Sheets("KAYITLAR")
Defterler = Array("ANA SAYFA")
Satır = 4
For Each defter In Defterler
Set S2 = Sheets(defter)
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
Son1 = Sheets("KAYITLAR").[a65536].End(3).Row + 1
For x = 4 To Son
If S2.Cells(x, "B").Value <> "" Then
S2.Range("A" & x & ":U" & x).copy
Sheets("KAYITLAR").Cells(Son1, 1).PasteSpecial xlPasteValues
Son1 = Son1 + 1
End If
Next x
Next
Application.ScreenUpdating = True
End Sub
Sub KAYİT_Test()
Application.ScreenUpdating = False
Dim tarih1 As Date, tarih2 As Date, xtarih As Date
Dim S1 As Worksheet, S2 As Worksheet, Defterler(), Son As Long, Satır As Long
Set S1 = Sheets("KAYITLAR")
Defterler = Array("ANA SAYFA")
Satır = 4
For Each defter In Defterler
Set S2 = Sheets(defter)
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
Son1 = Sheets("KAYITLAR").[a65536].End(3).Row + 1
For x = 4 To Son
If S2.Cells(x, "B").Value <> "" Then
S2.Range("A" & x & ":U" & x).copy
Sheets("KAYITLAR").Cells(Son1, 1).PasteSpecial xlPasteValues
Son1 = Son1 + 1
End If
Next x
Next
Application.ScreenUpdating = True
End Sub