farklı kitaba kayıt

[MUTLUXXX]

Private Sub CommandButton3_Click()
Shell "Excel.exe C:\günlük.xls"
Thisworkbook.Activate
Sheets("sayfa1").Select
Sheets("sayfa1").Range("a4") = ListBox1.List(0, 0)
End Sub

Yukarıdaki makro ile günlük adlı çalışma kitabını açtırıp ListBox1.List(0, 0)
, değerini günlük.xls yani açılan dosyanın a hücresine kayıt etmek istiyorum.Ancak ListBox1.List(0, 0) değerini aynı çalışma kitabının a4 hücresine kaydediyor.iyi çalışmalar.

 

[Orion1]

Aşağıdaki kodu denermisiniz?

Workbooks("günlük").Sheets("sayfa1").Range("a4") = ListBox1.List(0, 0)

 

[MUTLUXXX]

aşağıdaki şekilde denedim ama olmadı hata veriyor

Private Sub CommandButton3_Click()
Shell "Excel.exe C:\günlük.xls"
Workbooks("günlük").Sheets("sayfa1").Range("a4") = ListBox1.List(0, 0)
End Sub

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Workbooks.Open ("C:\günlük.xls")
Workbooks("günlük.xls").Sheets("Sayfa1").Range("a4") = ListBox1.List(0, 0)

 

[MUTLUXXX]

tşk ediyorum

sanırım shell komutu ile olmuyor bir ara bu komutu kullanarak yapmıştım ama aynı kitaba tabi.