none
Urgente Macro RRS feed

  • Pregunta

  • Buenas tardes

    por favor me puede ayudar con el siguiente problema

    llevar el contenido de una celda a una variable

    Sub Prueba1()
    '
    ' Prueba1 Macro
    '

    '
        Range("C2").Select
        ActiveCell.FormulaR1C1 = "ladrillo*"
        Range("C2").Select
        ActiveCell.FormulaR1C1 = "ladrillo*"
        ActiveSheet.Range("$A$3:$I$10753").AutoFilter Field:=3, Criteria1:= _
            "=ladrillo*", Operator:=xlAnd
        ActiveSheet.ShowAllData
        Range("C2").Select
        ActiveCell.FormulaR1C1 = "fusible*"
        ActiveSheet.Range("$A$3:$I$10753").AutoFilter Field:=3, Criteria1:= _
            "=fusible*", Operator:=xlAnd
        ActiveSheet.ShowAllData
    End Sub

    lo que quiero es llevar la busqueda a una variable para que sea mas automatica la busqueda.

    por favor si hace falta mas informacion con gusto la suministro

    viernes, 12 de marzo de 2010 22:33

Respuestas