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

[harziyan]

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]

wb = Workbooks("yesil2007")
son = wb.Sheets("icmal").[a1:a65000]
For Each bak In Range("a1:a" & WorksheetFunction.CountA(son))

 

[harziyan]

teşekkürler...