Copiar datos de celda anterior a cuadro de texto.
Solo estoy buscando crear un código que me permita tener un cuadro de texto de formulario de usuario que extraiga datos de la celda anterior (como un registro de entrada de datos) y cuando se encuentren los datos de la celda, quiero que se muestren en la hoja de trabajo para seguir una secuencia que existe dentro de la hoja de trabajo.
Resumen: cuando el valor de la celda previa de la columna A “TCNumber” = “TC00010”, muestre el valor en TXBTCNumber (cuadro de texto para valores de números TC) Y agregue 1 al dato encontrado y agregue un nuevo valor en la celda de nueva fila.
P.D. Si es posible, ¿puedo hacer que encuentre todo el valor (por ejemplo: TC00010), NO solo los números?
Encontré un código que encuentra los datos de la celda previa y los agrega al cuadro de texto, pero solo muestra los últimos dos dígitos del número TC en lugar del valor completo.
Código actual:
Con UserForm1.TXBTCNumber
Dim TCNum como Integer
Dim TC como String
Dim rows como String
Dim value como String
Dim concat como String
Set ws = Worksheets (“Material Tracibility Register”)
rows = ws.Range (“A1048576”).End (xlUp). Row
Dim a como String
‘Columna
a = “A”
concat = a & rows
‘El valor en la última fila está abajo
TC = Range (concat) .value
TCNum = Mid (TC, 3, 6) + 1
UserForm1.TXBTCNumber.value = TCNum
End With
UserForm1.Show
End Sub
davy.ai
Con el UserForm1.TXBTCNumber
Dim TCNum Como String
Dim TC Como String
Dim filas Como String
Dim valor Como String
Dim concatenar Como String
Juego ws = Hojas de trabajo (“Registro de trazabilidad de material”)
filas = ws.Range(“A1048576”).End(xlUp).Row
Dim a Como String
‘Columna
a = “A”
concatenar = a & filas
‘El valor en la última fila está debajo
TC = Range(concatenar).value
TCNum = Mid(TC, 1, 8) + 1
UserForm1.TXBTCNumber.value = TCNum
Fin Con
UserForm1.Mostrar
Fin Sub