doorvoer

[dinoshop]

is het mogelijk om met dit progje het getal naar doorvoer met 1 te verhogen ,automaties

 

[robbie32]

moet het nummer handmatig aan te passen blijven?
zo nee dan kan je in de macro een formule zetten welke automatisch doornummert met de gevens op blad 2
misschien handig als je het zelfde blad even onbeveiligd weer hierop zet...

 

[LucHeyndrickx]

DinoShop,

Het zou inderdaad handiger zijn indien je eerst de beveiliging van uw bestanden afhaalt alvorens ze hier te posten. Spaart ons alvast tijd uit die we nodig hebben om de code te kraken.

Ook handig zou zijn om alle overbodige modules te verwijderen. Nu moet ik gewoon zoeken waar ergens de code staat.

Zo... dit gezegd zijnde: Deze macro kan je gebruiken. Is meteen ook beter leesbaar dan uw opgenomen macro.

With Sheets("Blad2")
.Range("A3").Value = Sheets("Blad1").Range("H4").Value
.Range("H3").Value = Sheets("Blad1").Range("B5").Value
.Range("I3").Value = Sheets("Blad1").Range("E5").Value
.Range("F3").Value = Sheets("Blad1").Range("H5").Value
.Range("B3").Value = Sheets("Blad1").Range("B8").Value
.Range("C3").Value = Sheets("Blad1").Range("B11").Value
.Range("D3").Value = Sheets("Blad1").Range("B16").Value
.Range("E3").Value = Sheets("Blad1").Range("C18").Value
.Range("G3").Value = Sheets("Blad1").Range("H9").Value
.Rows("3:3").Insert Shift:=xlDown
End With

Sheets("Blad1").Range("H4").Value = _
Sheets("Blad1").Range("H4").Value + 1

Luc

 

[jzeedijk]

Hoi Dinoshop,

Wat je moet toevoegen aan naast je formulier is een overzicht van ingevoerde offertes waarin je browsen en eventueel kunt opvragen. Momenteel heb ik even geen tijd, maar wil je er later deze week wel mee helpen, indien gewenst.

Jeroen

 

[dinoshop]

krijg een compiler fout
nog een keer zonder bev.
bvd

 

[LucHeyndrickx]

Waar krijg je een compiler fout?
En waarom zijn mijn aanwijzingen niet opgevolgd?
Hier heb je een verbeterd bestand

Luc

 

[dinoshop]

thanks

dit is perfect mijn dank is groot