If in macro werkt niet (meer)

[Jacob01]

Hoe zet ik een naam van een blad in de Macro?
Hij werkt namelijk niet bij mij.

Sub Memoriaal()

If Verwerkingsvenster.Range("c10") = 0 Then
Exit Sub
End If


Range("M3:N14").Select
Selection.Copy
Sheets("Verwerkingsvenster").Select
Range("a1").End(xlDown).Offset(1, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Inboekvenster Memoriaal").Select
Range("J3:K14").Select
Selection.Copy
Sheets("Verwerkingsvenster").Select
Range("a1").End(xlDown).Offset(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Inboekvenster Memoriaal").Select
Range("I4").Select

 

[Hoornvan]

Sub Macro1()





Wat klop er niet aan de IF formule in de macro?

Dit moet het zijn.

If Sheets(1).Range("C20") = "" Then

 

[Jacob01]

Bedankt, maar de vraag was tussentijds net aangepast.

Hoe krijg ik de naam van een blad erin, en als het bladnaam een spatie bevat?

 

[Hoornvan]

Jacob01,

Zo werkt hij ook.

Sub Macro1()
  If Sheets(1).[C20] = "" Then
Exit Sub
End If
  [C2:C16].Copy [F2]
Application.CutCopyMode = False
[B2].Select
End Sub

 

[Hoornvan]

Volgens mij gaat dat niet, zet er een _ tussen.

 

[Jacob01]

Volgens mij gaat dat niet, zet er een _ tussen.

Zonder spatie krijg ik het ook niet voormekaar de bladnaam in tevoeren klopt dit?

 

[Hoornvan]

Jacob01,

Als je van je Bladnaam dit maakt "Inboekvenster_Memoriaal"
Het moet wel exact gelijk zijn.
Zo ook in de Code, liukt het dan?

Sheets("Inboekvenster_Memoriaal").Select

 

[Hoornvan]

Volgens mij moet het eerste stukje Code zo zijn.

Sub Memoriaal()
  If Sheets("Verwerkingsvenster").Range("C10") = 0 Then
  Exit Sub
End If

 

[Warme bakkertje]

Sub Memoriaal()
If [Verwerkingsvenster!C10] = 0 Then Exit Sub
With Sheets("Inboekvenster Memoriaal")
    .[M3:N14].Copy [Verwerkingsvenster!A1].End(xlDown).Offset(1, 2)
    .[J3:K14].Copy [Verwerkingsvenster!A1].End(xlDown).Offset(1)
End With
Application.GoTo ['Inboekvenster Memoriaal'!I4]

 

[Roncancio]

Zonder spatie krijg ik het ook niet voormekaar de bladnaam in tevoeren klopt dit?

Nee, dat klopt niet. Spaties mogen wel degelijk gebruikt worden.
Wel of geen spatie in een bladnaam is niet van belang, zolang de naam maar overeenkomt met de namen in een werkblad.

Met vriendelijke groet,


Roncancio

 

[Jacob01]

Allen hartelijk bedankt voor de gedane moeite!