Makronun düzenleme

[igultekin2000]

iyi günler; oluşan arsiv çalışma sayfasından, muhasebe çalışma sayfasına (muhasebe I3 hücresindeki ) aya göre muhasebe çalışma sayfasına veri çekilorum. Seçeceğim ay' ı makro içindeki I= hücresine göre yazarak yapıyorum. makro içine dönem yazmak yerine Muhasebe çalışma sayfasının I 3 hücresine yazdığım ay' a göre veri çekmek için makroda nasıl bir düzenleme yapmam gerekiyor. teşekkürler.

Private Sub CommandButton1_Click()


Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Application.EnableEvents = False
On Error Resume Next
Set sl = Sheets("MUHASEBE"): Set sk = Sheets("ARSIV")


Son = sl.Range("A" & Rows.Count).End(3).Row + 1
sat = 3
sl.Range("A3:G" & Son).ClearContents

For i = 7 To sk.Range("C" & Rows.Count).End(3).Row

If sk.Cells(i, "I") = 5 Then



'If (sk.Cells(i, "C")) = "Satış" And Val(sk.Cells(i, "G")) > 0 Then
'Else
sl.Cells(sat, "A") = sk.Cells(i, "A")
sl.Cells(sat, "B") = sk.Cells(i, "C")
'sl.Cells(sat, "C") = sk.Cells(i, "G")
sl.Cells(sat, "D") = sk.Cells(i, "B")
sl.Cells(sat, "E") = sk.Cells(i, "G")
sl.Cells(sat, "F") = sk.Cells(i, "F")
sl.Cells(sat, "G") = sk.Cells(i, "E")

sat = sat + 1
End If

Next i
    Sheets("MUHASEBE").Select
    Sheets("MUHASEBE").Range("A3:G" & Range("G65656").End(3).Row).Font.Name = "Calibri" 'yazı fontu
    Sheets("MUHASEBE").Select
    Sheets("MUHASEBE").Range("A3:G" & Range("G65656").End(3).Row).Font.Size = 11 'yazı tipi boyutu
    Sheets("MUHASEBE").Select
    Sheets("MUHASEBE").Range("E3:G" & Range("G65656").End(3).Row).NumberFormat = "#,##0.00"
    Application.EnableEvents = False
    Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic

End Sub