Foro Excel

Estimados(as) Amigos(as)

Desde un formulario que contiene los siguientes campos

Codigo_de_saldo Valor_de_lectura Fecha Hora nombre_encargado

necesito almacenar en una hoja todos esos datos, pero también necesito leer datos de una celda ("A1") dicha celda lee los datos desde otro programa y cambia cada cierto tiempo.

Al insertar los datos tambien se debe auto-generar su codigo ("PSW-1478"), los campos (Codigo_de_saldo Valor_de_lectura Fecha Hora) se generaran automaticamente .

despues de buscar con aciertos y fallos pude conseguir insertar datos mediante el siguiente codigo.


Private Sub CommandButton3_Click()
Range("A9").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
Range("A9").FormulaR1C1 = TextBox1
End Sub


Pero me estaqué ahí ya que no pude conseguir hacer lo demás, si pudieran colaborarme les estaria muy agradecido.

Saludos.

Prueba con esto:
Private Sub TextBox1_Change()
Sheets("NombreTuHoja").Activate
With Sheets("NombreTuHoja")
Set xRow = .Cells(.Rows.Count, 1).End(xlUp)
End With
Range("A" & xRow.Row + 1).Value = TextBox1.Value
End Sub

Hola,

Gracias por la ayuda.