Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: waarden met getalnotatie samenvoegen met behoud van notatie  (gelezen 6595 keer)

0 leden en 1 gast bekijken dit topic.

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #30 Gepost op: 15 mei 2021, 16:35:58 »
***UPDATE***

Bij een 'closer' benadering van de waarden binnen de code (met uitvoeren tot...) heb ik het probleem gevonden.
Blijkbaar werd de modat nog niet herkend als datum.
Heb het aangepast door één lijntje code toe te voegen :
modat = DateAdd("d", 0, modat)En nu werkt het wél correct.

Nogmaals mijn dank voor de bereidwilligheid en mijn excuses voor de uiteindelijke overbodige vraag.

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #31 Gepost op: 15 mei 2021, 16:44:59 »
aja , ik had de code aangepast maar werkte idd niet , na toevoeging van dat ene lijntje krijg ik met mijn code dezelfde uitkomst.
heb toch even mijn aanpassing bijgevoegd....

Mvg,
Montagnard.
 
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #32 Gepost op: 15 mei 2021, 16:52:22 »
@Montagnard,

Zoals jij het aangepast hebt zo had ik het ook eerst (maar dan zonder de messagebox) maar omdat ik dacht dat het probleem bij de structuur lag had ik ondertussen tal van andere manieren geprobeerd.

Maar beide structuren werken nu dmv dat éne extra lijntje code.


groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #33 Gepost op: 15 mei 2021, 16:55:23 »
(maar dan zonder de messagebox)
dat doe ik altijd om te checken welke waarde wordt geretourneerd  ;) , achteraf als alles goed is verwijder ik die dan.
Mvg.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #34 Gepost op: 16 mei 2021, 08:48:28 »
@allen,

Vooreerst wil ik iedereen van harte bedanken voor het meedenken en het aanreiken van tips en mogelijke oplossingen inzake mijn vraag in bericht #11.

Na ruim 8 dagen uitgebreid sukkelen, knoeien en vooral na het mezelf wat meer verdiepen in de datum-functies van VBA ben ik eindelijk tot een aanvaardbaar resultaat gekomen met relatief weinig code. Voorlopig wél nog zonder aanmaak van arrays omdat ik me momenteel onvoldoende kan focussen om de code daaromtrent te doorgronden. Maar ik ga me der zeker verder op toeleggen aangezien het in meer gecompliceerde projecten zeker handig van pas zal komen.

Eerst en vooral heb ik in mijn gegevenstabel een lichte aanpassing gemaakt mbt de datums. Ipv van ze te verdelen over drie kolommen heb ik ze nu als tekst in één kolom geplaatst in de format waarmee ik het liefste werk.
Hierdoor kon ik dan de nieuw verworven kennis, omtrent de datum-functies binnen VBA, toepassen zonder enige conversie (zoals bvb bij elke datum 2000 optellen ed) te moeten uitvoeren.
Het ophalen van de benodigde datums heb ik nog steeds uitgevoerd via de "For... Next..."-loops en de geboortedatums van de kinderen heb ik dan (tijdelijk) laten wegschrijven op mijn doel-werkblad samen met de datums -300 dagen en de datums +300 dagen welke ik onmiddellijk op de juiste locatie heb laten wegschrijven.
Vervolgens heb ik dan de (tijdelijke) geboortedatums laten wissen en heb ik 2 If-statements geplaatst om bij de deel-periodes na te gaan of de startdatum wel vóór de stopdatum valt. Met de eerste If-statements bepaal ik of de startdatum groter is dan de stopdatum en zoja, laat ik de startdatum verwijderen. In de tweede If-statement laat ik de stopdatum verwijderen indien er geen startdatum vermeld staat.
Op deze manier krijg ik dan de gewenste periodes te zien waarin er eventueel nog kinderen zouden kunnen geboren zijn.
Opdracht geslaagd dus  ;D. Hop naar de volgende uitdaging...  :D :D

Om het resultaat beter te begrijpen hang ik eventjes mijn definitief (test)bestandje aan.

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #35 Gepost op: 16 mei 2021, 09:35:32 »
Goeiemorgen,
dat ziet er super uit !
ik heb gemerkt dat de knop "verwerken" vasthangt aan de kolommen F,G,H (als je de kolommen verwijderd is de "knop" ook weg) en je die niet kan verplaatsen.
ik heb een kleine aanpassing gedaan , als je rechts klikt op de "knop" kan je er alle kanten mee uit , en de knop is niet aan kolommen of plaats gebonden....is gewoon een spielerei van mij  ;)

Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #36 Gepost op: 16 mei 2021, 09:52:17 »
@Montagnard,

 :thumbsup: _/-\o_ hartelijk dank, dit is inderdaad ontzettend handig  :thumbsup:


Maar zoals verwacht heb ik te snel glorie gekraaid....  :-[ :(
De code is net iets té simpel blijkbaar....

Na de code overgezet te hebben naar mijn werkelijk bestand (met de uitgebreide gegevenstabel) ben ik dus op nog een aantal hindernissen gestoten....
Zo ben ik vergeten rekening te houden met wat er moet gebeuren indien er geen datum vermeld staat en krijg ik in dat geval dus een foutmelding.
Ook wanneer de ouders nog niet overleden zijn krijg ik 31-12-1899 als globale einddatum.
Datums nà 1900 waarbij de dag-eenheid < 13 worden behandeld in de format "mm-dd-yyyy" ipv "dd-mm-yyyy"
En zo zullen er nog wel hier en daar kleine hindernissen verscholen zitten.

Ook wou ik aan het begin van de Sub de betreffende cellen eerst laten leegmaken alvorens de code te laten lopen maar ook dat lijkt maar niet te lukken...

Er is dus nog wat werk aan de winkel.... Dit is dan maar meteen die volgende uitdaging blijkbaar...

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #37 Gepost op: 16 mei 2021, 09:56:37 »
als je het bestand wilt bijvoegen en aangeeft welke cellen moeten leeg gemaakt worden bij het begin van de sub (zoals U graag zou willen) dan wil best eens kijken...
en ik denk dat met een kleine "if - then" makkelijk die foutmelding kan vermeden worden als er geen datum is ingevuld ?
Mvg,
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #38 Gepost op: 16 mei 2021, 10:09:28 »
@Montagnard,

Ja, het (test)bestand heb je al natuurlijk hé.
Het werkelijke bestand kan ik onmogelijk geven omwille van gevoelige info.

Op het blad "verwerk" zouden volgende cellen/bereik moeten leeggemaakt worden VOOR dat de verdere code uitgevoerd word :

"D3"
"E3"
"D8:E24"

Alvast dank.

P.S.: in jouw versie inzake de opdrachtknop zag ik wel dat je de sosa-nrs had gewijzigd.
        Enkel in de groene cel mag er handmatig iets ingevoerd worden en dit moet steeds een oneven nummer zijn (moeders hebben altijd
        een oneven sosa-nr). De roze cellen zijn gevuld met een formule en mogen dus niet gewijzigd worden.


groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #39 Gepost op: 16 mei 2021, 10:57:18 »
probeer bijgevoegd eens ?
Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #40 Gepost op: 16 mei 2021, 11:10:36 »
@Montagnard,

Het probleem zat hem dus duidelijk bij die al dan niet beveiliging...

Zelf had ik een poging gedaan met de .ClearContents functie die dus niet werkte maar als ik diezelfde functie nu gebruik in jouw (beveiligde) versie dan werkt die functie wel.

Bedankt!  :thumbsup:

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #41 Gepost op: 16 mei 2021, 11:12:51 »
oesje , we hebben mekaar gekruist , ik heb de beveiliging er weer afgehaald én nog kleine aanpassing gedaan , download mijn bestand nog eens , ik heb het opnieuw bijgevoegd ?

Mvg,
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #42 Gepost op: 16 mei 2021, 12:40:58 »
@Montagnard,

Ik had na mijn laatste bericht gezien dat je je bericht en bestand had gewijzigd en had dan die nieuwe versie gedownload.
Toen ik jouw toegevoegde code overzette naar mijn echt bestand bleek het dan toch niet te werken.
Toen ik die drie lijntjes code er dan weer uit haalde werkte ineens de gehele code niet meer, geen idee waarom, heb er keilang op aan het zoeken geweest maar geen oorzaak te vinden.
Heb dan uiteindelijk  het codeblok in mijn echt bestand terug vervangen door het origineel codeblok uit mijn testbestand en toen werkte de hoofdcode weer naar behoren (mits dan de kleine hindernisjes zoals ik eerder had gemeld).
Om geen risico's meer te lopen dat mijn gehele code niet meer zou werken heb ik het zekere voor het onzekere genomen en heb ik gewoon een aparte macro gemaakt voor het wissen van de betreffende cellen en deze achter een tweede opdrachtknopje geplaatst en voorlopig blijft alles werken.
Ondertussen heb ik ook reeds 2 van de 3 hindernisjes opgelost gekregen, met name de globale stopdatum ingeval er geen overlijdensdatum van één der ouders aanwezig is en dan foutmelding ingeval de geboortedatum van één der kinderen ontbreekt.
Voor dit laatste heb ik echter wel de vergelijking tussen start en einddatum van de deel-periodes moeten achterwege laten omdat dit anders sowieso een foutmelding geeft ingeval één der datums leeg is. Maar op zich is dat niet zo erg, dat zie ik dan zelf wel indien de startdatum groter zou zijn dan de stopdatum.

Het enige wat ik nu nog opgelost moet zien te krijgen is het feit dat VBA datums nà 1900, waarvan de dag-eenheid < 13, behandeld in de format "mm-dd-yyyy" ipv "dd-mm-yyyy" en dit desondanks dat ik toch in mijn code steeds de format op "dd-mm-yyyy" heb geplaatst.
Voor periodes die voor 1900 vallen werkt de code volledig zoals het hoort. Dus ja, de meeste berekeningen zullen toch voor 1900 vallen dus in het slechtste geval moet ik dan de periodes nà 1900 maar handmatig blijven uitrekenen.

Ik blijf wel zoeken naar een oplossing maar ga me er niet meer blind op staren zoals ik de afgelopen week heb gedaan voor de rest van de code.

Nogmaals mijn oprechte dank voor alle hulp.  _/-\o_

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #43 Gepost op: 16 mei 2021, 12:58:44 »
heb verschillende keren na elkaar mijn bestand geopend , "verwerken" met verschillende sosa van de moeder en geen enkel keer problemen gehad.
het kan idd dat met het integreren naar je hoofd bestand het niet meer werkt.
en eens enkele dagen afstand nemen kan wonderen doen.
nog een fijne zondag en heel graag gedaan !
Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: waarden met getalnotatie samenvoegen met behoud van notatie
« Reactie #44 Gepost op: 16 mei 2021, 14:54:57 »
wat bedoel je met "verschillende sosa van de moeder"?
die begrijp ik niet zo goed....

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

 


www.combell.com