Formulier hulp

[Commander]

Dag,

Ik heb een formulier gemaakt met diverse opties. er zijn echter een aantal dingen die Ik niet voor elkaar krijg;

-Er wordt nu opgeslagen vanuit cel C9, eigenlijk wil ik cel C9 en J9 als waardes opslaan,
(dus in dit geval straat + nummer) met de benoeming 'brandkraan' erbij.

-Cel J7 moet eigenlijk een keuzevak zijn, waarden staan op blad 2.

-Bij opstarten moet er direkt een formulier starten.

-De buttons op het formulier 'opslaan' en 'leeg maken'werken niet.

Ik heb al diverse formulieren bekeken, maar ik weet niet zo goed waar ik de code's moet plaatsen. Het is een hele waslijst, maar ik hoop dat iemand wil helpen.

Groet Commander.

 

[HSV]

Alvast een begin.
Drie vragen beantwoord.
deze:
-De buttons op het formulier 'opslaan' en 'leeg maken'werken niet.
nog niet.
Ik ga naar bed.

 

[Cobbe]

Is nog véél werk aan, foutcontrole bv.

Cobbe

 

[Commander]

Dag,

Harry en Cobbe bedankt voor jullie hulp zo laat nog.

-Het keuze vak, kan deze ook op het formulier?
-In de selectievakjes verschijnt nu de melding 'Waar', dit moet eigenlijk bij aanvinken een 'X' zijn en bij leeg een 'O', kan dit?

-Er wordt nu opgeslagen vanuit cel C9, eigenlijk wil ik cel C9 en J9 als waardes opslaan,
(dus in dit geval straat + nummer) met de benoeming 'brandkraan' erbij.

Goede Paasdagen,

Groet Commander.

 

[Cobbe]

Als je getest had, had je gezien dat de opgelagen naam wel degelijk C9 & J9 & Brandkraan bevat.
Ik heb een paar checkboxen aagepast aan uw wensen de rst kun je zelf wel, zo kan je een beetje oefenen.

Succes, Cobbe

 

[Cobbe]

Ik heb het keuzevak in het formulier ook gemaakt.
En de rest van de checkboxen in één weg meegedaan.

Cobbe

 

[Warme bakkertje]

If CheckBox1 = True Then [A13] = "X" Else If CheckBox1 = False Then [A13] = "O"

zou ik persoonlijk wijzigen in

[A13] = IIf(CheckBox1,"X","O")

Kwestie van de vingers niet te veel te vermoeien

 

[Cobbe]

Goed gezien, maar had de eerste regel klaar en heb de rest gekopiëerd.
Naderhand weer aanpassen was eigenlijk te veel werk.
Maar is een goede oefening voor de vrager.

Cobbe

 

[Commander]

Dag,

Cobbe en HSV, heel erg bedankt voor jullie hulp, begin nu iets te begrijpen van VB.

Ik probeer nu de code zo te veranderen dat alleen het werkblad waar het formulier naar toe schrijft opgeslagen wordt met de naam en gegevens.

Dit is wat er nu staat;
ActiveWorkbook.SaveAs "F:\Brandkranen\" & "Brandkraan" & "-" & Range("C9").Value & "-" & Range("J9").Value & ".xls"

Heb dit geprobeerd;
ActiveWorkSheet.SaveAs "F:\Brandkranen\" & "Brandkraan" & "-" & Range("C9").Value & "-" & Range("J9").Value & ".xls"

Dit werkt niet, Het is toch het actieve werkblad?

Suggesties?

groet Commander.

 

[Warme bakkertje]

Maak een kopie van het actieve werkblad en sla dan deze kopie op onder de gewenste naam.

 

[Commander]

Dag,

Kan ik ook een printer speciaal toewijzen aan dit formulier, op die manier hoef ik niet een werkblad op te slaan. Dan kan ik printen als PDf.

Is hier een code voor?

Groet Commander.

 

[Warme bakkertje]

bv.

Application.ActivePrinter = "CutePDF Writer op CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= "CutePDF Writer op CPW2:", Collate:=True