samedi 21 février 2015
Loop functie
Posted on 14:33 by Unknown
Beste leden,
Ik ben een code aan het schrijven die de eerste 4 gegevens van tabel1 naar tabel2 plaatst en ze dan kopiert en in tabel 3 plakt.
daarna pakt die de volgende vier rijen en zet die weer in tabel twee waarna die weer in tabel drie worden gecopied en gepasted. dit gaat door totdat er geen criteria meer in tabel1 zit.
Het werkt ook goed alleen wil ik nu dat als er geen data in de komende 4 rijen staat dat die gelijk door springt naar de volgende 4 totdat er "DONE" of "STOP" ofzo in de rijen staat.
Nu stopt die namelijk halverwege als er geen data in de komende 4 rijen staat terwijl de vier er onder wel data staat die verwerkt moet worden.
Ik hoop dat ik het een beetje duidelijk het getypt.
Bij deze de code tot nu toe.
Sub TestPDFbouwen()
a = 14
b = 15
c = 16
d = 17
e = 18
P = 14
Do While Cells(a, 6) <> 0
Cells(14, 8) = Cells(a, 6)
Cells(15, 8) = Cells(b, 6)
Cells(15, 9) = Cells(c, 6)
Cells(16, 8) = Cells(d, 6)
Cells(16, 9) = Cells(e, 6)
a = a + 5
b = b + 5
c = c + 5
d = d + 5
e = e + 5
Range("H14:I16").Select
Selection.Copy
Cells(P, 11).Select
ActiveSheet.Pictures.Paste.Select
P = P + 3
Loop
Bedankt alvast!:18:
Ik ben een code aan het schrijven die de eerste 4 gegevens van tabel1 naar tabel2 plaatst en ze dan kopiert en in tabel 3 plakt.
daarna pakt die de volgende vier rijen en zet die weer in tabel twee waarna die weer in tabel drie worden gecopied en gepasted. dit gaat door totdat er geen criteria meer in tabel1 zit.
Het werkt ook goed alleen wil ik nu dat als er geen data in de komende 4 rijen staat dat die gelijk door springt naar de volgende 4 totdat er "DONE" of "STOP" ofzo in de rijen staat.
Nu stopt die namelijk halverwege als er geen data in de komende 4 rijen staat terwijl de vier er onder wel data staat die verwerkt moet worden.
Ik hoop dat ik het een beetje duidelijk het getypt.
Bij deze de code tot nu toe.
Sub TestPDFbouwen()
a = 14
b = 15
c = 16
d = 17
e = 18
P = 14
Do While Cells(a, 6) <> 0
Cells(14, 8) = Cells(a, 6)
Cells(15, 8) = Cells(b, 6)
Cells(15, 9) = Cells(c, 6)
Cells(16, 8) = Cells(d, 6)
Cells(16, 9) = Cells(e, 6)
a = a + 5
b = b + 5
c = c + 5
d = d + 5
e = e + 5
Range("H14:I16").Select
Selection.Copy
Cells(P, 11).Select
ActiveSheet.Pictures.Paste.Select
P = P + 3
Loop
Bedankt alvast!:18:
Loop functie
Categories: Loop functie
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire