Ik krijg de opmaak vanuit een formulier niet netjes op het Tabblad

Status
Niet open voor verdere reacties.

Offthefield

Gebruiker
Lid geworden
27 apr 2005
Berichten
369
Ik ben bezig met het maken van een werklijstformulier, maar ik heb problemen met de opmaak vanuit
een formulier

Ik wil ze als volgt opmaken :
A Text (links uitlijnen)
B Datum volledig (bv. maandag 21 augustus 2017) - links uitlijnen
C Text
D Text (hier wil ik later nog een combobox van maken)
E Decimaal (heel getal)
F Tijd (bv. 8:00) - rechts uitlijnen
G Tijd (bv. 8:00) - rechts uitlijnen
H Tijd (bv. 8:00) , wil ik nog een berekening van maken (G-F)
I Decimaal (2 decimalen achter de komma) - rechts uitlijnen
J Decimaal (2 decimalen achter de komma) - rechts uitlijnen
K Text - rechts uitlijnen
L Text - rechts uitlijnen

De procedure voor het plaatsen naar het tabblad werkt goed, alleen van een aantal krijg ik de opmaak niet mooi

Is er iemand die mij hierbij kan helpen?

Alvast bedankt
 

Bijlagen

  • PLANNING2017.xls
    43,5 KB · Weergaven: 26
geef dan ook even aan welke je wilt nog niet voor elkaar hebt. dat maakt het wat makkelijker.

voor de lange datumnotatie zou je deze kunnen doen:
Code:
.Range("B" & lRij).Value = Format(TextBox1.Text, "long date")
 
SjonR,

Hartelijk dank!

1 van de problemen opgelost

Bij de volgende velden werkt de opmaak nog niet :

.Range("I" & lRij).Value = Format(TextBox8.Text, "0.00")
.Range("J" & lRij).Value = Format(TextBox9.Text, "0.00")

Bij beide kolommen zijn niet decimaal maar een text veld

Kolom H wil ik eigenlijk automatisch laten uitrekenen, dus eindtijd (Kolom G) - begintijd (Kolom F)

Ik hoop dat je iets meer aan deze informatie hebt.
 
Het decimale gedeelte ook opgelost met :

.Range("I" & lRij).Value = Ccur(TextBox8.Text)
.Range("J" & lRij).Value = Ccur(TextBox9.Text)

Nu alleen nog de berekening van Begintijd - Eindtijd

Heeft iemand een idee hoe ik dat aan moet pakken?

Alvast bedankt
 
Ik ben al weer iets verder gekomen, alleen ik krijg het tijd veld (bv. 7:00) niet goed in textbox5.text,
deze wordt nl. 7:00:00 AM en 15:00 (textbox6.text)wordt 03:00:00 PM (dit zal zijn omdat ik de cdate-functie gebruikt)
en het verschil hier tussen moet komen (textbox7.text) op 8:00, maar wordt 08:00:00 AM

Textbox5.text moet dus worden 7:00
Textbox6.text moet dus worden 15:00
Textbox7.text moet dus worden 8:00 (textbox6.text - textbox5.text)

Code:
Private Sub CmdNew5_Click()
Dim iTotaal As Date, iBegin As Date, iEinde As Date
Dim i As Integer

i = 1
While ThisWorkbook.Worksheets("WERKLIJSTEN").Range("A" & i).Value <> ""
i = i + 1
Wend
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("A" & i).Value = TextBox0.Text
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("B" & i).Value = Format(TextBox1.Text, "dd-mmmm-yyyy;@")
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("C" & i).Value = TextBox2.Text
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("D" & i).Value = TextBox3.Text
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("E" & i).Value = TextBox4.Text
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("F" & i).Value = CDate(TextBox5.Text)
iBegin = CDate(TextBox5.Text)
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("G" & i).Value = CDate(TextBox6.Text)
iEinde = CDate(TextBox6.Text)
iTotaal = iEinde - iBegin
TextBox7.Text = iTotaal
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("H" & i).Value = CDate(TextBox7.Text)
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("I" & i).Value = TextBox8.Value
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("J" & i).Value = CCur(TextBox9.Text)
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("K" & i).Value = TextBox10.Text
ThisWorkbook.Worksheets("WERKLIJSTEN").Range("L" & i).Value = TextBox11.Text
End Sub

Hoe kan ik dit goed krijgen, heeft iemand een idee?

Alvast bedankt
 

Bijlagen

  • PLANNING2017.xls
    74,5 KB · Weergaven: 20
Dat hele stuk kan in een verkorte versie.
Code:
Private Sub CmdNew5_Click()
Sheets("WERKLIJSTEN").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 12) = Array(TextBox0.Value, CDate(TextBox1.Value), TextBox2.Value, _
TextBox3, TextBox4, CDate(TextBox5), CDate(TextBox6), CDate(TextBox7), TextBox8.Value, CCur(TextBox9.Value), TextBox10, TextBox11)
End Sub

Code:
Private Sub TextBox6_AfterUpdate()
TextBox7 = Format(CDate(TextBox6) - CDate(TextBox5), "hh:mm")
End Sub
 
HSV,

Geweldig precies wat ik wilde en ook direct geleerd hoe TextBox6_AfterUpdate werkt.

Top
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan