Kaydet makrosu

[useful]

Ekteki izin formunda kaydet butonuna bağlı kaydet makrosu nasıl oluşturulabilir teşekkürler...

 

[Orion1]

Buyurun.

ThisWorkbook.Save

 

[useful]

Buyurun.

ThisWorkbook.Save

Sayın Orion,
Teşekkürler...
Ancak dosyaya bakmamışınız sanırım, istenen durum biraz farklı....

 

[suleyman242]

ekli dosya

 

[Orion1]

Dosyanız ektedir.

Sub Metinkutusu3_Tıklat()
Dim sat As Long, sh As Worksheet
Sheets("İzin Formu").Select
Set sh = Sheets("Kullanılan izin")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
sh.Cells(sat, "A").Value = Range("B8").Value
sh.Cells(sat, "B").Value = Range("B13").Value
sh.Cells(sat, "C").Value = Range("B16").Value
sh.Cells(sat, "D").Value = Year(Range("B16").Value)
sh.Select
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
Set sh = Nothing
End Sub

 

[useful]

Teşekkürler

Sayın Orion,
Sayın Süleyman242,
teşekkürler...