vba da döngü kısaltma

[Gizemli_kral]

Arkadaşlar şöyle bir kod yapım var :

Windows("sipariş.xls").Activate
Range("b4").Value = urun1.Value
Range("c4").Value = kod1.Value
Range("D4").Value = adet1.Value
Range("E4").Value = desen1.Value
Range("F4").Value = acik1.Value
If urun1.Value <> "" Then
Range("G4").Value = "Beklemede"
End If

Range("b5").Value = urun2.Value
Range("c5").Value = kod2.Value
Range("D5").Value = adet2.Value
Range("E5").Value = desen2.Value
Range("F5").Value = acik2.Value
If urun2.Value <> "" Then
Range("G5").Value = "Beklemede"
End If

bu kodlar urun20 ye kadar gidiyor. Bu kodları nasıl kısaltabileceğim konusunda bir bilgisi olan var mı ? Uğraştım ama beceremedim

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneği inceleyiniz

Private Sub CommandButton1_Click()
Dim SON As Integer
Dim I, S As Byte
SON = Cells(65536, "A").End(3).Row + 1
S = 1
For I = 1 To 5
Cells(SON, S) = Controls("TEXTBOX" & I)
S = S + 1
Next
End Sub