aynı kitapta iki farklı sayfaya yazmak

[win_kjh]

merhaba

ekteki dosyada bir adet userform var userformu açık kaydet tuşuna bastığımda sayfa bire kaydediyor.sayfa 1'e kaydederken aynı anda sayfa ikiyede kaydetmesini istiyorum

yapılabilir mi?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
sayfa = Array("sayfa1", "sayfa2")
For a = 0 To 1
Set s1 = Sheets(sayfa(a))
say = WorksheetFunction.CountA(s1.[a:a]) + 2
s1.Cells(say, "a") = say - 1
s1.Cells(say, "b") = TextBox1.Value
s1.Cells(say, "c") = TextBox2.Value
Next
TextBox1 = ""
TextBox2 = ""
End Sub

 

[win_kjh]

Sn.Levent Bey çok Teşekkür ederim yapacağım çalışmalarda geliştireceğim kodları.
kolay gelsin...