Açık olan çalışma kitaplarında

[Leoncio]

Arkadaşlar merhaba;

Açık olan çalışma kitaplarıının tümünde AA1 hücresindeki veriyi silip (tümünü) kaydederek kapatmak istiyorum. Bunun kodu nedir?

 

[Ayhan Ercan]

Merhaba

Her çalışma kitabının açık olan sayfasının "aa1" hücresi için...

For i = 1 To Workbooks.Count
Workbooks(i).ActiveSheet.Range("AA1").ClearContents
Next
Application.Quit
ActiveWorkbook.Close True

 

[Leoncio]

Çok teşekkür ederim.