• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Aanpassen macro

Status
Niet open voor verdere reacties.
V

verluc

Gebruiker
Lid geworden
29 mei 2009
Berichten
535
Heb onderstaande lijn in bestaande macro.
Hierin moet ik steeds het kolomnummer intikken
Aangezien dit steeds kolomnummer 6 is lijkt
het mij beter om automatisch dit kolomnummer vast te zetten.
Enige hulp hierbij is zeer welkom !

x = Application.InputBox(prompt:="Kolomnummer", Type:=2)
 
Niet gewoon zo?

Code: 
x= 6
 
De variabel x is dan ook overbodig.
Of je nu een x neerzet op een plaats in de code of een 6 is lood om oud ijzer.
 
Dit is nu mijn code, dewelke blijkbaar toch het gewenste resultaat geeft:

Code: 
With Sheets("Diversen").Range("A3:F10000")
           X = 6
           y = "< " & Application.InputBox(prompt:="Filterwaarde: < ", Type:=2)
         If Val(X) = 0 Then Exit Sub
         .Range("A3:F10000").Interior.ColorIndex = 0
         .AutoFilter X, y
         .Copy Sheets("Selectie").Cells(65536, 1).End(xlUp)
         .AutoFilter
         .Columns(1).Resize(, .Columns.Count).AutoFit
  End With
 
Dan zou je dus op de plek van de X gewoon 6 neer kunnen zetten en de X=6 weg kunnen laten

Code: 
 .AutoFilter 6, y
 
Onderstaande zal echt niets doen hoor.
Code: 
If Val(X) = 0 Then Exit Sub


Je overschrijft de laatste rij zonder Offset(1)
Code: 
With Sheets("Diversen").Range("A3:F10000")
         [COLOR=#ff0000].Interior.ColorIndex[/COLOR] = 0
         .AutoFilter 6, "[COLOR=#ff0000]<" [/COLOR]& Application.InputBox(prompt:="Filterwaarde: < ", Type:=[SIZE=3][COLOR=#ff0000]1[/COLOR][/SIZE])
         .Copy Sheets("Selectie").Cells(rows.count, 1).End(xlUp)[COLOR=#ff0000].offset(1)[/COLOR]
         .AutoFilter
[COLOR=#ff0000]         .Columns.AutoFit[/COLOR]
  End With
 
HSV, zeer bedankt voor Uw aangepaste macro. Is toch een paar lijnen korter
en meer overzichtelijk.
Probleem opgelost !!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan