Makro som finder synlig celle i autofiltreret liste

Fra Goodwill *G*
Glemte lige at skrive at det er til Excel 97

Følgende flytter de synlige felter i en autofilterliste til området nedenunder listen (samme kolonner):

Sub test()
    Dim celle As Range
    Dim Destination As Range
    Dim Filteromr As Range
    Dim i_AlleRækker As Integer
    Dim i_SynligeRækker As Integer
    Dim i_KolonneTæller As Integer
   
   
    If ActiveSheet.AutoFilter Is Nothing Then Exit Sub
    Set Filteromr = ActiveSheet.AutoFilter.Range
   
    Set Destination = Filteromr.Cells(Filteromr.Rows.Count + 2, 1)
    i_SynligeRækker = 1
        For i_AlleRækker = 1 To Filteromr.Rows.Count
            If Not Filteromr.Rows(i_AlleRækker).Hidden Then
                i_KolonneTæller = 1
                For Each celle In Filteromr.Rows(i_AlleRækker).Cells
               
                    Destination.Cells(i_SynligeRækker, i_KolonneTæller) = celle
                    i_KolonneTæller = i_KolonneTæller + 1
                Next celle
                i_SynligeRækker = i_SynligeRækker + 1
            End If
        Next i_AlleRækker
               
End Sub


Når man kopierer almindeligt får destinationscelle alle værdier fra den indsatte celle incl. formatering og validering.
Hvis du laver en \"indsæt speciel\" og vælger værdier, kan dette undgås.
Datavalidering virker vist i øvrigt kun på indtastede værdier og ikke på indkopierede eller af programmet indsatte værdier.

Tak nervøs, det ser ud til at virke *S*,
Datavalideringen virker, hvis man indsætter det kopierede område som speciel..kun værdier.