kapalı çalışma kitabının a1 hücresine değer yazmak

[elvis]

arkadaşlar başlıkta da belirttiğim üzere çalışma isimli excel dosyamı açtığımda dosya içine bıraktığım bir düğme ile (bu düğmeye bastığımda) kapalı olan deneme.xls isimli dosyanın Sayfa1 a1 hücresine "tamam" diye yazılabilir mi?
yardımlarınız için şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. HEDEF dosya yolunu kendinize göre değiştiriniz.

Sub HÜCREYE_DEĞER_AKTAR()
    Set HEDEF = Workbooks.Open("C:\DENEME.xls")
    Application.WindowState = xlMinimized
    HEDEF.Sheets("Sayfa1").Range("A1") = "TAMAM"
    ActiveWindow.Close SaveChanges:=True
    Application.WindowState = xlMaximized
    Set HEDEF = Nothing
End Sub

 

[elvis]

arkadaşım ellerine sağlık
kod işime yaradı.
tam istediğim gibi olmuş
tekrar teşekkürler
iyi çalışmalar

 

[baydeniro]

Sayın Korhan Ayhan teşekkürler.