Anónimo
Como escribir varias filas mediante un textbox
¿Cómo podría hacer que cuando de en generar se copien y se peguen desde A3 hasta I17 pero con el código de item cambiado por el textbox y todo ese rango en la ultima fila vacía?
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Exactamente así !
H o l a, Percy
Te paso la macro
Private Sub CommandButton1_Click()
'Por.Aortiz
Set h1 = Sheets("Hoja1")
'
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
'
h1.Range("B3:I17").Copy
h1.Range("B" & u1).PasteSpecial Paste:=xlValues
'
'
For i = 1 To 15
h1.Cells(u1, "A") = Val(TextBox1)
u1 = u1 + 1
Next i
'
Application.CutCopyMode = False
End Sub