En gelukt, thanksquote:Op maandag 26 oktober 2009 11:17 schreef DaFan het volgende:
Hierzo voor global (Public) variables:
[ code verwijderd ]
ik had ook al zoiets gelezen op internet. Maar ik zie de groupsnaam niet staan. Kan het dat ik de verkeerde radiobutton component gebruik? Ik gebruik de radiobutton in het forms werkblad.quote:Op dinsdag 27 oktober 2009 11:27 schreef DaFan het volgende:
In de Eigenschappen van de radio-buttons zit een eigenschap 'Groepnaam'
Deze moet je aanpassen, nu behoren ze tot 1 groep en kan je er maar 1 aanklikken.
Ik heb nu ook dit keuzerondje gepakt maar ik kan hier niet op klikken. Zie de groupname wel staan. Weet je ook waarom hierop niet kan worden geklikt?quote:Op dinsdag 27 oktober 2009 12:15 schreef DaFan het volgende:
Bij mij heet het Groupname. Ik gebruik de standaard 'Keuzerondje' ( ) uit de Werkset Besturingselementen.
Ook via een Userform heb ik bij de Eigenschappen Groupname staan (hij is wel leeg hier itt als je m rechtstreeks op je werkblad neerzet).
Dank je wel ! Ik ga morgen even puzzelen, laat wel weten als het is gelukt .quote:Op maandag 26 oktober 2009 12:11 schreef Twentsche_Ros het volgende:
[..]
Als je een eenvoudig excel-programma’tje wil maken, waar de mutaties helder blijven en de maandinkomsten en uitgaven worden getotaliseerd is het volgende programma geschikt.
Werk altijd via de mutaties van het banksaldo.
Open een werkblad: Banksaldo
Dan zet je in kolom A de datum
Kolom B komt bv: Albert Heijn
Kolom C het bedrag
Kolom D cumuleert het banksaldo (checken met je dagafschrift of via internet)
Kolom F geef je de rubriek (in dit geval “boodschappen”)
Kolom G: de code
=+JAAR(A2)*100+MAAND(A2)Dan krijg je b.v.: 200910 als code voor de maand.Kolom H: de formule:=+F2&"/"&g2
Dat wordt dan bv: boodschappen/200910
De totalen van allen uitgaven kun je in Blad1 neerzetten:
Zet bv in A3: boodschappen
Zet in C1: Oktober
Zet in C3:
=SOM.ALS(Banksaldo!$h:$h;"Boodschappen/200910";Banksaldo!$c:$c)
En dat doe je met alle maanden in combinatie met alle posten.
Zo kun je in het blad “Banksaldo” de mutaties bijhouden en de standen in blad 1.
Geen hoogdravende Excel-formules.
Maar 't bulkt van de de degelijkheid
Enabled stond op true. maar ik was niet uit de design modus . Oliedom weer. Thx!quote:Op dinsdag 27 oktober 2009 14:43 schreef DaFan het volgende:
Heb je m op Enabled = False staan?
En je moet zeker weten uit Design mode gaan.
Kan wel maar de mensen die het formulier moeten gaan gebruiken op de andere afdeling kunnen dat vast nietquote:Op woensdag 28 oktober 2009 09:11 schreef sanger het volgende:
Kun je niet het beste deze rijen even verbergen? Rijen selecteren, rechtsklik en verbergen.
Dat had ik dus gedaan maar dat werkte nietquote:Op woensdag 28 oktober 2009 09:26 schreef Beregd het volgende:
je kunt ook met print area werken en (A3:F15;A19:F24' selecteren en dan zeggen set print area) en dan met page setup ervoor zorgen dat het op 1 pagina komt.
Heb je de rijen nodig dan? Als jij ze verbergt dan zijn ze ook voor anderen verborgenquote:Op woensdag 28 oktober 2009 09:21 schreef ReWout het volgende:
[..]
Kan wel maar de mensen die het formulier moeten gaan gebruiken op de andere afdeling kunnen dat vast niet
Ik heb ze niet nodig maar de werknemers wel, echter de klant niet Zal wel eens kijken met de button hoewel dat ook natuurlijk niet idiaal is... best raar dat excel zoiets eenvoudigs niet kan.quote:Op woensdag 28 oktober 2009 09:42 schreef sanger het volgende:
[..]
Heb je de rijen nodig dan? Als jij ze verbergt dan zijn ze ook voor anderen verborgen
Ah nice had net zelfquote:Op woensdag 28 oktober 2009 09:58 schreef DaFan het volgende:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sheets("Deckblatt").Select Rows("16:18").Select Selection.EntireRow.Hidden = True Sheets("Protokoll").Select Rows("4:10").Select Selection.EntireRow.Hidden = True ActiveWorkbook.PrintOut Copies:=1, Collate:=True Rows("3:11").Select Selection.EntireRow.Hidden = False Sheets("Deckblatt").Select Rows("15:19").Select Selection.EntireRow.Hidden = False End Sub |
1 2 3 4 5 6 7 8 9 10 | Sheets("Deckblatt").Select Rows("16:18").Select Selection.EntireRow.Hidden = True Sheets("Protokoll").Select Rows("4:10").Select Selection.EntireRow.Hidden = True Application.OnTime Now, "Workbook_AfterPrint" End Sub |
1 2 3 4 5 6 7 8 | Sheets("Deckblatt").Select Rows("15:19").Select Selection.EntireRow.Hidden = False Sheets("Protokoll").Select Rows("3:11").Select Selection.EntireRow.Hidden = False End Sub |
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |