buradaki makroyu userformda yapabilirmiyiz

[jambow]

Sub EKSİLT()
    SON_SATIR = [isimler!D65536].End(3).Row + 1
    If SON_SATIR < 4 Then SON_SATIR = 4
    Sheets("isimler").Cells(SON_SATIR, "D") = [g3]
    Sheets("isimler").Cells(SON_SATIR, "E") = [D2]
    Sheets("isimler").Cells(SON_SATIR, "F") = [d3] * -1
    MsgBox "Ödenen miktarı kişinin hesabından düştüm.", vbInformation
    Range("A6").Select
    ActiveWorkbook.Save
     Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    
End Sub

arkadaşlar bu makroyu form da uygulamak istiyorum yardımcı olacak arkadaşlara şimdiden teşekkürler

dosya ekte

 

[dEdE]

Merhaba,
Dosyanız ektedir.
Kolay gelsin.

 

[jambow]

HOCAM TAM İSTEDİĞİM GİBİ OLMUŞ ufak bir ricam daha var en alttaki tex box içine otomatik olarak günün tarihini yazdırabilirmiyiz

 

[dEdE]

UserForm_Initialize altına aşağıdaki satırı ekleyin

TextBox3 = Format(Date, "dd"".""mm"".""yyyy")