[Excel] Macro : selectie maken

[Neoz]

Ik kom er niet helemaal uit bij het maken van een macro in Excel. Misschien dat iemand me hier zou kunnen helpen ?

Ik heb 3 kolommen en ik heb 2 cellen waarin ik een maximum waarde en een minimum waarde invoer.
De bedoeling is dus dat ik twee waardes invul in min en max print. En dat dus via macro een printuitdraai kan maken. De lijst is dus niet gesorteerd.

Ik wilde het dus doen met autofilter en dan op basis van de twee waarde een selectie maken en dan uitprinten of op beeld laten zien. helaas lukt dit niet en verdwijnt de autofilter tabel.

Macro :
<sub>Sub aaaaaa()

Sheets("Blad1").Select
'myNum = Application.InputBox("Geef minimum waarde printbereik")
'Set myRange = Application.InputBox(prompt:="Testgetal printbereik", Type:=1)
Range("A8:C8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=" & Range("G3").Value & "*"
End Sub
Sub Macro5()
Range("A8:C43").Select
Range("A8:C43").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A8:A43"), Unique:=False
End Sub
Sub Macro6()
Range("A8:C43").Select
Range("A8:C43").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"H9:H43"), CopyToRange:=Range("A47"), Unique:=False
ActiveWindow.SmallScroll Down:=3
End Sub</sub>

[onkl]

Paar tips om het makkelijker te maken je een antwoord te geven:
1: Begin eens met een minimum. Het maximum komt later wel.
2: Misschien kan je in je code wat commentaar opnemen, zodat wij snappen wat er met welke range moet gebeuren.
3: Gebruik de [code=vb][/code] tags.
4: Misschien kan je iets meer witregels tussen de macro's aanhouden. Ik zag pas na drie keer kijken dat het drie (?) macro's zijn.
5: Je weet hoe debuggen werkt? ALs je je code ziet, zie je net links ervan een grijs strookje. Als je daarin klikt maak je de regel ernaast rood. De uitvoering van de code stopt daar dan en je kan regel voor regel verder gaan met F8 of de code weer verder laten lopen met F5. Zo kan je in de peilig houden wat wanneer gebeurt.

[ Voor 4% gewijzigd door onkl op 25-05-2009 20:59 ]