DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
for each r in range("a1:f20")
r = 1
next
for i=1 to 6
for j = 1 to 20
Cells(i, j) = 1
next j
next i
Syn. Haluk Bey,Bahsettiğiniz durum için bir döngü hazırlamak, biraz amatörce olur...
Aşağıdakini yazın, yeter...
Kod:range("a1:f10") = 1