Filter automatisch in de tweede rij ipv de eerste rij

[marionvdh]

Hoi,

Ik heb bijgevoegde code in gebruik. De bedoeling is (van het eerste stuk code) dat in een sheet een autofilter gebruikt wordt. Maar het rare is dat met behulp van deze code de autofiler in de tweede rij wordt geplaatst en niet in de eerste rij!

Kan iemand me helpen??

grz Marion

Private Sub CommandButton6_Click()
Sheets("brief").Range("2:2").Delete Shift:=xlDown

Sheets("zoeken").Select
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("A1").AutoFilter
Set rng = ActiveSheet.AutoFilter.Range
Selection.AutoFilter Field:=2, Criteria1:="x"

If rng.Columns(1).SpecialCells(xlCellTypeVisible).Count = 1 Then
    MsgBox "GEEN ADRES GESELECTEERD"
    ActiveSheet.Range("A1").AutoFilter
        Exit Sub
End If

If rng.Columns(1).SpecialCells(xlCellTypeVisible).Count > 2 Then
    MsgBox "MEERDERE ADRESSEN GESELECTEERD"
    ActiveSheet.Range("A1").AutoFilter
    Exit Sub
End If

LRow = Worksheets("brief").Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row

ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).Columns("AG:AM").Copy
Worksheets("brief").Cells(LRow + 1, 1).PasteSpecial xlValues
ActiveSheet.Range("A1").AutoFilter

LCol = 8

Sheets("opdrachten").Select
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("A1").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="x"
Aantal = ActiveSheet.AutoFilter.Range.Rows.Count
For x = 2 To Aantal
If Cells(x, 1).EntireRow.Hidden = False Then
Range(Cells(x, 3), Cells(x, 11)).Copy Worksheets("brief").Cells(LRow + 1, LCol)
LCol = LCol + 9
End If
Next x
ActiveSheet.Range("A1").AutoFilter

End Sub

 

[marionvdh]

Even mijn vraag weer in de aandacht plaatsen..

Ik ben zelf ook nog aan het zoeken geweest maar ik kan echt niets vinden!

Grz marion

 

[richard1970]

Beste Marion,

Begrijpelijk dat je dit doet, maar niet helemaal netjes. Als iedereen dit doet, heeft het trouwens ook geen effect.
Zou je van je bestand de eerste vier of vijf regels willen uploaden in een voorbeeldbestandje? Ontdaan van privacygevoelige gegevens en gezipt uiteraard.

Ik denk namelijk dat het 'm daar in zit, al kan ik de VBA-code niet helemaal lezen zonder voorbeeld.

RIchard