Estaba usando esta macro (adaptada) que el maestro Gerson incluyó aquí:
Private Sub CommandButton1_Click()
'Para la columna A:
With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
dato = Me.TextBox1.Text
Set fil = .Find(dato, after:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, Searchdirection:=xlNext)
If fil Is Nothing Then
MsgBox "No hay datos con este criterio: " & Me.TextBox1, vbExclamation, "Error!"
Me.TextBox1.SetFocus
Exit Sub
End If
fil.Activate
Me.TextBox3 = fil.Offset(0, 1) 'fil.Offset(0, 1) esto muestra lo mismo que Range("B" & fil.Row)
End With
Set fil = Nothing
End Sub
Private Sub CommandButton2_Click()
'Para la columna B:
With Range("[COLOR=#ff0000]B[/COLOR]1:[COLOR=#ff0000]B[/COLOR]" & Range("B" & Rows.Count).End(xlUp).Row)
dato = Me.TextBox2.Text
Set fil = .Find(dato, after:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, Searchdirection:=xlNext) 'Esta fila da error según el depurador
If fil Is Nothing Then
MsgBox "No hay datos con este criterio: " & Me.TextBox2, vbExclamation, "Error!"
Me.TextBox2.SetFocus
Exit Sub
End If
fil.Activate
Me.TextBox3 = fil.Offset(0, 1) 'fil.Offset(0, 1) esto muestra lo mismo que Range("B" & fil.Row)
End With
Set fil = Nothing
End Sub[/CODE]
Para dos botones se usa la misma macro "copiada y pegada", pero cada copia actuaría sobre una columna distinta, A y B. El código de commandbutton2 es copiado del de commandbutton1; la única diferencia relevante es el rango de búsqueda, la columna B. Pero si lo edito (marcado en rojo) me da error 13 de tipos.
La macro de arriba funciona perfectamente sin ningún fallo. Y si pongo [font=courier new]With Range("A1:[u]B[/u]" & Range("[u]B[/u]" & Rows.Count).End(xlUp).Row)[/font] (abarcando en el rango ambas columnas A y también me va bien.
Al "dejar fuera" del rango la columna A escribiendo [font=courier new]("[color=#ff0000]B[/color]1:[color=#ff0000]B[/color]" & Range("B" ...)[/font], me da el error de tipos, en [i]ambas [/i]macros, incluida la que funcionaba bien en la columna A (la primera, la de arriba). ¿Por qué puede ser esto? Y tampoco me funciona usar [font=courier new].offset(0, 1)[/font] al final de la dirección del rango (siendo el rango la columna A y usando el offset para "saltar" a la columna . El depurador me marca error en la fila de [font=courier new]Set fil = ... [/font] de la macro de commandbutton 2 (la que me da fallo al poner el rango en , la que he puesto el comentario del error. Y no me deja avanzar más.
La idea es que la macro de arriba se ejecute en la columna A usando el commandbutton1 y la macro de abajo se ejecute en la columna B con el commandbutton2 (motivo por el que he duplicado la macro ya que hacen referencia a textbox's distintos, pero esto es irrelevante; y sí, siempre he introducido datos en el textbox correcto, y hay datos para buscar en ambas columnas dentro del rango). Es sólo que al desplazar el rango y no incluir la columna A dentro del rango, me da el error.
Un saludo, y gracias.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola,
Estaba usando esta macro (adaptada) que el maestro Gerson incluyó aquí:
Para dos botones se usa la misma macro "copiada y pegada", pero cada copia actuaría sobre una columna distinta, A y B. El código de commandbutton2 es copiado del de commandbutton1; la única diferencia relevante es el rango de búsqueda, la columna B. Pero si lo edito (marcado en rojo) me da error 13 de tipos.
La macro de arriba funciona perfectamente sin ningún fallo. Y si pongo [font=courier new]With Range("A1:[u]B[/u]" & Range("[u]B[/u]" & Rows.Count).End(xlUp).Row)[/font] (abarcando en el rango ambas columnas A y
también me va bien.
Al "dejar fuera" del rango la columna A escribiendo [font=courier new]("[color=#ff0000]B[/color]1:[color=#ff0000]B[/color]" & Range("B" ...)[/font], me da el error de tipos, en [i]ambas [/i]macros, incluida la que funcionaba bien en la columna A (la primera, la de arriba). ¿Por qué puede ser esto? Y tampoco me funciona usar [font=courier new].offset(0, 1)[/font] al final de la dirección del rango (siendo el rango la columna A y usando el offset para "saltar" a la columna
. El depurador me marca error en la fila de [font=courier new]Set fil = ... [/font] de la macro de commandbutton 2 (la que me da fallo al poner el rango en
, la que he puesto el comentario del error. Y no me deja avanzar más.
La idea es que la macro de arriba se ejecute en la columna A usando el commandbutton1 y la macro de abajo se ejecute en la columna B con el commandbutton2 (motivo por el que he duplicado la macro ya que hacen referencia a textbox's distintos, pero esto es irrelevante; y sí, siempre he introducido datos en el textbox correcto, y hay datos para buscar en ambas columnas dentro del rango). Es sólo que al desplazar el rango y no incluir la columna A dentro del rango, me da el error.
Un saludo, y gracias.