Kaydet butonu oluşturma

[MetinErol]

Ve bu buton oluşurken G7 hücresindeki rakamı ve G4 deki bilgiyi yanyana ekleyerek her defasındada bu rakamı birartırarak kayıt işlemini nasıl yapabilirim.. Teşekkürler..
Nedense bana kimse yardımcı olmuyor.. :

 

[mehmett]

Örnek dosya eklerseniz cevabınızı çok daha çabuk alırsınız.

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

Sub KayBirArt()
[G7] = [G7] + 1
[A1] = [G4] & " " & [G7]
ActiveWorkbook.Save
End Sub

 

[MetinErol]

evet bu işte.. Teşekkürler..
Amaa dosya ismine herhangi bir etkisi yok..
hala kitap 1 veya kitap 2 plarak kaydediyor..
şöyle bişey denedim ama bu da olmadı..

Private Sub CommandButton1_Click()
[G7] = [G7] + 1
dosya = [G4] & " " & [G7]
dosya = WorksheetFunction.Substitute(dosya, "/", ".") ' / ları nokta yapsın.
ActiveWorkbook.Save
End Sub


Bu formülü ona göre düzeltebilirmisiniz rica etsem..