Kod çoğaltma

[kmlpyrz]

Merhaba, öğrenci takip programım için excelde veri tabanı oluşturmak istiyorum. Bunun içinde her öğenciye bir kod oluşturdum. Ancak bu kodu tüm öğrencilere uygulayabilmek için kodu çoğaltamadım. Yardımlarınızı bekliyorum.

Private Sub CommandButton1_Click()
 
[C4] = Right([AH4], 2) & UCase(Left([AE4], 3)) & UCase(Left([E4], 2)) & Format([F4], "00000")
 
End Sub

Bu işlemi sadece [C4] hücresine değil, [C4:C1004] aralığındaki tüm hücrelere uygulamak istiyorum.

Örneğin [C5] hücresi için

[C5] = Right([AH5], 2) & UCase(Left([AE5], 3)) & UCase(Left([E5], 2)) & Format([F5], "00000")

yazacak.

 

[snx111]

Private Sub CommandButton1_Click()
x = 4
 Do Until x >= 1005
 
 Range("c" & x).Formula = Right(Range("AH" & 4), 2) & UCase(Left(Range("AE" & x), 3)) _
 & UCase(Left(Range("E" & x), 2)) & Format(Range("F" & x), "00000")

x = x + 1
 Loop
End Sub