VBA Macro Print range

[RichieL]

Goedenavond,

Ik loop vast op het volgende.
Ik zoek een macro waarbij die kijkt naar de range/kolom: A3:A14. Wanneer hoger dan 0 moet hij dat getal in Cel E1 plaatse en printen.

Dus A3, A5, A6 en A13.

De waarde van E1 wordt gebruikt om de onderstaande pagina in te vullen door middel van verticaal zoeken.



Hoe zou ik dat voor elkaar kunnen krijgen?

PS. ik weet niet hoe ik het documentje moet toevoegen.

 

[emields]

Met een voorbeeldbestand te plaatsen, aan tekeningen hebben de helpers niets.


P.S. Voor je het plaatst verwijder je best alle samengevoegde cellen.

 

[edmoor]

Lees zelf je relaas nog eens en vraag je dan af hoe iemand daar een antwoord op kan geven dat je probleem oplost.

 

[cow18]

Sub Richard()
    With Sheets("MijnBlad")                                          'vervang dit door de naam van je werkblad
        i = WorksheetFunction.Max(.Range("A3:A14"))
        If i > 0 Then
            .Range("E4").Value = i                                   'wegschrijven naar E4
            .Range("D14:H50").PrintOut preview:=True                 'afdrukken van dit bereik, eventueel preview false zetten
        End If
    End With
End Sub

 

[RichieL]

Hij werkt bijna, maar de macro pakt alleen de laatst gevulde van de range A3:A14. Dus hij neemt alleen A13 (11)

 

[VenA]

Svp niet quoten. Gebruik de knop Reageer op bericht.

Sub VenA()
  With Blad1
    ar = .Cells(3, 1).CurrentRegion
    For j = 1 To UBound(ar)
      If ar(j, 1) <> 0 Then
        .Range("E4").Value = ar(j,1)
        .Range("D14:H50").PrintOut preview:=True
      End If
    Next j
  End With
End Sub

 

[cow18]

als die max-functie de rest niet meenneemt, dan vermoed ik dat die rest "tekst" is ipv. getallen (zijn ze links gealinieerd ?)

 

[RichieL]

Ik heb een voorbeeld document geplaatst in deze link: https://drive.google.com/open?id=1S0u3qrs0qcKyK3c56w08jflIsL602YT-

Misschien dat dit helpt.

 

[snb]

Het lijkt me handiger eerst dit te bekijken: https://www.helpmij.nl/forum/announcement.php?f=5

 

[VenA]

Probeer het zo maar eens.

 

[RichieL]

Bedankt allen voor jullie hulp!
Hij doet het perfect:thumb: