foutje in macro?

[HBot]

Geacht forum,

Ik heb een macro, waarin een selectie gemaakt wordt als er in een bebaalde kollom "v" staan,
Dit werkt perfect.
Maar als er geen "v" staan en er uit deze selectie ook niets hoeft teworden gekopieerd dan worden er toch gegevens over genomen.
Hieronder het beruchte stukje en de uitkomst (filetje) die dus leeg had moeten zijn.

Sheets("Omrekensheet HJH").Select
Range("A2").Select
ActiveWindow.SmallScroll Down:=45
Selection.AutoFilter Field:=1, Criteria1:="v"
Range("a45:m66").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=12
Range("a70").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False​

BVD
HennyBekijk bijlage filter.xlsm

 

[ExcelAmateur]

HBot,

Kijk eens of hij het zo wel goed doet.
In je bij gevoegde file zit niet 1 macro.

Sub Copy()
Sheets("Omrekensheet HJH").Select
Range("A2").Select
ActiveWindow.SmallScroll Down:=45
Selection.AutoFilter Field:=1, Criteria1:="v"
If criterial = "" Then Exit Sub
Range("A45:M66").Copy
ActiveWindow.SmallScroll Down:=12
Range("a70").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Graag de volgende keer je code selecteren en boven in het menu op # klikken.

 

[HBot]

Hallo Excel amateur,

Het stukje is een onderdeeltje van een grote reeks opdrachten die uitgevoerd moeten worden in deze marco dus ook als deze sektie leeg is moet hij verdergaan,
Nu wordt de macro afgesloten,

Kan ik iets doen met If criterial = "" Then goto regel .... Ik heb dit nog nooit toegepast dus graag optie van een kenner..

ps wat bedoel je met;
Graag de volgende keer je code selecteren en boven in het menu op # klikken. ??

Gr
Henny

 

[ExcelAmateur]

HBot,

ps wat bedoel je met;
Graag de volgende keer je code selecteren en boven in het menu op # klikken. ??

Dan komt de code netjes in een apart vak te staan.

If criterial = "" Then goto 1

Zet een 1 tussen een regel waar de macro dan heen moet.

Code ....
1  'waar je moet wezen
Code....

 

[wampier]

het is netter om gewoon de copieercode tussen de IF te zetten

if criteria1<>"" then
   ... code
end if

Dan hoef je geen goto te gebruiken. In duizenden regels code heb ik nog maar 1 keer ooit een goto gebruikt en dat was dan nog om om een microsoft beperking heen te werken. vaak wordt de code er niet leesbaarder van

 

[HBot]

Thanks,

Werkt perfect, weer wat geleerd.
Gr