help

[erka]

MACRO

ik ben bezig met een macro, waarin ik wil dat als op het actieve werkblad de waarde in cel c140 groter dan of gelijk aan 1 is, dat de macro wordt uitgevoerd.

als de waarde in cel c140 gelijk is aan 0, wil ik dat de macro niet verder wordt uitgevoerd.

volgens mij moet het er ongeveer zo uitzien, maar ik kan het zo nog niet werkend krijgen:

deze twee regeltjes kan ik nog niet goed vertalen in de macro:

als cel c140 => 1 voer dan onderstaande macro uit
als cel c140 = 0, sla dan de macro over

ActiveSheet.Unprotect
Range("C145:E269").Select
Range("E269").Activate
Selection.AutoFilter Field:=1, Criteria1:="<>"
Selection.Copy
Sheets("RECL").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("1:3").Select
Selection.ClearContents
Range("A1").Select
Sheets("NAW").Select

wie kan hierbij helpen?

 

[puppie]

Welkom bij helpmij.

Iedereen die hier een vraag plaatst wil geholpen (help0 worden.
Dus een vraag met help is niet zo goed uitgedrukt.
Help zal niet iedereen lezen.
Bedenk in het vervolg een titel die iets van jou probleem verteld.

helaas kan ik jou niet helpen, ik ben geen excel deskundige.

 

[Hans123]

Onderstaande code in het programma code venster van het blad plakken waar de bewuste cel C140 staat

(op tabblad rechtermuisknop en kiezen voor programmacode weergeven)


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$140" Then
If Target.Value >= 1 Then
Call macro1
End If
End If
End Sub


In de macro die aangeroepen wordt (in dit geval macro1) die op een moduleblad staat kun je dan je eigen code kwijt.

 

[erka]

Re: MACRO

hans,

dat was niet helemaal wat ik zocht, maar door jou hulp ben ik er nu wel uitgekomen, ik heb er het volgende van gemaaakt, en het werkt!

bedankt!

Sub KAART()
'
' KAART Macro
' De macro is opgenomen op 7-12-2004 door Kussendrager.
'
' Sneltoets: CTRL+k
'
If Range("c140") >= 1 Then
ActiveSheet.Unprotect
Range("C145:E269").Select
Range("E269").Activate
Selection.AutoFilter Field:=1, Criteria1:="<>"
Selection.Copy
Sheets("RECL").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("1:3").Select
Selection.ClearContents
Range("A1").Select
Sheets("NAW").Select

End If

End Sub

 

[Hans123]

Fijn dat ,ook al heb ik je niet direct geholpen, je toch een oplossing hebt voor je probleem.

Kun de vraag nog even op opgelost zetten?