Code

[Jack Nouws]

Nu weet je tenminste hoe je dat type van variabelen declareert en opvult.

Dat vertel ik net dat weet ik niet, want ik begrijp dat niet.

Met vr gr
Jack

 

[Wigi]

Veel valt daar toch niet aan te begrijpen?

Je kiest een naam voor de variabele, en vult die dan op een analoge wijze als ik deed.

Regel 3 in beide codeblokjes is een voorbeeld van wat je er dan mee kan doen.

 

[Roncancio]

Dat vertel ik net dat weet ik niet, want ik begrijp dat niet.

Met vr gr
Jack

Met het declareren van variabelen reserveer je een gedeelte van het geheugen.
Het is meer dan een goede gewoonte. Bij sommige computerprogramma's is het zelfs verplicht. Doe je dit niet dan beschouwt VBA de variabele als Variant en neemt het onnodig veel geheugenruimte in beslag. Dit kan vertragend werken (zeker bij grotere applicaties).
Bovendien weten andere ontwikkelaars (die wellicht de applicatie willen aanpassen) niet wat er kan worden ingevuld.

Bijvoorbeeld als je uitsluitend een letter als variabele gebruikt dan weet men niet of het hier om een String, Long, Double, etc gaat.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Ik snap wel dat bij deze code ws de naam van het tabblad draagt

Dim ws As Worksheet
Set ws = Sheets(1)
Msgbox ws.Name

en dat bij deze code str een stuk tekst met zich meeneemt

Dim str As String
str = "een stuk tekst"
Msgbox str

Maar ik weet niet met welk stuk tekst ik "str" moet moet laten meenemen
Dus:

Dim str As String
str = "????"

Ik weet niet of je me hier iets in duidelijk wil maken

Met vr gr
Jack

 

[Roncancio]

Ik praat even voor mijn beurt maar het was maar een voorbeeld.

str kan van alles zijn:
- getal
- waarde uit cel
- waarde uit besturingselement
etc

dus:
str = 4
str = "6"
str = Range("A1").Value
str = Userform1.Textbox1.Value

etc.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Roncancio

Dus als ik het goed begrijp kan het ook een combobox zijn.
str = Me.CboNaarBron.ListIndex

Met vr gr
Jack

 

[Roncancio]

Dus als ik het goed begrijp kan het ook een combobox zijn.

Met vr gr
Jack

Wel, de waarde van een combobox.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Wel, de waarde van een combobox.

Met vriendelijke groet,


Roncancio

zo,

str = FrmOverschrijvingen.CboNaarBron.Value

of zo

str = Me.CboNaarBron.ListIndex

Met vr gr
Jack

 

[Wigi]

Dat mag beide.

Bij Me. dient de code dan wel te staan in de code van de userform FrmOverschrijvingen.

 

[Roncancio]

FrmOverschrijvingen.CboNaarBron.Value

Ja inderdaad.

str = Me.CboNaarBron.ListIndex

Kan, maar ListIndex genereert een getal dus dan zou je eerder een Integer, Long oid verwachten.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Hallo Roncancio

Ik heb het bestand flink ingekort en meegepost dan kun je het eens bekijken. Ik heb alleen de post WERK nog intact kunnen houden samen met de BETAALREKENING. Dan kun je eens kijken of het nodig is om de befaamde code aan te passen.

Met vr gr
Jack

 

[Roncancio]

Wat moet ik precies controleren?

Een aantal tabbladen zijn verborgen en uit principe zal ik deze tabbladen niet (proberen te) bekijken.
Wat betreft de code heb ik nog enkele opmerkingen:
1) De gebruiker kan op OK klikken zonder dat hij/zij een keuze heeft gemaakt. Zodat er een foutmelding verschijnt. Dit kan je ondermeer oplossen via bijvoorbeeld:
- Knop OK is disabled. Of te wel, er kan niet op geklikt worden.
- Er verschijnt een melding als niet de betreffende velden zijn ingevuld.

2) Dit heeft m.i. weinig tot geen toegevoegde waarde:

Dim MyRange             As Variant

Set MyRange = Worksheets("2009")

    With MyRange.Range("AA:AA")

Dan kan je net zo goed zeggen:

    With Worksheets("2009").Range("AA:AA")

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Wat moet ik precies controleren?

Graag even de formules in tabblad Overzichten nalopen Cel B3, B7, C7, F7, I7 en L7. Ik denk dat het simpeler kan om daar de gevraagde gegevens te laten verschijnen.

Met vr gr
Jack

 

[Jack Nouws]

1) De gebruiker kan op OK klikken zonder dat hij/zij een keuze heeft gemaakt. Zodat er een foutmelding verschijnt. Dit kan je ondermeer oplossen via bijvoorbeeld:
- Knop OK is disabled. Of te wel, er kan niet op geklikt worden.
- Er verschijnt een melding als niet de betreffende velden zijn ingevuld.

Dit heb ik opgelost door On Error Resume Next toe te voegen hierdoor krijg ik netjes een melding dat mijn velden niet zijn ingevuld.

Met vr gr
Jack

 

[Roncancio]

Graag even de formules in tabblad Overzichten nalopen Cel B3, B7, C7, F7, I7 en L7. Ik denk dat het simpeler kan om daar de gevraagde gegevens te laten verschijnen.

Met vr gr
Jack

Er is een beveiliging op zodat ik de formules niet kan zien.
Ik kan de beveiliging wel uitschakelen maar dat doe ik uit principe niet.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Er is een beveiliging op zodat ik de formules niet kan zien.
Ik kan de beveiliging wel uitschakelen maar dat doe ik uit principe niet.

Met vriendelijke groet,


Roncancio

hallo

Er zitten echt geen geheimen achter deze beveiligingen hoor. En er staat ook geen gevoelige informatie op.
Van mij heb je toestemming om alles te bekijken.

Met vr gr
Jack

 

[Roncancio]

Graag even de formules in tabblad Overzichten nalopen Cel B3, B7, C7, F7, I7 en L7. Ik denk dat het simpeler kan om daar de gevraagde gegevens te laten verschijnen.

Met vr gr
Jack

Met de formules kan ik wel leven maar ik begrijp niet waarom je zoveel tabellen gebruikt voor hetzelfde. Of laat ik het anders zeggen: "Wat is de toegevoegde waarde van de tabel vanaf cel O2 van Overzichten?".

Je zou kunnen verwijzen naar bijvoorbeeld de AA-kolom van 2009:

=VERT.ZOEKEN(C3;'2009'!AA1:AB1000;2;ONWAAR)

Of de AA-kolom van Overzichten:

=VERSCHUIVING(AA1;VERGELIJKEN(C3;AA:AA;0)-1;-1;1;1)

Met vriendelijke groet,


Roncancio