kodun dosya adı, sheet adını kapsayacak şekilde çalışması

Katılım
13 Aralık 2006
Mesajlar
575
Excel Vers. ve Dili
Office 2010
kusura bakmayın ama derdimi başlıkta iyi açıklayamamış olabilirim.

For Each bak In Range("a1:a" & worksheetFunction.CountA(Range("a1:a65000")))

buradaki kod eğer sadece tek excel sayfası açıksa doğru çalışıyor. ama farklı bir dosya veya aynı dosya içinde farklı bir sheet açıksa çalışmıyor. bunu her halükarda çalışacak bir kod haline getirmenizi istarham ediyorum.

dosyamın adı yesil2007, sheet adı icmal.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,345
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Kod:
wb = Workbooks("yesil2007")
son = wb.Sheets("icmal").[a1:a65000]
For Each bak In Range("a1:a" & WorksheetFunction.CountA(son))
 
Katılım
13 Aralık 2006
Mesajlar
575
Excel Vers. ve Dili
Office 2010
teşekkürler...
 
Üst