Macro Insertar valor desde TextBox a todas las celdas mayores a cero de una columna
Ingreso datos al TextBox4 (peso) y TextBox6 (tipo de caja), necesito presionar CommandButton1 (Generar Etiqueta...) y que los datos del TextBox4 se ingrese a la columna "H" y los datos del TextBox6 se ingresen a la columna "I". Considerar que solo se ingresen los datos si hay datos en las celdas de la columna "B".
Ejemplo: Según la imagen hay datos en la celda B31, por tal, solo se deben de ingresar los datos de los TextBox a las celdas H31 e I31 respectivamente.
Agradezco de antemano por las enseñanzas.
1 Respuesta
Correcto, el TextBox4 y TextBox6 son un solo valor para todas las celdas que cumplan una condición.
Pega este código en el commandbutton_click
f = 2
Do Until Cells(f, 1) = ""
If Cells(f, 2) = "" Then GoTo siguiente
Cells(f, "H") = textbox4
Cells(f, "I") = textbox6
siguiente:
f = f + 1
Loop
Estimado @Esteban RG no funciona la macro desarrollada.
Adjunto código. Favor de tu apoyo, gracias.
Private Sub CommandButton1_Click() f = 2 Do Until Cells(f, 1) = "" If Cells(f, 2) = "" Then GoTo siguiente Cells(f, "H") = TextBox4 Cells(f, "I") = TextBox6 siguiente: f = f + 1 Loop End Sub
Perdona yo lo he probado desde la misma hoja, al hacerlo desde el userform, tienes que especificar a que hoja te refieres. Pon delante de cells siempre el nombre de la hoja.
Asi: Sheets("Nombredetuhoja").cells(...
