Een tekstvak waarin je je tekst typt.

[michael0611]

Ik heb de volgende vraag:

Ik wil een factuur opstellen voor mn eenmanszaak.

Dan wil ik bij de klant gegevens hebben dat onderelkaar naam, adres enzo staan.

Dan wil erachter de desbetreffende naam enzo invullen in zo'n grijs tekstvak, die blijft staan, die je in kan vullen zeg maar.

Ik heb al gezocht, maar ik kom er niet uit.

Mvg, Michael

 

[danny147]

Beste michael0611

Heb je soms een voorbeeldje hoe je het graag zou willen ?

Groetjes Danny. :thumb:

 

[Jack Nouws]

Hallo,

Bedoel je zoiets?

Met vr gr,
Jack

 

[michael0611]

Ja precies dat bedoel ik
Alleen nu ben ik een beetje verder gegaan met dat bestandje, maar hoe moet ik daadwerkelijk een ''klant'' toevoegen?

Alvast van harte bedankt, Michael

 

[Warme bakkertje]

Het is misschien handiger als je een voorbeeldje van je factuur post, zodat we je doeltreffender kunnen voorthelpen.

 

[michael0611]

Hierbij mn factuur,
Ik zou graag in blad 2, het klanten bestand toe kunnen voegen zodat ik een klant kan selecteren als factuuradres (blad 1)

Hierbij mn bestandje


Mvg, Michael

 

[robdgr]

Michael,

Geef je klanten een klantnummer, zet dat nummer in je factuur en laat via vert.zoeken alle gegevens plaatsen.

 

[Noord2011]

Ik heb wat in elkaar gezet!

Zie bestaand.

Mv/Gr

 

[michael0611]

Helemaal geweldig:d

Dit is precies wat ik bedoelde.
Hartelijk bedankt allen:thumb:

Groetjes

 

[robdgr]

Helemaal geweldig:d

Dit is precies wat ik bedoelde.
Hartelijk bedankt allen

Zet je de vraag nog even op opgelost?

 

[Jack Nouws]

Helemaal geweldig:d

Dit is precies wat ik bedoelde.
Hartelijk bedankt allen:thumb:

Groetjes

Hallo,

Ik heb gezien dat je nummertelling niet helemaal vlekkeloos verloopt en dit kun je verhelpen door deze code

Private Sub UserForm_Initialize()
  sq = Sheets("Klanten").Rows(1).SpecialCells(2)
   
   For j = 1 To UBound(sq, 2)
     Me("Label" & j).Caption = sq(1, j)
   Next
    [COLOR="red"]TextBox1 = Sheets("Klanten").Range("J2").Value[/COLOR]
End Sub

te vervangen door deze code

Private Sub UserForm_Initialize()
  sq = Sheets("Klanten").Rows(1).SpecialCells(2)
   
   For j = 1 To UBound(sq, 2)
     Me("Label" & j).Caption = sq(1, j)
   Next
  [COLOR="green"] TextBox1 = Sheets("Klanten").Cells(Rows.Count, 1).End(xlUp).Row - 1[/COLOR]
End Sub

Ook kun je nu de cel in Sheets("Klanten").Range("J2") leegmaken.
De code achter knop "Klant toevoegen" kun je nu ook aanpassen (de rode regel mag verwijdert worden.)

Private Sub CommandButton1_Click()
[COLOR="red"]  Range("J2") = Range("J2") + 1[/COLOR]
  Nieuwe_Klant.Show
  
End Sub

Met vr gr
Jack