Autofilter

[verluc]

Heb een sheet met een macroknop erop dewelke een autofilter start.
Na uitvoering van deze autofilter staat op het resultaatblad met de gefilterde gegevens
eveneens deze macroknop op dit blad.
Hoe kan ik voorkomen dat deze mee vermeld word op dit gefilterde blad.
Bij boorbaat dank.

 

[Roncancio]

Door de gegevens weg te schrijven ipv te kopiëren.

Met vriendelijke groet,


Roncancio

 

[verluc]

Voorzetje misschien ?
Dit is een stuk van mijn Autofilter:

If Val(x) = 0 Then Exit Sub
         .Range("A3:R1000").Interior.ColorIndex = 0
         .AutoFilter x, "<>"
         .Copy Sheets("Bank").Cells(65536, 1).End(xlUp)
         .AutoFilter
         .Columns(1).Resize(, .Columns.Count).AutoFit

 

[HSV]

Probeer het zo eens.
Zonder te weten waar 'With' voor staat.

[COLOR=#FF0000].specialcells(12).[/COLOR]Copy Sheets("Bank").Cells([COLOR=#FF0000]rows.count[/COLOR], 1).End(xlUp)[COLOR=#FF0000].offset(1)[/COLOR]

 

[snb]

En je bedoelt waarschijnlijk:

Sheets("Bank").Columns.autofit

en je wil waarschijnlijk

.offset(1).Copy Sheets("Bank").Cells(rows.count, 1).End(xlUp).offset(1)

Maar ja, halve informatie, halve antwoorden.....

 

[verluc]

Bedankt voor jullie tussenkomst.
Het probleem is dat de "macroknop" van het te filteren blad eveneens word meegekopieerd naar het
gefilterde blad.
Vraag is : hoe kan dit voorkomen worden.?

 

[HSV]

Begrijpen we.
Met 'specialcells(12)' zou het moeten lukken, daar het alleen zichtbare cellen kopieert.
Code dus iets aanpassen, of de knop boven het filter plaatsen.
Tijd voor een voorbeeldje?

 

[snb]

Vraag is : hoe kan dit voorkomen worden.?

Door hier volledige informatie te verstrekken over waarmee je bezig bent.

 

[verluc]

Hierbij mijn volledie code :

Sub Filter()
Application.ScreenUpdating = False
  Sheets("Bank").Cells.ClearContents
  With Sheets("Algemeen").Range("A3:R1000") 
          x = InputBox("Vul kolomnummer in", "Kolomkeuze")
         If Val(x) = 0 Then Exit Sub
         .Range("A3:R1000").Interior.ColorIndex = 0
         .AutoFilter x, "<>"
         .Copy Sheets("Bank").Cells(65536, 1).End(xlUp)
         .AutoFilter
         .Columns(1).Resize(, .Columns.Count).AutoFit
  End With
         Sheets("Bank").Columns(1).Resize(Sheets("Bank").Columns.Count).AutoFit
         With Sheets("Bank").Columns.AutoFit
         End With
Application.ScreenUpdating = True
End Sub

 

[verluc]

Heb blijkbaar de oplossing gevonden voor dit probleem:

De macroknop dat thans een "Formulierbesturingssysteem" is te vervangen door een "ActiveX-besturingssysteem"
en dan word deze niet meegekopieerd.
Toch mijn gewaardeerde dank voor alle medewerkende aan dit item.