::: M E N Ú :::

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

  • Mira los Tutoriales de Fórmulas avanzadas y programación en VBA

  • Aplica las ideas que muestro en los videos sobre dinámicas grupales

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!ÉXITO