Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Montagnard Budget 2021  (gelezen 12512 keer)

0 leden en 1 gast bekijken dit topic.

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: Montagnard Budget 2021
« Reactie #15 Gepost op: 10 september 2021, 11:11:02 »
Hey Montagnard,

Heb even je bestand bekeken en als ik op de betreffende cel de getalnotatie opvraag dan staat volgende geselecteerd :
€# ##0,00_);[Rood](€# ##0,00).
Om te verkrijgen wat je graag zou verkrijgen moet dit echter het volgende zijn :
€ # ##0,00;[Rood]€ -# ##0,00
Als ik dit in jouw bestand alzo aanpas en dan opsla via de standaard 'opslaan'-knop en afsluit en vervolgens opnieuw open staat dit nog steeds in de juiste format.
Als ik het echter via jouw opdrachtknop opsla en afsluit dan wijzigt inderdaad de format met het getal positief tussen haakjes...
Dus het probleem zit ergens in je macro voor het opslaan vermoed ik.


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: Montagnard Budget 2021
« Reactie #16 Gepost op: 10 september 2021, 11:45:07 »
Hey Montagnard,
Heb even je bestand bekeken en als ik op de betreffende cel de getalnotatie opvraag dan staat volgende geselecteerd :
€# ##0,00_);[Rood](€# ##0,00).
Om te verkrijgen wat je graag zou verkrijgen moet dit echter het volgende zijn :
€ # ##0,00;[Rood]€ -# ##0,00

Hey BlackDevil , ik had wel degelijk volgende notatie gekozen : € # ##0,00;[Rood]€ -# ##0,00 , om een of ander reden veranderd dit iedere keer weer...
en ja , als ik kies om op te slaan via bestand / opslaan of via het kruisje bovenaan rechts en dan bevestigen dan blijft dit zo..................tot ik de volgende keer afsluit via mijn knop "afsluiten"
wat er mis is met mijn code begrijp ik ook niet :

Sub Afbeelding2_Klikken()
Application.ScreenUpdating = False
Rem Opslaan en afsluiten , ben je zeker ?
tekst5 = "Deze werkmap opslaan en afsluiten ?"
response = MsgBox(tekst5, vbYesNo + vbQuestion, "Opslaan van bestand")
If response = vbYes Then
Cells(36, 21).Select
    ActiveWorkbook.Save
    Application.Quit
    End If
    Cells(36, 21).Select
End Sub

ik geraak er maar niet uit , maar ik zal hier wel hulp krijgen , alvast mercikes om mee te helpen  :)
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 AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #17 Gepost op: 10 september 2021, 11:45:50 »
Probeer het eens zo.
Sub Afbeelding2_Klikken()
Application.ScreenUpdating = False
Rem Opslaan en afsluiten , ben je zeker ?
tekst5 = "Deze werkmap opslaan en afsluiten ?"
response = MsgBox(tekst5, vbYesNo + vbQuestion, "Opslaan van 'Huishouden 2021'")
If response = vbYes Then
    Application.Quit
    ThisWorkbook.Close , True
End If

End Sub
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Montagnard Budget 2021
« Reactie #18 Gepost op: 10 september 2021, 11:55:41 »
ik heb dit geprobeerd Albert , naast het feit dat ik eerst de vraag krijg via mijn msgbox om op te slaan krijg ik nogmaals de vraag of ik de wijzigingen wil opslaan...
bevestig ik 2x en heropen dan mijn bestand , dan krijg ik weer de notatie tussen haakjes  :-[

nog eigenaardiger : kies ik voor volgende notatie : € #.##0,00;[Rood]€ #.##0,00 , dan blijft de format w้l , dus dat - (min) teken zou de dader zijn ?

Mvg,

btw : eigenlijk kan ik die code om op te slaan gewoon reduceren tot volgende ?

Sub Afbeelding2_Klikken()
Application.ScreenUpdating = False
    Application.Quit
    ThisWorkbook.Close , True
End Sub

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 AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #19 Gepost op: 10 september 2021, 12:04:12 »
Dit werkt bij mij.
Sub Afbeelding2_Klikken()
Application.ScreenUpdating = False
Rem Opslaan en afsluiten , ben je zeker ?
tekst5 = "Deze werkmap opslaan en afsluiten ?"
response = MsgBox(tekst5, vbYesNo + vbQuestion, "Opslaan van 'Huishouden 2021'")
If response = vbYes Then
    Application.Quit
    ThisWorkbook.Save
    ThisWorkbook.Close , True
End If

End Sub

Numberformat blijft zo netjes staan.

Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Montagnard Budget 2021
« Reactie #20 Gepost op: 10 september 2021, 12:10:53 »
tis om zot te worden , bij mij lukt dat dus NIET !
Albert , kan je eens het door U aangepaste bestand bijvoegen als bijlage ?
dan ga ik dit hier eens openen , mijn data uit mijn huidig bestand kopi๋ren naar Uw aangepast bestand en zien...
alvast thanks !
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 AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #21 Gepost op: 10 september 2021, 12:44:05 »
Deze werkt bij mij.

Wel inmiddels wat wijzigingen in Uf Invoerformulier en op het blad Verhandelingen.
(nog niet alles optimaal)

p.s. zelfde probleem had ik op het blad Verhandelingen.
       Maar even opgelost met code in Workbook_open
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Montagnard Budget 2021
« Reactie #22 Gepost op: 10 september 2021, 16:13:33 »
Albert ,
bedankt voor alles....de aanpassingen met een datum invoerveld op de UF is zeer goed gevonden , had daar nog niet aan gedacht.
de aanpassingen voor het blad verhandelingen heb ik (voorlopig) NIET doorgevoerd , hopelijk neem je me dat niet kwalijk.
ik weet niet of het aan mijn versie ligt van Excel (Office 365) maar ik ben tegen heel veel problemen opgebokst.
op een bepaald moment , als ik een Nieuw bestand aanmaakte en schreef dit weg , en dan opende ik het oude dan was daar ook alle data gewist  :o...
als ik Uw code in MIJN bestand wilde importeren dan bleef ik problemen hebben met het cel format.
ik heb dan alle data uit MIJN bestand naar het Uwe gekopieerd , nog wa kleine aanpassingen gedaan en nu werkt alles (voorlopig) wel.

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 AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #23 Gepost op: 10 september 2021, 18:07:16 »
Wat werkt dat werkt. ;D
Ik loop ook regelmatig tegen dingen aan waarvoor ik geen oplossing kan vinden, gewoon te weinig kennis op dat gebied.
Misschien heeft het de maken met de versie van Excel.
Maar eens wachten of iemand anders nog reageert.
Groet,

Albert

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #24 Gepost op: 10 september 2021, 18:30:41 »
@Montagnard,

Toch nog even dit over die code:
Wat ik gestuurd heb was eigenlijk een beetje onzinnig en fout.
hier de nieuwe code en jouw eigen bestand.
Sub Afbeelding2_Klikken()
Application.ScreenUpdating = False
Rem Opslaan en afsluiten , ben je zeker ?
tekst5 = "Deze werkmap opslaan en afsluiten ?"
response = MsgBox(tekst5, vbYesNo + vbQuestion, "Opslaan van bestand")
If response = vbYes Then
    Application.Quit
    ThisWorkbook.Close True
End If

End Sub

Voor uitleg kijk eens hier: https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.close

Die komma tussen thisworkbook.close en True hoort er niet te staan.

edit: Ik blijf maar leren van mijn eigen fouten/blunders ;D

Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Montagnard Budget 2021
« Reactie #25 Gepost op: 11 september 2021, 08:32:25 »
Dag Albert,
ik ga wel jouw versie verder gebruiken m้t die datum in de UF !.
alleen over die aanpassing wat verhandelingen betreft ben ik er nog niet uit...
ondertussen die "fout" gecorrigeerd.
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 AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #26 Gepost op: 11 september 2021, 11:48:44 »
Gewoon die versie gebruiken die je zelf het prettigste vindt.
Succes.
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Montagnard Budget 2021
« Reactie #27 Gepost op: 11 september 2021, 14:55:39 »
h่h่....
dat "probleem" met dat cel format bleef me intrigeren en ik denk dat ik nu gevonden wat en hoe :
als ik de notatie kies met €- 250.00 (dus Euroteken - minteken - spatie - getal) en ik sla mijn werkblad op dan blijft de format.
als ik de notatie kies met € -250.00 ( dus Euroteken - spatie - minteken - getal) en ik sla het bestand op en open het daarna terug dan krijg ik dat formaat met de haakjes  : (250.00) !!!.
een heel kleine nuance in het format , de reden waarom het bij MIJ met het laatste format fout loopt weet ik wel niet , maar ik kan het nu tenminste oplossen.
ik wou dit toch even meegeven  ;).

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 AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #28 Gepost op: 11 september 2021, 15:00:13 »
Bedankt voor de info :thumbsup:, ik ga zelf ook eens kijken of dat verschil maakt.
En toch blijft het vreemd.
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Montagnard Budget 2021
« Reactie #29 Gepost op: 11 september 2021, 15:24:37 »
En toch blijft het vreemd.
ja , en het kan nog vreemder : als ik een nieuw Excel blad open en 2 cellen elk een opmaak geef €- 200.00 en € -200.00 , opsla en dan terug open dan blijft de format WEL bij beide cellen.
doe ik hetzelfde met mijn bestaand Budget bestand dan veranderd de format bij die ene cel weer naar met die haakjes ???.
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

 


www.combell.com