satır sayısını 1 artırma

[turk4545]

Sub makro1()
sayı = 12345#

Cells(1, 1) = 10 & Mid(sayı, 3, 3)
Cells(2, 1) = 11 & Mid(sayı, 3, 3)
Cells(3, 1) = 12 & Mid(sayı, 3, 3)
Cells(4, 1) = 13 & Mid(sayı, 3, 3)
Cells(5, 1) = 14 & Mid(sayı, 3, 3)
Cells(6, 1) = 15 & Mid(sayı, 3, 3)
Cells(7, 1) = 16 & Mid(sayı, 3, 3)
Cells(8, 1) = 17 & Mid(sayı, 3, 3)
Cells(9, 1) = 18 & Mid(sayı, 3, 3)
Cells(10, 1) = 19 & Mid(sayı, 3, 3)
Cells(11, 1) = 20 & Mid(sayı, 3, 3)


End Sub


yukarıdaki makroda satır sayısını 1 artırmanın kolay bir yolu varmıdır.tek tek elle yazmak yerine tanımlamayla olurmu??

 

[Orion1]

Sub makro1()
sayı = 12345#

Cells(1, 1) = 10 & Mid(sayı, 3, 3)
Cells(2, 1) = 11 & Mid(sayı, 3, 3)
Cells(3, 1) = 12 & Mid(sayı, 3, 3)
Cells(4, 1) = 13 & Mid(sayı, 3, 3)
Cells(5, 1) = 14 & Mid(sayı, 3, 3)
Cells(6, 1) = 15 & Mid(sayı, 3, 3)
Cells(7, 1) = 16 & Mid(sayı, 3, 3)
Cells(8, 1) = 17 & Mid(sayı, 3, 3)
Cells(9, 1) = 18 & Mid(sayı, 3, 3)
Cells(10, 1) = 19 & Mid(sayı, 3, 3)
Cells(11, 1) = 20 & Mid(sayı, 3, 3)
End Sub


yukarıdaki makroda satır sayısını 1 artırmanın kolay bir yolu varmıdır.tek tek elle yazmak yerine tanımlamayla olurmu??

Tabiiki olur.
Yoksa yazılım niye icat edilsinki.
For net döngüsü yeterli bu iş için.Ayrıca döngüler diye forumda arma yaparsanız bu konuda ve diğier döngüler hususndada bilgi edinebilirsiniz.

sayı = 12345#
dim sat as byte
for sat=1 to 11
  cells(sat,1).value=sat+9 & mid(sayı,3,3)
next

 

[turk4545]

teşekkürler hocam.elinize sağlık

 

[Orion1]

teşekkürler hocam.elinize sağlık

Rica ederim.