Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/12/2002, 13:30
Avatar de lmg7
lmg7
 
Fecha de Ingreso: agosto-2002
Mensajes: 93
Antigüedad: 22 años, 7 meses
Puntos: 0
A ver si te sirve ésto.
Esta rutinita busca el número dos en la columna A de la hoja Hoja1, y guarda el resultado (el número de la fila), en la columna A de la hoja Hoja2.

Código:
Sub Busqueda()
Dim Celda As Range
Dim PrimeraCelda As String
    'Los datos a buscar están en la Columna A de la Hoja1 
    With Worksheets(1).Range("A:A")
        'Se va a escribir en Hoja2, columna A, los números de filas
        'donde se encuentra el número dos. 
        Worksheets(2).Select
        Range("A1").Select
        'Busca la primera celda que contiene el número dos. 
        Set Celda = .Find(2)
        'Si Celda = Nothing no se encontró el valor 
        If Not Celda Is Nothing Then           
            PrimeraCelda = Celda.Address
            Do
                'Guarda el resultado 
                Selection.Value = Celda.Row
                'Baja una celda 
                Selection.Offset(1, 0).Activate
                Set Celda = .FindNext(Celda)
            'Termina cuando no existe otra celda con el valor, o
            'cuando encuentra el valor den la primera celda. 
            Loop While Not Celda Is Nothing And PrimeraCelda <> Celda.Address
        End If
    End With
End Sub 
Espero te sirva.

Última edición por lmg7; 19/12/2002 a las 06:36