Captura de datos de textbox a celdas con fecha y cantidad de otro textbox
Quisiera que me apoyaran para copiar datos de un textbox multilínea a celdas y que en la celda adyacentes (siguientes columnas) se coloque la fecha y cantidad de unidades (ingresadas previamente a 2 text box "fecha" y "cantidad"), dejo un ejemplo que Adriel me hizo favor de apoyar
Private Sub CMD1_Click()
If TextBox15 = Empty Then
MsgBox ("FAVOR DE INGRESAR ALGUN VALOR")
Else
Set h1 = Sheets("NUCLEOS PRODUCIDOS")
j = h1.Range("I" & Rows.Count).End(xlUp).Row + 1
k = 9
pedazo = 10
For i = 1 To Len(TextBox15)
Cells(j, k) = Mid(TextBox15, i, pedazo)
i = i + pedazo - 1
j = j + 1
Next
TextBox15.Value = Empty
End If
TextBox15.SetFocus
End Sub
2 Respuestas
Private Sub CMD1_Click()
If TextBox15 = Empty Then
MsgBox ("FAVOR DE INGRESAR ALGUN VALOR")
Else
Set h1 = Sheets("NUCLEOS PRODUCIDOS")
j = h1.Range("I" & Rows.Count).End(xlUp).Row + 1
pedazo = 10
k =9
For i = 1 To Len(TextBox15)
Cells(j, 9) = Mid(TextBox15, i, pedazo)
Cells(j, 11) = textbox2
Cells(j, 10) = Date
i = i + pedazo - 1
j = j + 1
Next
TextBox15.Value = Empty
End If
TextBox15.SetFocus
End Sub
Cells(j, 11) el 11 es la columna donde quiere se copia los datos del textbox2
Cells(j, 10) el 10 es la columna donde quiere que se copie la fecha actual
Si te silve no olvides valorar para cerrar la pregunta
H o l a:
Private Sub CMD1_Click()
If TextBox15 <> "" Then
Set h1 = Sheets("NUCLEOS PRODUCIDOS")
j = h1.Range("I" & Rows.Count).End(xlUp).Row + 1
pedazo = 10
For i = 1 To Len(TextBox15)
Cells(j, "I") = Mid(TextBox15, i, pedazo)
Cells(j, "J") = Date
Cells(j, "K") = Val(textboxcantidad)
i = i + pedazo - 1
j = j + 1
Next
TextBox15.Value = ""
Else
MsgBox "FAVOR DE INGRESAR ALGUN VALOR", vbInformation, "AVISO"
End If
End Sub