Codigo Para Omitir Celdas Ocultas

[LuisV26]

Saludos

Tengo dos bases de datos para cruzar las cuales las tengo organizadas por subtotales en la opcion 2 (que es cuando muestra solo los totales de cada referencia). Para esta tarea ejecuto una macro de busqueda referenciada que funciona bien, pero como comente anteriormente los datos esta organizados por subtotales en la opcion 2 la macro me trae el valor exacto pero se ejecuta tambien en las celdas que estan ocultas.

Se que debe haber un fragmento de codigo que Cuando se este ejecutando la macro de busqueda tome solo las celdas visibles y omita las celdas ocultas.

Espero haberme expresado de la mejor forma, Sin embargo Dejo un ejemplo Gracias por sus respuestas.

Lo siento no pude subir el archivo de ejemplo, abajo dejo el codigo de la macro.

  Sub FuncionDeBusqueda()

Dim RangoBusqueda As Range

Dim resultado, Valor

Dim I As Long

Application.ScreenUpdating = False

Range("A8").Select

Set RangoBusqueda = Sheets("Datos 1").Range("a2:p5000")

With Sheets("Datos 2")

    Do While ActiveCell.Value <> ""

        I = ActiveCell.Row

        ActiveCell.Offset(1, 0).Select

        Valor = .Cells(I, 1).Value

        On Error Resume Next

        resultado = Application.WorksheetFunction.VLookup(Valor, RangoBusqueda, 16, False)

        If Err.Number = 1004 Then

            .Cells(I, 14).Value = "> Rango"

            Err.Clear

            Else

            .Cells(I, 14).Value = resultado

        End If

    Loop

End With

MsgBox "Busqueda finalizada"

Set RangoBusqueda = Nothing

End Sub[/CODE]

EjemploLSV.rar

[LuisV26]

Help¡¡¡¡¡¡.....

[Invitado Héctor Miguel]

(hasta donde se) ninguna función de búsqueda omite celdas ocultas por efectos de los esquemas de subtotales

en todo caso, prueba sustituyendo tus códigos por algo +/- como lo siguiente (lo asignas al botón):

Sub BuscaEnVisibles(): Application.ScreenUpdating = False

  Dim fila As Integer, celda As Range, dato As Boolean

  With Worksheets("datos 2")

    For fila = 8 To .Range("a" & Rows.Count).End(xlUp).Row

      If IsNumeric(.Cells(fila, 1)) Then

        dato = False

        For Each celda In Worksheets("datos 1").Range("a1") _

          .CurrentRegion.Resize(, 1).SpecialCells(xlCellTypeVisible)

          If celda = .Cells(fila, 1) Then dato = True: Exit For

        Next

        If dato Then

          .Cells(fila, 14) = celda.Offset(, 15)

          .Cells(fila, 15) = .Cells(fila, 14) - .Cells(fila, 13)

        Else: .Cells(fila, 14) = "> Rango"

        End If: End If: Next: End With

End Sub[/CODE]

saludos,

hector.

[lalternativa]

Hola LuisV26

Por supuesto que hay maneras de saber si una celda está oculta.

Podrás incluir en la macro una instrucción que determine si la celda está oculta o no en subtotales y en caso de que no, ejecutar el vlookup.

¿Cómo lo puedes hacer? Pues precisamente incluyendo el método Subtotal para definir una función If. Por ejemplo (en tu código Cells(i,1) es el de interés):

If Application.WorksheetFunction.Subtotal(106, Cells(i,1)) <> 0 Then

.... 'Celda Visible. Realizar aquí el vlookup

.... ' y todo lo que se desee: escritura, etc.

End If 'Si la celda no está visible, no realizará nada.

Todo esto irá dentro del Do While de tu código.

La explicación es que la función Subtotal, con la modalidad Producto dará 0 si la celda está oculta pero mantiene el resultado original si la celda está visible.

Como todo en programación, debe haber otros métodos, pero este me parece bastante práctico y sencillo.

¿Me he hecho entender? Cualquier duda, por favor, vuelves a escribir.

Un saludo,

lalternativa

[LuisV26]

Saludos lalternativa

Gracias por la linea de codigo. Pero no esta reconociendo las celdas en subtotales opcion 2 en la opcion 3 si trae el valor pero no lo trae en la fila del subtotal.

Agradezco tu ayuda