Copiar datos de un TextBox a una celda
Esto te parecerá una pregunta muy infantil pero me tomo el atrevimiento de consultarte lo siguiente:
En el siguiente pedazo de código intento que datos de 2 TextBox se graven en celdas de una hoja.
………………………………..
Else:
If NumObra = 4 Then
Application.ScreenUpdating = False
Sheets("Historico Montaje").Activate
Hoja19. Cells(7, 75) = CDate(TextBox36) ‘ (( la hoja19 es la correspondiente a “Historico Montaje”))
Hoja19.Cells(7, 76) = TextBox56.Text
'se trata de un registro nuevo, se busca la última fila
Set buscorec = Sheets("Historico Montaje2").Range("C:C").Find((CmbNomCorto), LookIn:=xlValues, lookat:=xlWhole)
filx = buscorec.Row
Set buscorec1 = Sheets("Historico Montaje").Range("Y:Y").Find((CmbNomCorto), LookIn:=xlValues, lookat:=xlWhole)
FILIN = buscorec1.Row
ultobra = Sheets("Historico").Range("A" & Rows.Count).End(xlUp).Row + 1
'paso cada campo de datos TEORICOS
For i = 1 To Columns("AH").Column
Sheets("Historico").Cells(ultobra, i) = Sheets("Historico Montaje2").Cells(filx, i)
Next
'PASO VALORES REALES DEL MONTAJE
Sheets("Historico").Range("AI" & ultobra) = Sheets("Historico Montaje").Range("C" & FILIN + 2)
Sheets("Historico").Range("AJ" & ultobra) = Sheets("Historico Montaje").Range("Y" & FILIN + 2)
Sheets("Historico").Range("AK" & ultobra) = Sheets("Historico Montaje").Range("Z" & FILIN + 2)
Sheets("Historico").Range("AL" & ultobra) = Sheets("Historico Montaje").Range("AA" & FILIN + 2)
Sheets("Historico").Range("AM" & ultobra) = Sheets("Historico Montaje").Range("AB" & FILIN + 2)
Sheets("Historico").Range("AN" & ultobra) = Sheets("Historico Montaje").Range("AC" & FILIN + 2)
Sheets("Historico").Range("AO" & ultobra) = Sheets("Historico Montaje").Range("AD" & FILIN + 2)
Sheets("Historico").Range("AP" & ultobra) = Sheets("Historico Montaje").Range("AE" & FILIN)
Sheets("Historico").Range("AQ" & ultobra) = Sheets("Historico Montaje").Range("AA" & FILIN)
Sheets("Historico").Range("AR" & ultobra) = Sheets("Historico Montaje").Range("CN" & FILIN + 2)
Sheets("Historico").Range("AS" & ultobra) = Sheets("Historico Montaje").Range("CO" & FILIN + 2)
Sheets("Historico").Range("AT" & ultobra) = Sheets("Historico Montaje").Range("CP" & FILIN + 2)
Sheets("Historico").Range("AU" & ultobra) = Sheets("Historico Montaje").Range("CO" & FILIN)
Sheets("Historico").Range("AV" & ultobra) = Sheets("Historico Montaje").Range("BV" & FILIN + 3)
Sheets("Historico").Range("AW" & ultobra) = Sheets("Historico Montaje").Range("BW" & FILIN + 3) ‘ aquí es donde paso luego estos valores a Historico
Sheets("Historico").Range("AY" & ultobra) = Sheets("Historico Montaje").Range("BX" & FILIN + 3)
MsgBox "Los datos se han guardado correctamente.", , "CORRECTO"
Respuesta1 = MsgBox("Se eliminarán los datos diarios del Montaje a Finalizar!" & Chr(10) & _
"Desea realmente que se eliminen?", vbQuestion + vbYesNo, "Atención!")
If Respuesta = 6 Then
Sheets("Historico Montaje2").Select
Range("A5:AH5").ClearContents
Sheets("Historico Montaje").Select
Range("Y4:Y63,AA4:AC63,BW7,BX7,CN4:CN63").ClearContents
quienllama = 3
Unload Me
Sheets("Hbca").Activate
MENU.Show
Else
'Respuesta NO OPCIONAL
MsgBox ("Se cancelará el Proceso de Borrado")
End If
Lo cierto es que mientras lo voy trazando con F8 ambas sentencias en amarillo toman los valores de los textbox pero nunca se gravan el celdas de la hoja
Noto esto después de pasar todo a Histórico (otra hoja) y las celdas de esta hoja están vacías.
¿Es la forma adecuada de gravarlas? Que estoy haciendo mal que luego, con las otras 2 sentencias en verde, ¿no pudo pasar estos datos a Historico?