Macro almacenar en columna siguiente
Mi tema es el siguiente: estoy buscando alguna macro que almacene por columnas, no por filas. Es decir, en una hoja hago un control de stock y necesito ir revisándolo cada cierto tiempo y dejando almacenado el ese control por meses. Como el listado es bastante extenso (unos 70 campos) necesito que en la hoja donde ejecute la macro se almacene por columnas y en la siguiente columna vacía que encuentre.
¿Alguien podría ayudarme?
1 respuesta
Respuesta de Adriel Ortiz Mangia
H o l a
Te paso un ejemplo, se inserta datos por columnas a través de un formulario con 5 textbox.
Private Sub CommandButton1_Click()
'Por.Adriel Ortiz
Set h1 = Sheets("Hoja1")
'
uc = h1.Cells(1, Columns.Count).End(xlToLeft).Column + 1 'ubica la ultima columna
h1.Cells(1, uc) = TextBox1
h1.Cells(2, uc) = TextBox2
h1.Cells(3, uc) = TextBox3
h1.Cells(4, uc) = TextBox4
h1.Cells(5, uc) = TextBox5
'
'
MsgBox "Datos guardados"
End Subvalora para respuesta Excelente o bueno para finalizar
