Sub kaydet()
On Error GoTo git
Dim str As String
Dim i As Integer
For i = 12 To 15
str = str & Cells(22, i) & "."
Next
str = Left(str, Len(str) - 1)  'SAYFA ADINI ALIR..
 
With Sheets(str)
        .Select  'SAYFAYA GİDER
x = .Range("s10").End(xlDown).Row + 1  'SATIR NUMARASINI BULUR
End With
 
Cells(x, 19) = Sheets("ÖDEME EMRİ").Range("P22").Value 'ÖDEME EMRİNDEKİ MİKTARI ALIP EKLER
 
Exit Sub
git:
x = 11
Resume
End Sub