04. august 2011 - 11:32Der er
7 kommentarer og 1 løsning
VBA Autofilter med 2 kriterier
Hej Eksperten
Jeg søger en VBA formel som i et autofilter søger om navnet optræder. Optræder navnet skal arket kun vise data i forhold til kriteriet, pga. senere kopiering. Optræder navnet ikke, skal der ikke foretages noget " "" "" ?
Mød TrackMan og Veo på Computerworld Cloud & AI Festival og hør, hvordan tech ændrer måden, vi træner og udvikler talent – fra skolebold til The Masters.
If antalSynligerækker > 0 Then Range("A5:R100000").Select Selection.Copy End If
End Sub 'Men her vælger excel at kopiere hele arket uanset søge kriterierne. Private Function antalSynligerækker() Dim rng As Range On Error GoTo ingenrækker
Set rng = ActiveSheet.AutoFilter.Range antalSynligerækker = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 Exit Function
If antalSynligerækker > 0 Then Range("A5:R100000").Select Selection.Copy End If End Sub Private Function antalSynligerækker() Dim rng As Range On Error GoTo ingenrækker
Set rng = ActiveSheet.ListObjects("Tabel1").AutoFilter.Range antalSynligerækker = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 Exit Function
Funktionen kan placeres efter ønske. Du får et svar..
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.