::: M E N Ú :::

  • Fórmulas avanzadas, formato condicional, tablas dinámicas y VBA

  • Mira y aplica los videos sobre dinámicas grupales en tus exposiciones

  • Adquiere las presentaciones interactivas y edítalas a tu gusto

11 octubre, 2011

                         
                         El código utilizado en el video:


Buscardato = InputBox("Deme el dato")
If Buscardato <> "" Then
 Range("A1").Select
    Cells.Find(What:=Buscardato, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Selection.EntireRow.Delete
    Range("A1").Select
 End If

Reacciones:

0 comentarios:

Publicar un comentario

Gracias por tus aportaciones!

¡Gracias por tu visita y apoyo!TU FRASE