van info stempel maken

[jeroenbrw]

Goedendag allemaal,

ik ben in excel bezig met een voorraadbeheersysteem, nu wil ik echter van bepaalde info een productstempel maken.

nu is de vraag hoe kan ik in excel op bijv blad 1 een regel selecteren en zorgen dar daarvan de artikelnummers en productinfo(naam product) op blad 2 worden neergezet op stempel format(etiket) zodat deze met een labelprinter uit te printen is?


alvast bedankt

 

[Cobbe]

Maak eens een voorbeeldje.
Moet die stempel bewaard worden of wijzigt die bij elke selectie?

 

[jeroenbrw]

bij elke selectie moet de info veranderen. dus ik heb nu in map 1 bijv dit staan kwa info: 53001 bevestigingsbeugel 6 5 1 3 3 3 2 4 7
op map 2 heb ik meer info dat is direct de bestellijst: 53001 43597BBFG6 A bevestigingsbeugel 4

dus dan heb ik via blad 2 eigenlijk alles wat ik nodig heb. eerste Eigen artikel nr. 2e artikel nr leverancier, 3e leverancier, 4e productinfo. alles hierin is nu nog even fictief.

dus als ik op map/blad 2 een rij selecteer moet ik op blad 3 een stempel krijgen met artikel nr's en productinfo, maar dat moet dus per selectie makkelijk te wijzigen zijn, dat dat dus automatisch gebeurd

 

[Cobbe]

Is het zo iets dat je zoekt?
Indien je een rij selecteert in Blad1 wordt die rij op Blad2 getoond.

 

[jeroenbrw]

ja zo ongeveer moet ik het hebben, hoe kan ik dit zo voor elkaar krijgen

 

[Cobbe]

Zonder layout kan ik u dat niet goed/kort uitleggen.
Post het bestand (met dummy-gegevens) zodat het duidelijk is wat je wil,
en vooral de layout van de 'stempel'.

 

[jeroenbrw]

Bekijk bijlage Map1.xlsx

deze info waar een v onder staat moet erop komen en dan zo dat ik het met dymo kan uitprinten

 

[Cobbe]

Ik wil wel helpen maar dan moet jij ook een beetje mee willen.
Maak eens iets klaar zoals het afgeleverd moet worden, ik werk niet elke dag met een Dymo-printer, weet dus niet in welke layout dat moet gebeuren.
Moeten de gegevens van blad1 naar blad2 of omgekeerd? ik weet dat allemaal niet.

 

[jeroenbrw]

zo ongeveer zoals het er nu staat moet het erin komen, maar als je kan vertellen hoe je dat andere van net hebt gedaan weet ik voldoende denk ik.

blad 3 moet het ongeveer wordenBekijk bijlage Map1.xlsx

 

[Cobbe]

Zet dan deze code achter het werkblad waarin de gegevens staan.
Dus NIET in een module maar direct in het werkblad!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' de code werkt maar in het bereik A1:E10 in dit voorbeeld
If Intersect(Target, .Range("A1:E10")) Is Nothing Then Exit Sub
' er moet geschreven worden naar Blad2 (sheets(2))
With Sheets(2)
' zet in cel A2 de inhoud van de geselecteerde rij kolom A neer
  .Range("A2") = Cells(ActiveCell.Row, 1)
' zet in cel A3 de inhoud van de geselecteerde rij kolom B neer
  .Range("A3") = Cells(ActiveCell.Row, 2)
' zet in cel A4 de inhoud van de geselecteerde rij kolom C neer
  .Range("A4") = Cells(ActiveCell.Row, 3)
' zet in cel A5 de inhoud van de geselecteerde rij kolom D neer
  .Range("A5") = Cells(ActiveCell.Row, 4)
' zet in cel A6 de inhoud van de geselecteerde rij kolom E neer
  .Range("A6") = Cells(ActiveCell.Row, 5)
End With

End Sub

 

[jeroenbrw]

hier kom ik niet uit......

 

[Cobbe]

Waarom niet?? Zo moeilijk is dat allemaal niet hoor.
Als je in je geopend bestand op Alt-F11 drukt kom je in de VBE.
Dan zie je rechts een blanco scherm en links een explorer.
Kies daar in het bestand waarin je nu werkt op het werkblad met de naam van de gegevens(dubbelklikken)
Daarna plak je de code die ik u gegeven heb daarin.
Zet uw cursor op de eerste regel en druk F8 en steeds weer en zie wat er op elke regel gebeurt.

Venster sluiten via x en klaar is Jeroen.

 

[jeroenbrw]

Waarom niet?? Zo moeilijk is dat allemaal niet hoor.
Als je in je geopend bestand op Alt-F11 drukt kom je in de VBE.
Dan zie je rechts een blanco scherm en links een explorer.
Kies daar in het bestand waarin je nu werkt op het werkblad met de naam van de gegevens(dubbelklikken)
Daarna plak je de code die ik u gegeven heb daarin.
Zet uw cursor op de eerste regel en druk F8 en steeds weer en zie wat er op elke regel gebeurt.

Venster sluiten via x en klaar is Jeroen.

ik krijg dit niet voor erlkaar, is er geen makkelijkere oplossing?

 

[Cobbe]

Kijk ik heb de code nog eens in uw bestand gezet, open dit en druk op Alt-F11.
Dan zie je links een explorer met ook uw bestand erin, dubbelklik op Blad2,
nu opent zich het scherm met de code zichtbaar.

Met de nodige uitleg erbij, dus kan je dit ook aanpassen voor uw eigen bestand.

Anders moet je het bestand maar mailen als het echt dringend is.