Cari Güncelleme

[igultekin2000]

iyi günler; çalışmamda YIL ve FİŞ NO seçerek o yıl ve fişe ait detayı makro ile getiriyorum . Bu makroyu güncellemek istiyorum. YIL aynı kalarak FİŞ NO kısmını KOD olarak güncelleyip , İSİM seçeneğini de eklemek istiyorum. bilgim yeterli değil. kullandığım makro

Sub hspno_getir()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Dim s As Worksheet
Dim a As Long, b As Long, c As Long
Dim MM
Set s = Sheets("FIS_DTY")
Sheets("FIS_DTY").Range("A4:I65536").ClearContents
MM = 4
For a = 1 To Sheets.Count
    If s.Cells(2, "A") Like Sheets(a).Name Then
        For b = 2 To Sheets(a).Cells(65536, "A").End(3).Row
        If s.Cells(2, "B") = Sheets(a).Cells(b, "B") Then
            For c = 1 To 9
            s.Cells(MM, c) = Sheets(a).Cells(b, c)
            Next
            MM = MM + 1
        End If
        Next
    End If
Next
Sheets("FIS_DTY").Range("A4:I" & Range("I65536").End(3).Row).Font.Name = "Calibri"
Sheets("FIS_DTY").Select
Sheets("FIS_DTY").Range("A4:I" & Range("I65656").End(3).Row).Font.Size = 11 'yazı tipi boyutu
Sheets("FIS_DTY").Select
Sheets("FIS_DTY").Range("D4:G" & Range("G65656").End(3).Row).NumberFormat = "#,##0.00"
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub