Fout in macro formule

[sjoerd81]

Hallo,

Via onderstaande macro wil ik een variabel printbereik creeeren. Wanneer de waarde in cel AB26 "1" is dient range H1:X71 te worden uitgeprint. Nu wordt echter range H1:X213 uitgeprint.

Sub Printen()
If Range("AB26").Value = "1" Then
ActiveWindow.SelectedSheets.PrintOut
Range("$H$1:$X$71").Select
End Sub


Waar zit de fout?

 

[danny147]

Beste sjoerd81

1 ipv "1"

Groetjes Danny. :thumb:

 

[sjoerd81]

Wauw, wat een snelle reactie. :thumb:

Ik heb het aangepast. Maar krijg nu de melding:

Block if without End if

Ik ben helaas nogal onervaren in het creeren van macro's. Dus iedere hulp is welkom.

Groet

 

[danny147]

Beste sjoerd81

Plaats End If tussen

Range("$H$1:$X$71").Select
End Sub

Groetjes Danny. :thumb:

 

[sjoerd81]

Ik heb toch if end gebruikt? Kan je de hele macro niet even plaatsen?

Oh en bedankt voor je bijdrages Danny

 

[danny147]

Beste sjoerd81

Bij deze.

Sub Printen()
If Range("AB26").Value = 1 Then
ActiveWindow.SelectedSheets.PrintOut
Range("$H$1:$X$71").Select
End If
End Sub

Groetjes Danny. :thumb:

 

[Hoornvan]

sjoerd81,

Sub Printen()
  If [AB26].Value = 1 Then
    ActiveWindow.SelectedSheets.PrintOut
    [$H$1:$X$71].Select
  End If
End Sub

Scheelt weer een aantal toetsaanslagen.

 

[snb]

Vermijd select en activate in VBA-code

Sub Printen()
  If sheets(1).Range("AB26").Value = 1 Then sheets(1).Range("$H$1:$X$71").printout
End Sub

 

[Jack Nouws]

Dit kan ook

Sub Printen()
  If sheets(1).[AB26].Value = 1 Then sheets(1).[$H$1:$X$71].printout
End Sub

Of

Sub Printen()
  If [Blad1!AB26].Value = 1 Then [Blad1!$H$1:$X$71].printout
End Sub

Met vr gr
Jack