Macro is traag

[snb]

Of

Sub Printen()
  On Error Resume Next
  With Range("D4,C26,D26,E26,G26")
    .Interior.ColorIndex = xlNone
    With .SpecialCells(xlCellTypeBlanks)
      If Err.Number = 0 Then
        With .Cells(1)
          MsgBox Cells(1, .Column).Value & " ontbreekt"
          .Interior.Color = vbRed
          .Select
        End With
      Else
        With ActiveSheet.PageSetup
          .LeftMargin = Application.InchesToPoints(0.6)
          .RightMargin = Application.InchesToPoints(0.45)
          .TopMargin = Application.InchesToPoints(0.65)
          .BottomMargin = 0
          .HeaderMargin = 0
          .FooterMargin = 0
          .Zoom = False
          .FitToPagesWide = 1
          .FitToPagesTall = 1
        End With
        ActiveWindow.SelectedSheets.PrintPreview
      End If
    End With
  End With
End Sub

 

[Avalondra]

Dan is G26 (daar hebben we het volgens mij over) niet helemaal leeg.

die zou welk leeg moeten zijn anders gaf hij toch ook niet die melding of wel dan?
en staat geen formule in of niks.

Greetz AvA

 

[Roncancio]

die zou welk leeg moeten zijn anders gaf hij toch ook niet die melding of wel dan?
en staat geen formule in of niks.

Greetz AvA

Hmm.
Wijzig

         If Range(sBereik) = 0 Then

..in ...

        If Len(Trim(Range(sBereik))) = 0 Then

De Len geeft het aantal tekens weer.
De Trim verwijdert de spaties.

Met vriendelijke groet,


Roncancio

 

[Avalondra]

ok bedankt hoop dat het werkt kga het morgen toepassen (heb vandaag geen zin meer

Greetz AvA

 

[Avalondra]

sorry maar het werkt nog steeds niet

ik zou niet weten wat er fout is want ik ben nog niet zo goed met macro's als jij dus ik kan het niet zelf uitzoeken.

ik maak normaal alleen te lange macro's lol zoals degene die ik hier had gepost.



Greetz AvA

 

[Avalondra]

Ik heb het gevonden!!!

ik heb adres klant en email klant uit 3 kolomen gemaakt

adres is E,F,G
email is H,I,J


de fout was dus G26 lol

die moest H26 zijn

Greetz AvA

Bedankt Voor je hulp :thumb:


ps. ik hb ook een regeltje ingevoegd die de cel selecteerd als hij leeg is (is makkelijker invullen is een klik met de muis minder lol)