Anónimo
Base de datos
Haber el problema es el siguiente, Tengo una base de datos en excel y estoy realizando la programación por medio de visual Basic para que me salga un formulario con la información de las personas que están en la base de datos, Nombre, Tel, etc. Digitando en otro formulario el código del cliente para que me salga la información de este. Resulta que solo me salen los 9 primeros de hay para abajo me sale un error de range 1004, la programación que estoy haciendo es la siguiente.
Private Sub Consulta_Click()
Sheets("BASE DE DATOS").Select
frm_codigo.Txt_Cedula.Text = ""
Unload Me
End Sub
Private Sub UserForm_Activate()
On Error GoTo err
TextBox1.Text = Range("A" & numFinal).Value
TextBox2.Text = Range("B" & numFinal).Value
TextBox3.Text = Range("C" & numFinal).Value
TextBox4.Text = Range("D" & numFinal).Value
TextBox5.Text = Range("E" & numFinal).Value
TextBox6.Text = Range("F" & numFinal).Value
TextBox7.Text = Range("G" & numFinal).Value
Exit Sub
err:
MsgBox "Error :" & err.Number & "-" & err.Description, vbCritical, "CLIENTES"
End Sub
Si me pudiera ayudar lo más antes posible le estaría realmente agradecido
muchas gracias.
Private Sub Consulta_Click()
Sheets("BASE DE DATOS").Select
frm_codigo.Txt_Cedula.Text = ""
Unload Me
End Sub
Private Sub UserForm_Activate()
On Error GoTo err
TextBox1.Text = Range("A" & numFinal).Value
TextBox2.Text = Range("B" & numFinal).Value
TextBox3.Text = Range("C" & numFinal).Value
TextBox4.Text = Range("D" & numFinal).Value
TextBox5.Text = Range("E" & numFinal).Value
TextBox6.Text = Range("F" & numFinal).Value
TextBox7.Text = Range("G" & numFinal).Value
Exit Sub
err:
MsgBox "Error :" & err.Number & "-" & err.Description, vbCritical, "CLIENTES"
End Sub
Si me pudiera ayudar lo más antes posible le estaría realmente agradecido
muchas gracias.
2 Respuestas
Respuesta de patanrisitas
1
Si quieres me mandas una dirección de correo para mandarte un ejemplo.
Mi correo es [email protected]
De todos modos, este es parte del código que usé:
Private Sub CommandButton1_Click()
Calculate
Range("afiltrar") = TextBox1.Value
Range("F9").Select
Range("F8:G15").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I6:J7"), CopyToRange:=Range("I8:J8"), Unique:=False
Range("I8").Select
Application.Goto Reference:="ListaNew"
ActiveWorkbook.Names("ListaNew").Delete
Range("I8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="ListaNew", RefersToR1C1:= _
"=Hoja1!R8C9:R100C10"
Range("A1").Select
End Sub
Saludos,
RCh.
Mi correo es [email protected]
De todos modos, este es parte del código que usé:
Private Sub CommandButton1_Click()
Calculate
Range("afiltrar") = TextBox1.Value
Range("F9").Select
Range("F8:G15").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I6:J7"), CopyToRange:=Range("I8:J8"), Unique:=False
Range("I8").Select
Application.Goto Reference:="ListaNew"
ActiveWorkbook.Names("ListaNew").Delete
Range("I8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="ListaNew", RefersToR1C1:= _
"=Hoja1!R8C9:R100C10"
Range("A1").Select
End Sub
Saludos,
RCh.
Respuesta de vorkosigan
1
¿Dónde tienes el error, concretamente? ¿Qué valor tiene la variable numFinal?