Makro atanmış butona kaydet, yazdır özellikleri eklemek ?

[press_ok]

Merhaba;

Merhaba excel sayfamda bir buton var ve tıklayınca sayfa 1 deki bilgileri sayfa 2 ye taşıyor. Bu butona tıklandığında taşıma gerçekleştikten sonra hem çalışma sayfasını kaydettirmek hemde masaüstündeki bir url kısayolunu açtırmak için nasıl bir kod eklemeliyim.

Butondaki makro şöyle:

Private Sub click()

Sub taşı()
sat = Worksheets("sofor_takip").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("sofor_takip").Cells(sat, 1).Value = sat - 1
Sheets("sofor_takip").Cells(sat, 2).Value = Sheets("SAYFA").Cells(6, "H").Value
Sheets("sofor_takip").Cells(sat, 3).Value = Sheets("SAYFA").Cells(8, "AA").Value

MsgBox "İŞLEM TAMAM"

End Sub

 

[İhsan Tank]

Merhaba;

Merhaba excel sayfamda bir buton var ve tıklayınca sayfa 1 deki bilgileri sayfa 2 ye taşıyor. Bu butona tıklandığında taşıma gerçekleştikten sonra hem çalışma sayfasını kaydettirmek hemde masaüstündeki bir url kısayolunu açtırmak için nasıl bir kod eklemeliyim.

Butondaki makro şöyle:

Private Sub click()

Sub taşı()
sat = Worksheets("sofor_takip").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("sofor_takip").Cells(sat, 1).Value = sat - 1
Sheets("sofor_takip").Cells(sat, 2).Value = Sheets("SAYFA").Cells(6, "H").Value
Sheets("sofor_takip").Cells(sat, 3).Value = Sheets("SAYFA").Cells(8, "AA").Value

MsgBox "İŞLEM TAMAM"

End Sub

merhaba
bu kodu kaydetmek için kullanabilirsiniz

Sub taşı()
sat = Worksheets("sofor_takip").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("sofor_takip").Cells(sat, 1).Value = sat - 1
Sheets("sofor_takip").Cells(sat, 2).Value = Sheets("SAYFA").Cells(6, "H").Value
Sheets("sofor_takip").Cells(sat, 3).Value = Sheets("SAYFA").Cells(8, "AA").Value
MsgBox "İŞLEM TAMAM"
ThisWorkbook.Save
End Sub

diğer sorunuzu biraz daha açıklarsanız ona göre yardım etmeye çalışayım.