Döngü için yardım lazım

[battlemaster]

slm arkadaşlar.
hücre seçtiğim zaman o hücredeki satır değerini alarak bu değer üzerinden aşağıdaki kodlar ile nasıl döngü yapabilirim.
seçtiğim hücreler b4 ten b43 e kadar.
yani bulmak istediğim şu: hücreyi seçeyim o hücrenin satır değerini alıp bir değişkene aktarayım. en baştaki B4 değeri arttıkça(B5,B6 gibi) diğer değerler de 1 artıyor. B4 te G9, B5 te G10 oluyor. bunu nasıl kısaltabilirim. yardımcı olursanız çok sevinirim. şimdiden teşekkürler

Range("B4").Select
Sheets("TRANSKRIPT").Select
Range("C5").Select
Sheets("TUMOGRBIRLEŞ").Select
Range("C4").Select
Sheets("TRANSKRIPT").Select
Range("C5").Select
ActiveCell.FormulaR1C1 = "=TUMOGRBIRLEŞ!R[-1]C"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=TUMOGRBIRLEŞ!R[-2]C[1]"
Range("F5:G5").Select
ActiveCell.FormulaR1C1 = "=TUMOGRBIRLEŞ!R[-1]C[-4]"
Range("F6:G6").Select
ActiveCell.FormulaR1C1 = "=TUMOGRBIRLEŞ!R[-2]C[-1]"
Range("E9").Select
ActiveCell.FormulaR1C1 = "=MAT1!R[-6]C[-1]"
Range("F9").Select
ActiveCell.FormulaR1C1 = "=MAT1!R[-6]C[-1]"
Range("G9").Select
ActiveCell.FormulaR1C1 = "=MAT1!R[-6]C[-1]"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=EBIT1!R[-7]C[-1]"
Range("F10").Select
ActiveCell.FormulaR1C1 = "=EBIT1!R[-7]C[-1]"
Range("G10").Select
ActiveCell.FormulaR1C1 = "=EBIT1!R[-7]C[-1]"
Range("E11").Select
ActiveCell.FormulaR1C1 = "=DIL1!R[-8]C[-1]"
Range("F11").Select
ActiveCell.FormulaR1C1 = "=DIL1!R[-8]C[-1]"
Range("G11").Select
ActiveCell.FormulaR1C1 = "=DIL1!R[-8]C[-1]"
Range("E12").Select
ActiveCell.FormulaR1C1 = "=OMES!R[-9]C[-1]"
Range("F12").Select
ActiveCell.FormulaR1C1 = "=OMES!R[-9]C[-1]"
Range("G12").Select
ActiveCell.FormulaR1C1 = "=OMES!R[-9]C[-1]"
Range("E13").Select
ActiveCell.FormulaR1C1 = "=TURKCE1!R[-10]C[-1]"
Range("F13").Select
ActiveCell.FormulaR1C1 = "=TURKCE1!R[-10]C[-1]"
Range("G13").Select
ActiveCell.FormulaR1C1 = "=TURKCE1!R[-10]C[-1]"
Range("E14").Select
ActiveCell.FormulaR1C1 = "=INK1!R[-11]C[-1]"
Range("F14").Select
ActiveCell.FormulaR1C1 = "=INK1!R[-11]C[-1]"
Range("G14").Select
ActiveCell.FormulaR1C1 = "=INK1!R[-11]C[-1]"

 

[Levent Menteşoğlu]

Aktif hücrenin satır nosunu aşağıdaki gibi bir kodla değişkene atayabilirsiniz. Ancak sorunuzun ikinci kısmı anlaşılmıyor. İsterseniz bir örnek dosya ekleyin.

sat=activecell.row

 

[battlemaster]

dosya ekte.
makro kaydetme ile yukarıdaki kodu 40 işlem için 40 tane makro kaydettim.
yapmak istediğim şu öğrencilerin listesinin olduğu tabloda okul numaralaarını seçtiğim zaman ilgili makro çalışsın. bunu da en kısa şekilde yapmak istiyorum.
ayrıca seçme işlemi sadece numaraların olduğu sütunda olacak.