Jump to content
joselica

ANSWERED MACRO REQUIERE UN OBJETO

Recommended Posts

Buenas tardes,

He avanzado con una macro y me estoy bloqueando con: "se requiere un objeto".

Solicito ayuda por favor.

Private Sub CommandButton1_Click()
Range("B5").CurrentRegion.AutoFilter
H3.TextBox1.Value = "" ' esta es la linea que me requiere el objeto
End Sub

Private Sub TEXTBOX1_CHANGE()

Dim Criterio As String
Set H3 = Sheets("RESUMEN")
    If H3.TextBox1.Value <> "" Then
        Criterio = "*" & H3.TextBox1.Value & "*"
        
        Range("B5").CurrentRegion.AutoFilter Field:=5, Criteria1:=Criterio
    Else
        Criterio = ""
        Range("B5").CurrentRegion.AutoFilter
    End If
        

End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
 

Adjunto el documento.

Saludos,

SE REQUIERE UN OBJETO - A.xlsm

Share this post


Link to post
Share on other sites

Hola Luis y Leopoldo,

Muchas gracias a los 2.

Tema cerrado.

Las 2 opciones me han servido.

Lo tenia con el Set H3 = Sheets("RESUMEN") puesto al principio de la macro.

Un saludos a los 2.

Gracias.

 

Share this post


Link to post
Share on other sites

Hola JSDJSD,

Gracias por tu colaboración.

Soy un principiante en los macros me defiendo poco y voy a base de muchas pruebas hasta entender algunas formulas. Interesante tu propuesta, pero la macro que me propones me da error.

Saludos,

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png