Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: Draaitabel uitlijning kolom  (gelezen 3519 keer)

0 leden en 1 gast bekijken dit topic.

Offline rdcoster

  • Lid
  • *
  • Berichten: 88
  • Geslacht: Man
  • Oplossing.be
Draaitabel uitlijning kolom
« Gepost op: 07 april 2019, 09:59:23 »
Ik heb een gegevenstabel die ik aanvul via een userform met knop 'Invoer'.
Daarin wordt de datum en andere gegevens ingebracht.
De gegevens van deze tabel gaan naar een draaitabel.

Nu merk ik dat, als ik een datum manueel wijzig in mijn gegevenstabel, deze anders uitgelijnd wordt in de draaitabel.

Voor een rapport oogt dit niet zo mooi.
Is daar een remedie voor ?

In bijlage een voorbeeldbestand.

Mvg
René

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.830
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Draaitabel uitlijning kolom
« Reactie #1 Gepost op: 07 april 2019, 14:46:25 »
In de procedure 'cmbok' dit blokje aanpassen...
 
Citaat
   With Sheets("Blad1").Range("b100").End(xlUp)
        TempDat = Split(tdat, "-")
        .Offset(1).Resize(, 4) = Array(CLng(DateSerial(TempDat(2), TempDat(1), TempDat(0))), tin.Value, tuit.Value, Tcat)
    End With

Maar vooral het initialiseren van die datum omzetten naar: UserForm1.tdat.Value = Format(Date, "dd-mm-yyyy")

Daarnaast is je gebruikte methode om buiten de procedure van je formulier, je formulier te initialiseren héél bijzonder. Er bestaat een ingebouwde methode voor in het formulier zelf. Gebruik deze! ;)
______________________________

Groet, Leo

Offline rdcoster

  • Lid
  • *
  • Berichten: 88
  • Geslacht: Man
  • Oplossing.be
Re: Draaitabel uitlijning kolom
« Reactie #2 Gepost op: 08 april 2019, 08:03:51 »
@RedHead,

Ik heb de aanpassingen gedaan en nu staat alles mooi uitgelijnd.

Nog een vraag:
Citaat
Er bestaat een ingebouwde methode voor in het formulier zelf. Gebruik deze!
Waar kan ik die methode vinden ?

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 315
  • Geslacht: Man
  • Oplossing.be
Re: Draaitabel uitlijning kolom
« Reactie #3 Gepost op: 08 april 2019, 09:43:28 »
Citaat
Waar kan ik die methode vinden ?
in de code van je userform.
Private Sub UserForm_Initialize()
Sheets("Blad1").ListObjects("Tabel1").AutoFilter.ShowAllData
tdat.Value = Format(Date, "dd/mm/yyyy")
End Sub

in de code van je blad is dit voldoende.
Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

Kleurcode voor je userform, is aan te passen bij de eigenschappen. Kleuren door code is dan overbodig.
&H00FF9999&
Gebruik unload me ipv Me hide. Dan is  reset_values overbodig in de sluitknop.
Private Sub cmbanul_Click()
 Unload me
 End Sub

Voor Sub reset_values()
Nu zijn er maar drie controls die je wilt leegmaken,heb  je echter vb 30 controls dan wordt het een lange lijst.
Gebruik beter zoiets. (1 of 100 controls, maakt niets uit)
Private Sub reset_values()
For Each ct In Controls
Select Case TypeName(ct)
      Case "TextBox": ct.Text = ""
      Case "ComboBox", "ListBox": ct.ListIndex = -1
End Select
Next ct
tdat.Value = Format(Date, "dd/mm/yyyy")
end sub
in plaats van
Private Sub reset_values()
 UserForm1.tuit.Value = ""
 UserForm1.tin.Value = ""
  UserForm1.Tcat.Value = ""
End Sub

Ik zou lijst gebruiken in plaats van RowSource.
Maak een tabel van je Categorie lijst.
Stel de naam van je tabel is cat_tbl dan wordt  UserForm_Initialize:
[code]Private Sub UserForm_Initialize()
Sheets("Blad1").ListObjects("Tabel1").AutoFilter.ShowAllData
tdat.Value = Format(Date, "dd/mm/yyyy")
Tcat.List = [cat_tbl].Value
End Sub
[/code]

Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline rdcoster

  • Lid
  • *
  • Berichten: 88
  • Geslacht: Man
  • Oplossing.be
Re: Draaitabel uitlijning kolom
« Reactie #4 Gepost op: 08 april 2019, 11:09:17 »
@Dotchiejack,

Prachtige stap-voor-stap uitleg !!

'k heb wel een compromis gekozen tussen je tips en mijn code omdat de uiteindelijke code iets ingewikkelder is dan het opgestuurde voorbeeld.
Bijv. staan bij mij 2 combolists over mekaar gepositioneerd, en werk ik met de 'visible' eigenschap om na keuze in een 'Optionbutton' de één of de ander te tonen.

Dank voor de tips !!

mvg
René

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 315
  • Geslacht: Man
  • Oplossing.be
Re: Draaitabel uitlijning kolom
« Reactie #5 Gepost op: 08 april 2019, 13:03:43 »
Citaat
compromis gekozen tussen je tips en mijn code
Mooi zo, je moet zeker kiezen voor wat het beste werkt voor jou.
Dank voor de feedback :thumbsup:
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

 


www.combell.com