Guardar datos de form a hoja de excel a partir del ultimo registro.
Un cordial saludo.
Tengo un form que guarda datos, este es el código fuente:
Dim contador As Integer
Private Sub Userform()
contador = 0
End Sub
Private Sub CmdGuardar_Click()
contador = contador + 1
fila = contador
columna = 1
Cells(fila + 1, 1).Value = TextBox1.Value
Cells(fila + 1, 2).Value = TextBox2.Value
Cells(fila + 1, 3).Value = TextBox3.Value
Cells(fila + 1, 4).Value = TextBox4.Value
Cells(fila + 1, 5).Value = TextBox5.Value
Cells(fila + 1, 7).Value = TextBox7.Value
End Sub
me funciona, guarda los datos , el problema es que cuando cierro el formulario y vuelvo a registrar reemplaza datos de la primera fila ¿cual el código que me permita guardar a partir de la ultima fila? ¿y guardar los datos en mayuscula?
1 Respuesta
Prueba a usar esta macro en lugar de la tuya:
Private Sub CmdGuardar_Click()
fila = Range("a65000").End(xlUp).Row + 1
Cells(fila, 1).Value = UCase(TextBox1.Value)
Cells(fila, 2).Value = UCase(TextBox2.Value)
Cells(fila, 3).Value = UCase(TextBox3.Value)
Cells(fila, 4).Value = UCase(TextBox4.Value)
Cells(fila, 5).Value = UCase(TextBox5.Value)
Cells(fila, 7).Value = UCase(TextBox7.Value)
End Subno olvides finalizar la consulta
