Auteur Topic: 1 BEPAALDE RIJ GEGEVENS AFRDUKKEN (gelezen 1794 keer)

SW · « **Gepost op:** 31 augustus 2006, 10:11:50 »

Op tabblad1 heb ik gegevens opgeslagen.
Rij1= [01/01/2006] [jan]
Rij2= [03/05/2006] [paul]
Rij3= [08/06/2006] [stef]

Ik wil met deze gegevens via een macro een afdruk van 1 bepaalde rij maken.

Dus als ik rij 2 selecteer, wens ik naar tabblad 2 de volgende gegevens te kopiëren :

[03/05/2006] verschijnt in cel A1
[paul] verschijnt in cel B3

De printer drukt dit tabblad af ( de macro wist eventueel de gegevens op tabblad 2 indien nodig) + de cursor komt terug naar tabblad 1 in cel B2

WG · « **Reactie #1 Gepost op:** 31 augustus 2006, 11:31:40 »

Zoiets?

Code: [Selecteer]

Sub printingrows()
Dim row As Long
row = InputBox("Geef rijnummer op.")
With Worksheets("Blad2")
    .Cells.ClearContents
    .Range("A1") = Worksheets("Blad1").Range("A" & row)
    .Range("B3") = Worksheets("Blad1").Range("B" & row)
    .PrintOut
End With
End Sub

Wigi

SW · « **Reactie #2 Gepost op:** 31 augustus 2006, 13:01:01 »

Bedankt voor de snelle hulp !!!
Werkt perfect !

WG · « **Reactie #3 Gepost op:** 31 augustus 2006, 15:46:04 »

Citaat van: SW op 31 augustus 2006, 13:01:01

Bedankt voor de snelle hulp !!!
Werkt perfect !

Graag gedaan. Blij dat het werkt. En nog wel van de 1ste keer!

Wigi

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: 1 BEPAALDE RIJ GEGEVENS AFRDUKKEN (gelezen 1794 keer)

SW

1 BEPAALDE RIJ GEGEVENS AFRDUKKEN

WG

Re:1 BEPAALDE RIJ GEGEVENS AFRDUKKEN

SW

Re:1 BEPAALDE RIJ GEGEVENS AFRDUKKEN

WG

Re:1 BEPAALDE RIJ GEGEVENS AFRDUKKEN