Değerli Hocalarım ve tüm arkadaşlar herkese merhabalar, iyi çalışmalar. Bir sorunumda yardımınızı rica edebilirmiyim. Aşağıya eklediğim makronun sadece değerleri kopyalamasını istiyorum, buna uygun kodlar varmı. Yardımcı olursanız sevinirim.
Sub Ana_Dosyadan_Aylık_Liste2()
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
Worksheets("Sayfa1").Range("a2:K65536").ClearContents
tarih1 = Worksheets("Sayfa1").Range("q8").Value
tarih2 = Worksheets("Sayfa1").Range("q9").Value
Set S1 = Sheets("Sayfa1")
Defterler = Array("VERİLER")
Satır = 3
For Each defter In Defterler
Set S2 = Sheets(defter)
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
For x = 2 To Son
If S2.Cells(x, "A").Value <> "" Then
xtarih = S2.Cells(x, "A").Value
If xtarih >= tarih1 And xtarih <= tarih2 Then
S2.Range("A" & x & ":K" & x).Copy S1.Cells(Satır, 1)
Satır = Satır + 1
End If
End If
Next x
Next
End Sub
Sub Ana_Dosyadan_Aylık_Liste2()
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
Worksheets("Sayfa1").Range("a2:K65536").ClearContents
tarih1 = Worksheets("Sayfa1").Range("q8").Value
tarih2 = Worksheets("Sayfa1").Range("q9").Value
Set S1 = Sheets("Sayfa1")
Defterler = Array("VERİLER")
Satır = 3
For Each defter In Defterler
Set S2 = Sheets(defter)
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
For x = 2 To Son
If S2.Cells(x, "A").Value <> "" Then
xtarih = S2.Cells(x, "A").Value
If xtarih >= tarih1 And xtarih <= tarih2 Then
S2.Range("A" & x & ":K" & x).Copy S1.Cells(Satır, 1)
Satır = Satır + 1
End If
End If
Next x
Next
End Sub