programmeertaal filter

[jur84]

Weet iemand de invoer m.b.t. programmeertaal t.b.v. een filter???


Dus

Private Sub CommandButton1_Click()

HIERIN DE CODES!!

End Sub

 

[jur84]

Ik heb op dit moment dit maar hij doet het niet:

Sub Macro5()
'
' Macro5 Macro
' De macro is opgenomen op 4-12-2006 door beheerder.
'

'
Selection.AutoFilter Field:=1, Criteria1:="<>€ 0,00", Operator:=xlAnd
End Sub

 

[toverkamp]

haal het euro teken weg, en zet er alleen 0 neer

 

[jur84]

dank je wel dit schiet op!!

Had een laatste vraag, ik wil eerst een werkblad kopieren en vervolgens daar de filter over laten gaan (op het nieuwe werkblad). Nu heb ik het als twee Clickbuttons maar kan ik de volgende twee commando's combineren tot 1 button???

Private Sub CommandButton1_Click()
Sheets("SKO (2)").Select
Sheets("SKO (2)").Copy Before:=Sheets(1)
End Sub

Private Sub CommandButton2_Click()
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd

End Sub

 

[toverkamp]

dank je wel dit schiet op!!

Had een laatste vraag, ik wil eerst een werkblad kopieren en vervolgens daar de filter over laten gaan (op het nieuwe werkblad). Nu heb ik het als twee Clickbuttons maar kan ik de volgende twee commando's combineren tot 1 button???

Private Sub CommandButton1_Click()
Sheets("SKO (2)").Select
Sheets("SKO (2)").Copy Before:=Sheets(1)
End Sub

Private Sub CommandButton2_Click()
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd

End Sub

uit het hoofd:

Private Sub CommandButton1_Click()
    Sheets("SKO (2)").Select
    Sheets("SKO (2)").Copy Before:=Sheets(1)

    Sheets("1").select
    Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd

End Sub

 

[jur84]

dank je wel !!!
Ik heb het voor elkaar!!

 

[Demeter]

Probeer zo weinig mogelijk Select te gebruiken.

Private Sub CommandButton1_Click()
    Sheets("SKO (2)").Copy Before:=Sheets(1)

    Sheets("1").AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd

End Sub

moet ook werken.
Deze code wordt sneller door Excel uitgevoerd.

Groet,
Ferenc

ps.
Graag je vraag nog op opgelost plaatsen.
Bedankt.