Un código para que después de buscar una fila con datos, pueda ir a la siguiente celda vacía.
Hola comunidad soy nuevo en esto, y gracias a ustedes y sus consejos he utilizado varios de sus aportes.
****
Yo necesito un código que después de buscar una fila especifica con información (ya tengo ese código) este me permita ir a la siguiente celda vacía de esa fila y agregar otra información contenida en un textbox.
este es el código que tengo para buscar la información.
Private Sub BOTON1_Click()
'código para buscar un registro por el botón de buscar por código
If TextBox2 = "" Then
MsgBox "Debes Ingresar un Código para Buscar", vbOKOnly + vbInformation, "AVISO"
UserForm2.MultiPage1.Value = 0
Me.TextBox2.SetFocus
Exit Sub
End If
Set rango = Sheets("datos").Range("A:A").Find(What:=TextBox2, _
LookAt:=xlWhole, LookIn:=xlValues)
If rango Is Nothing Then
MsgBox "No se encontró ningún resultado, Intente Buscar por Cédula", vbOKOnly + vbInformation, "AVISO"
'aquí hay mas datos referentes a los campos no los quise copiar son muchos
Exit Sub
Else
TextBox1 = Sheets("datos").Range("B" & rango.Row)' después de esto van mas (son como 52 textbox)
End If
End Sub
lo que yo necesito es que un dato que encuentre en la fila 100 por ejemplo me permita ir hasta la celda z100 que esta vacía y allí agregar información,, pero que al otro dia me permita en la celda aa100 me permita agregar nuevos datos con el mismo textbox...
gracias por colaborarme....
EDISON CASTRILLON
Antioquia Colombia
1 Respuesta
Con este código seleccionas la celda disponible
Cells(rango.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Select
O si prefieres agregar información al mismo tiempo
Cells(rango.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = “Información”
Esta instrucción, siempre te va a encontrar la celda disponible, tal como dice tu ejemplo, primero encuentra la Z100, escribes algo, a la siguiente ejecución la siguiente disponible será la AA100
Saludos. Dam
Si es lo que necesitas, podrías de favor, finalizar la pregunta.
este es el código que trato de usar:
Private Sub BOTON2_Click()
'código para modificar el registro encontrado
Dim ctr As Control
If rango Is Nothing Then 'aqui me muestra un error
MsgBox "Debes buscar un registro para modificar", vbOKOnly + vbInformation, "AVISO"
TextBox1.SetFocus
Exit Sub
End If
If TextBox1 = "" Then
MsgBox "Debes ingresar un Pago", vbOKOnly + vbInformation, "AVISO"
Exit Sub
End If
'Sheets("datos").Range("A" & rango.Row) = TextBox1
'Sheets("datos").Range("D" & rango.Row) = TextBox2
'Sheets("datos").Range("C" & rango.Row) = TextBox3
Cells(rango.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = TextBox4.Value ' este código debe copiar los vlores del textbox4 en la columna BA de cualquier fila, y este mismo textbox debe copiar valores en la siguiente colunma si el usuario paga otro valor colocarlo en la columna bb y asi sucesivamente
For Each ctr In Me.Controls
If TypeOf ctr Is MSForms.TextBox Then
ctr = ""
End If
Next ctr
Me.TextBox1.SetFocus
Set ctr = Nothing
Set rango = Nothing
End Sub
no me funciono
Pues no entendí, primero envías un código y pides una columna vacía, luego envías otro código y no explicas que es lo que quieres.
En esta línea tienes el error
If rango Is Nothing Then 'aquí me muestra un error
Qué quieres verificar, a lo mejor ahí debes poner textbox1
If textbox1 Is Nothing Then
Saludos. Dam
