gvaladezmx
10-24-2023, 02:33 PM
Hi, I'm trying to get cell values starting from A22.. and then A23, etc. each cycle from my for instruction
The firt module is working fine, however with test1 module is writing all the time A22 value.
Sub Create_RO()
Dim total() As Variant
Dim maximo As Long
Dim i As Long
maximo = Range("A21").Value
ReDim total(1 To maximo)
For i = 1 To maximo
total(i) = i
Next i
total = Application.Transpose(total)
Range("A22").Resize(UBound(total)).Value = total
End Sub
Sub test1()
For x = 22 To (21 + Range("A21").Value)
Cells(x, 2) = "MSAI0" & Range("D4") & "L" & Range("C18") & "0" & Range("A22") & "RO" & Range("J4") & Range("K4")
Next
End Sub
Can you help me with this please?
Thank you
The firt module is working fine, however with test1 module is writing all the time A22 value.
Sub Create_RO()
Dim total() As Variant
Dim maximo As Long
Dim i As Long
maximo = Range("A21").Value
ReDim total(1 To maximo)
For i = 1 To maximo
total(i) = i
Next i
total = Application.Transpose(total)
Range("A22").Resize(UBound(total)).Value = total
End Sub
Sub test1()
For x = 22 To (21 + Range("A21").Value)
Cells(x, 2) = "MSAI0" & Range("D4") & "L" & Range("C18") & "0" & Range("A22") & "RO" & Range("J4") & Range("K4")
Next
End Sub
Can you help me with this please?
Thank you