Visual Basic para Aplicaciones - mostrar solo las celdas activas

Sub LoopSpecialTypeVisible()

    Dim celda As Range, rng As Range

    'definimos el rango a recorrer.. que será un campo cualquiera de la tabla

    Set rng = Range("Tabla5[ID]")

    'recorremos ese rango.. pero solo aquellas celdas visibles!!

    For Each celda In rng.SpecialCells(xlCellTypeVisible)

        'llevamos la dirección de la celda a la Ventana de inmediato

        Debug.Print celda.Address

    Next celda

End Sub

Private Sub UserForm_Initialize()

    ComboBox1.RowSource = "'" & Hoja3.Name & "'!C3:T" & Hoja3.Range("B" & Rows.Count).End(xlUp).Row

End Sub

Private Sub UserForm_Initialize()

    Dim celda As Range, rng As Range

    'definimos el rango a recorrer.. que será un campo cualquiera de la tabla

    Set rng = Range("Tabla5[Material]")

    'recorremos ese rango.. pero solo aquellas celdas visibles!!

    For Each celda In rng.SpecialCells(xlCellTypeVisible)

        'llevamos la dirección de la celda a la Ventana de inmediato

        ComboBox1.AddItem Range(celda.Address)

    Next celda

End Sub

Private Sub ComboBox1_Change()

    Dim Fila As Long

    If Not ComboBox1.ListIndex = -1 Then

        Fila = 2

        While Cells(Fila, "C") <> ComboBox1.Text

            Fila = Fila + 1

        Wend

        TextBox1 = Cells(Fila, "D") ' ComboBox1.List(ComboBox1.ListIndex, 1)

        TextBox3 = Cells(Fila, "F") ' ComboBox1.List(ComboBox1.ListIndex, 3)

        TextBox4 = Cells(Fila, "G") ' ComboBox1.List(ComboBox1.ListIndex, 4)

        TextBox5 = Cells(Fila, "H") ' ComboBox1.List(ComboBox1.ListIndex, 5)

        TextBox6 = Cells(Fila, "I") ' ComboBox1.List(ComboBox1.ListIndex, 6)

        TextBox7 = Cells(Fila, "J") ' ComboBox1.List(ComboBox1.ListIndex, 7)

        TextBox8 = Cells(Fila, "K") ' ComboBox1.List(ComboBox1.ListIndex, 8)

        TextBox9 = Cells(Fila, "N") ' ComboBox1.List(ComboBox1.ListIndex, 9 + 2)

        TextBox10 = Cells(Fila, "M") ' ComboBox1.List(ComboBox1.ListIndex, 10)

        TextBox11 = Cells(Fila, "O") ' ComboBox1.List(ComboBox1.ListIndex, 11 + 1)

        TextBox12 = Cells(Fila, "P") ' ComboBox1.List(ComboBox1.ListIndex, 12 + 1)

        TextBox13 = Cells(Fila, "T") ' ComboBox1.List(ComboBox1.ListIndex, 13 + 4)

    Else

        TextBox1 = ""

        TextBox3 = ""

        TextBox4 = ""

        TextBox5 = ""

        TextBox6 = ""

        TextBox7 = ""

        TextBox8 = ""

        TextBox9 = ""

        TextBox10 = ""

        TextBox11 = ""

        TextBox12 = ""

        TextBox13 = ""

    End If

End Sub