Invul sheet + UserForm

[nick22]

Beste vrienden,

Ik heb een klachten formulier gemaakt ,en deze wordt door een UserForm ingevuld
ik heb deze nu bijna klaar maar zit nog met het volgende probleem :

TextBox 9 - 14 - 10 kan gewoon invullen maar als ik het dan naar het formulier weg schrijf
dan lopen de zinnen in het formulier door en komen dus buiten het formulier te staan
Weet 1 van jullie hier een oplossing voor zodat alles netjes binnen de lijntjes blijft.

Tevens zoek ik nog een manier om het formulier op te slaan op de schijf

Zie Bijlage

Alvast bedankt voor het mee denken
Nick

 

[snb]

Celeigenschappen/uitlijning/terugloop aanvinken

 

[Gielleke]

Beste Nick,

1. Bepaal waar jou tekst moet komen.
2. Selecteer de cellen en voeg deze samen en centreren.
3. Tekstterugloop aanschakkelen.
4. Tekst links uitlijnen.

Kijk maar naar het voorbeeld.

Veel succes.
Bij vragen horen wij het graag!!

Groeten,
Angelo

 

[nick22]

Beste Nick,

1. Bepaal waar jou tekst moet komen.
2. Selecteer de cellen en voeg deze samen en centreren.
3. Tekstterugloop aanschakkelen.
4. Tekst links uitlijnen.

Kijk maar naar het voorbeeld.

Veel succes.
Bij vragen horen wij het graag!!

Groeten,
Angelo

Angelo bedankt het is gelukt,
nu zoek nog een manier op na het invullen via een macro het bestand op te slaan

 

[Gielleke]

Beste Nick,

Speciaal voor jou!!
Ben zelf blij dat ik jou kunnen helpen heb hoor.

Even ter zaken:

Zéér eenvoudige code:

Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs "C:\Users\Loeke.x\Desktop\" & Range("D8").Value & ".xls"
End Sub

Zoals je kan zien, heb ik de keus gemaakt dat alle documenten dat u opslaat dat deze bij mij op het bureaublad komen te staan. Natuurlijk kan je dat zelf wijzigen. Sluit wel steeds af met een "\" anders geeft de titel een fout.

En het document krijgt de naam van de klant op jou document uit cel D8.

Bij vragen horen wij het graag!!

Veel plezier,
Groeten,

Angelo

P.S. Die User Loeke.x is de naam van mijn pc. Speciaal voor mijn vriendin.:love:

 

[nick22]

Beste Nick,

Speciaal voor jou!!
Ben zelf blij dat ik jou kunnen helpen heb hoor.

Even ter zaken:

Zéér eenvoudige code:

Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs "C:\Users\Loeke.x\Desktop\" & Range("D8").Value & ".xls"
End Sub

Zoals je kan zien, heb ik de keus gemaakt dat alle documenten dat u opslaat dat deze bij mij op het bureaublad komen te staan. Natuurlijk kan je dat zelf wijzigen. Sluit wel steeds af met een "\" anders geeft de titel een fout.

En het document krijgt de naam van de klant op jou document uit cel D8.

Bij vragen horen wij het graag!!

Veel plezier,
Groeten,

Angelo

P.S. Die User Loeke.x is de naam van mijn pc. Speciaal voor mijn vriendin.:love:

Hallo Angelo

wat ik ook probeer krijg steeds 1004 fout code
Hier moet het opgeslagen worden
ActiveWorkbook.SaveAs "C:\Users\Mijn documenten\Klachten\"& Range("D8").Value & ".xls"

wat ik ook doe steeds fout 1004,nu doe ik iets niet goed maar wat dat weet ik niet

 

[trucker10]

wat ik ook probeer krijg steeds 1004 fout code
Hier moet het opgeslagen worden
ActiveWorkbook.SaveAs "C:\Users\Mijn documenten\Klachten\"& Range("D8").Value & ".xls"

Hallo ,
Maak de map aan op je pc , ga dan naar de map > doe een rechtermuisklik en kijk wat daar bij de eigenschappen staat , neem deze over in je macro . Ik denk dat er nog een gebruikers naam tussen moet ."C:\Users\??????????\Mijn documenten\Klachten\"& Range("D8").Value & ".xls"

 

[Gielleke]

Beste Nick,

Volgens mij is het probleem ook wat "Daniël" al vertelde.

Zo niet, horen wij het wel.

Groeten,

Angelo

 

[nick22]

Hierbij allen bedankt ik heb het met jullie hulp voor elkaar gekregen Thanks:thumb::thumb::thumb:

En hierbij is de vraag opgelost

 

[Gielleke]

Beste Nick,

Geen dank!!

Wij proberen ook maar ons best te doen wat we kunnen.

Veel plezier.
Groeten,

Angelo