Textbox'taki değeri aynı anda başka çalışma kitabına yazdırma

[Mustafa Kabdağlı]

Merhaba arkadaşlar,

Aşağıda ki kod ile açık olan kitabın Sayfa1 B1 hücresine TextBox1 değeri yazdırıyoruz. Fakat aynı anda D:\deneme.xlsm kitabına da yazdırmak istiyorum. Bu işlemi yapabilmem için nasıl bir yol izlemem gerek.

Private Sub CommandButton1_Click()

Sheets("Sayfa1").Range("B1").Value = TextBox1.Text


End Sub

Teşekkürler!

 

[PLİNT]

Merhaba arkadaşlar,

Aşağıda ki kod ile açık olan kitabın Sayfa1 B1 hücresine TextBox1 değeri yazdırıyoruz. Fakat aynı anda D:\deneme.xlsm kitabına da yazdırmak istiyorum. Bu işlemi yapabilmem için nasıl bir yol izlemem gerek.

Private Sub CommandButton1_Click()

Sheets("Sayfa1").Range("B1").Value = TextBox1.Text


End Sub

Teşekkürler

Merhaba
Aşağıdaki gibi deneyebilirsiniz:

 Private Sub CommandButton1_Click()
   Sheets("Sayfa1").Range("B1").Value = TextBox1.Text
Dosya = "D:\deneme.xlsm"
Set Aç = New Excel.Application
Aç.Workbooks.Open Dosya
Set hz = Aç.Workbooks(Dir(Dosya))
   hz.Sheets("Sayfa1").Range("B1").Value = TextBox1.Text
hz.Close SaveChanges:=True
Aç.Quit
Set Aç = Nothing: Set hz = Nothing
End Sub