Fejl i makro med hvis formel..

Public Sub udskriv()
If Range("D15") > 0 Or Range("E15") > 0 Then
Range("B11:L72").Select
Application.Dialogs(xlDialogPrint).Show , , , , , , , , , , , 1

If Range("D78") > 0 Or Range("E78") > 0 Then
Range("B74:L137").Select
Application.Dialogs(xlDialogPrint).Show , , , , , , , , , , , 1


If Range("D143") > 0 Or Range("E143") > 0 Then Range("B139:L202").Select
Application.Dialogs(xlDialogPrint).Show , , , , , , , , , , , 1
End Sub

Oyejo

den laver en compile error. "Block if without end if"

men din formel over, laver den ikke et printer job for dem hver.
den skal kunne, skrive alle områder der opfylder kravet ud til en fil. så jeg skal have sat de 3 if formler sammen og kun en gang til slut have "Application.Dialogs(xlDialogPrint).Show , , , , , , , , , , , 1" som så kan udskrive alt

Sub UnionX()
Dim r1 As Range, r2 As Range, r3 As Range
Set r1 = Sheets("Ark1").Range("B11:L72")
Set r2 = Sheets("Ark1").Range("B74:L137")
Set r3 = Sheets("Ark1").Range("B139:L202")
If Range("D15") > 0 Or Range("E15") > 0 Then x = x + 1
If Range("D78") > 0 Or Range("E78") > 0 Then x = x + 10
If Range("D143") > 0 Or Range("E143") > 0 Then x = x + 100
If x = 1 Then r1.Select
If x = 10 Then r2.Select
If x = 100 Then r3.Select
If x = 11 Then Union(r1, r2).Select
If x = 101 Then Union(r1, r3).Select
If x = 110 Then Union(r2, r3).Select
If x = 111 Then Union(r1, r2, r3).Select
If x > 0 Then Application.Dialogs(xlDialogPrint).Show , , , , , , , , , , , 1
Set r1 = Nothing: Set r2 = Nothing: Set r3 = Nothing
End Sub

Exelent!

Du får ting til at se så let ud..:-)

Virker helt efter planen. Tak

Sender du et svar

jada og velbekom