sayın jon206, insan istediğini elde edince hemen başka şeyler peşine düşüyor, bir sorum daha olacak.
aynı butonla kayıt yapılan satıra tarih eklemek ve ödeme emri L69 hücresindeki açıklamayı aynı satırda herhangi bir hücreye eklemek mümkün olurmu acaba

evet alabilirsin
cells=hücre demek;
cells(satır,sütun) işaret eder..
burda satır = belli zaten otomatik alıyor..
size gerekli olan sütun; Eklemek estediğiniz yeri belirleyip soldan sayın kaç sütun gidecek?.

Cells(x, sütun) = Sheets("ÖDEME EMRİ").Range("L69").Value

gibi.. inşlh anlatabilmişimdir..

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)

With Sheets(str)
.Select
x = .Range("s10").End(xlDown).Row + 1
End With

Cells(x, 19) = Sheets("ÖDEME EMRİ").Range("BT4").Value

Exit Sub
git:
x = 11
Resume

End Sub
Sub kaydet2()
On Error GoTo git
Dim str As String
Dim i As Integer
For i = 12 To 15
str = str & Cells(69, i) & "."
Next
str = Left(str, Len(str) - 1)

With Sheets(str)
.Select
x = .Range("m10").End(xlDown).Row + 1
End With

Cells(x, 13) = Sheets("ÖDEME EMRİ").Range("L69").Value

Exit Sub
git:
x = 11
Resume

End Sub




bu şekilde yaptım ama olmadı kafa basmıyo malesef

mrb. babak;

ayrı bir sub açmana gerek yok
artı bir cells olcaktı neyse ben yenisini gönderiyorum..
aynı alanda tarih ve tarih bölümüne açılamayı ben sağdaki sarı bölümüne aktardım gerekli değişiklikleri yapabilirsin

tüm ihtiyaçlarım tamamlandı sizin sayenizde çok teşekkür ederim.

otomatik sayıda eklersek tam olacak ödeme emri belgesindeki r3 e ve ilgili sayfalara yazılması olursa çok güzel olurdu.