dosyadan veri silmek

[GursoyC]

Merhaba,
aşağıdaki kodla basitçe 1.xlsx ve 2.xlsx isimli dosyaların sh isimli sayfasının A1 hücresine 9 yazdırmaya çalışıyorum.
Kodu çalıştırdığım zaman hata almıyorum ancak 1.xlsx ve 2.xlsx'e değil, çalıştırdığım dosyadaki sh isimli sayfasının A1 hücresine yazıyor.
(Workbooks(dosyaadı).Activate kod satırı olmasına rağmen)
Nerede hata yapıyorum yardımcı olur musunuz?

Dim dosyaadı As String, yol As String, i As Integer, page As Worksheet, act As Workbook

yol = "C:\Users\Saturn\Downloads\sil\"
For i = 1 To 2
dosyaadı = i & ".xlsx"
Set sayfaadı = Sheets("sayfaadı")
        Workbooks.Open yol & dosyaadı
        Workbooks(dosyaadı).Activate
        sayfaadı.Range("A1").Value = 9
        Workbooks(dosyaadı).Close True
Next

 

[YUSUF44]

Activeworkbook.sayfaadı.Range("A1").Value = 9

şeklinde dener misiniz?

 

[GursoyC]

Merhaba Yusuf bey,
çözümünüzü uygularken yaptığım başka bir hatayı da farkettim. Şu anda gayet güzel çalışıyor.
Teşekkür ederim, saygılar.