Cor-Assa

Op 29/5/2022 om 16:14, dotchiejack zei:

Cor on the move.

Access bestand in bijlage.

Zip bevat access bestand en een mapje om je foto's in te stoppen.

Ga maar uitproberen,als er vragen zijn dan hoor ik het wel.

Bij iedere knop verschijnt de uitleg wat de knop precies doet.

Verhuis Cor.zip 507 kB · 3 downloads

Alvast bedankt Phillip, ga er mee aan de slag.😉

1 uur terug, dotchiejack zei:

Hoi Cor,

Kan je me eens wat meer dedelijkheid geven wat je bedoeld met opslag tot transport. Is dit een Ja/Nee veld of andere?

Misschien een beetje onduidelijk geformuleerd.☺️

Hiermee bedoel ik dat goederen opgeslagen worden totdat zij naar Indonesie getransporteerd worden.

Zo kan ik altijd traceren dat goederen zijn opgeslagen en niet verdwenen/zoek.

Gr. Cor Assa

Beste mensen,

Wij zijn voornemens om over een kleine 2 jaar naar het buitenland te verhuizen.

Het grootste gedeelte van onze inboedel gaat niet mee.

Nu wil ik in Access een database hebben waar alles instaat.

Ik heb geprobeerd dit in Excel te maken maar dat wordt/werkt niet handig.

Aangezien Access zich hier beter voor leent wil ik het daar in hebben.

Met Excel kan ik behoorlijk goed overweg maar met Access niet.

Wie wil dit voor mij maken?

Ik heb de onderstaande gegevens nodig;

Dan moet het de bedoeling zijn dat gereserveerde of verkochte artikelen geblokkeerd en/of gemarkeerd worden.

Wie o wie kan mij helpen?

B.v.d.

Coe Assa

Het probleem is opgelost, bleek een foutieve cel setup tussen te zitten.

Topic mag gesloten worden.

Gr. Cor Assa

Beste mensen,

Ik kan de oplossing nergens vinden en het zal vast wel weer heel erg makkelijk zijn maar toch.☺️

Ik heb een cel met een datum en tijd waarde, daar wil ik nu uit een cel waar alleen maar een tijd waarde in staat bij optellen.

Zie het voorbeeld.

B.v.d.

Cor Assa

Datum en Tijd + Tijd rekenen.xlsx

25 minuten geleden, dotchiejack zei:

Je vraag was toch verbergen of blokkeren.

Het is toch geblokkeerd.

Je hebt gelijk maar vreemd genoeg na de eerste keer opstarten niet, na de 2e keer wel.

1 uur terug, dotchiejack zei:

Bedoel je zoiets?

In de ThisWorkbook event.

 

Private Sub Workbook_WindowResize(ByVal Wn As Window)

    Wn.WindowState = xlMaximized
    EnableResize = False
    
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Enabled = False

End Sub

 

Nee helaas, het vakje is er nog steeds.

Is er iemand die weet hoe ik het blokje dat rechts boven in het excel blad staat kan verbergen of eventueel blokkeren?

Het kruisje is mij al gelukt, daar heb ik de volgende oplossing voor gevonden;

In ThisWorkbook,

Public Sub WorkBook_Beforeclose(cancel As Boolean)
If Not b_close = 1 Then
    MsgBox "Afsluiten gaat niet met het kruisje" & _
    vbNewLine & "Klik op EXIT"
    cancel = True
End If
b_close = 0
End Sub

In een nieuwe macro,

Public b_close As Integer

Public Sub s_close()
b_close = 1
'Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
End Sub

Nu nog iemand die weet hoe ik het vierkantje weg kan krijgen.

B.v.d.

Cor Assa

1 minuut geleden, dotchiejack zei:

Is de foutmelding nu verdwenen?

 

Nee, ik heb nog steeds de Fout 1004 tijdens uitvoering melding.

Maar zoals gezegd alleen als ik een niet bestaande selectie uitvoer.

Eventueel wil ik het bestand naar jou door zetten, is namelijk zakelijk en hoeft niet de wereld rond.😉

7 minuten geleden, dotchiejack zei:

Volgens je formule doorgegeven in het postje waar ook het plaatje staat met de foutmelding

=ALS.FOUT(VERGELIJKEN(BG11;'Scenario''s Nieuw'!A9:A323;0);"Item niet gevonden")

heeft je tweede tabblad de naam:

Scenario's Nieuw

In de VBA foutmelding heeft het tabblad de naam 

Scenarios

Controleer dat de naam van je tabblad gelijk is met je VBA code.

Je krijgt een Object gedefinieerde fout. een tabblad is een object

Trouwens, (niet noodzakelijk) maar ik dit geval zou ik ThisWorkbook i.p.v ActiveWorkbook gebruiken.

En ik wil altijd helpen (als mijn gezondheid het toelaat, ik heb tegenwoordig regelmatig last van off-dagen)

Maar zo'n eigenwijsje zoals jij moet nu en dan eens een trap onder zijn kont krijgen.

Het tabbladnaam heb ik overal gewijzigd naar "scenarios" aangezien (mijn eigenwijze) benamingen wel eens problemen in verwijzingen kan geven. En waarom zouden die namen ook zo moeilijk moeten zijn?😜

Ik ga ActiveWorkbook omzetten naar ThisWorkbook, misschien helpt dat. Dit had ik trouwens zo gevonden door googlen.☺️

Voor de fout melding maakt dit niet uit!

M.vr.gr. Cor assa

Ik krijg trouwens een 1004 melding.

16 minuten geleden, dotchiejack zei:

Je hebt nog niet geantwoord gegeven op volgende vraag

Hoe kunnen we een oplossing vinden zonder je  gebruikte VBA code te weten of beter nog een post een gelijkend voorbeeldbestandje waar de fout zich voordoet.

Wat mij betreft mag jij samengevoegde cellen blijven gebruiken maar geloof mij met VBA en samengevoegde cellen kom je vroeger of later in de problemen.

Sorry Philiep, bij deze.

Dacht even dat je niet meer wilde helpen.😊

Ben bang dat je er hier ook niet uit komt omdat er natuurlijk veel meer vba en cel formules achter zitten.

M.vr.gr.

Cor Assa

Op 15/2/2022 om 11:43, dotchiejack zei:

Met de formule is niets mis.

Zie bijlage.

Wat betreft de foutmelding, hiermee kunnen we niets.

Klik op foutopsporing en maak een screenshot van de vba code waar het geel geleurde gedeelte in voorkomt en post het hier.

Zoeken en kopieeren.xlsx 17 kB · 2 downloads

het probleem wat ik hiermee heb is dat de text 'Item niet gevonden' in de cel geplaatst wordt maar de vba code doorloopt en dan een foutmelding geeft.

Beste mensen,

Sorry als ik eigenwijs over komt. 😊

Maar het vreemde is dat het met de samengestelde cellen wel werkt, op een paar kleine zaken na heb ik alles voor elkaar.

Ik heb diverse kennissen en ook bij mij op het werk die vaak met samengestelde cellen werken en zelden problemen hebben.

Ik heb zelfs met VBA codering waarden met kleine lettertypen naar samengestelde cellen gekopieerd en daarbij de font grote en kleur gewijzigd zonder dat er problemen ontstonden. Zelfs formules werken dan nog.

M.vr.gr.

Cor Assa

Op 15/2/2022 om 17:14, emielDS zei:

omdat hij  blijkbaar toch de oplossing niet gevonden heeft zal ik ze hier maar plaatsen

Kopieren van ander tabblad met variabele regel.xlsm 22 kB · 2 downloads

Beste emielDS,

Schijnbaar heb jij mijn vraag en mijn oplossing niet begrepen?

Dit was een eenvoudig voorbeeld maar het originele bestand is veel complexer.

Dat is ook de reden dat de door jouw genoemde oplossing niet werkt en de mijne wel!

Toch bedankt voor de moeite.

22 uren geleden, dotchiejack zei:

=ALS.FOUT(VERGELIJKEN(E12;Blad2!A4:A38;0);"Item niet gevonden")

 

Helaas lukt niet, ik misschien ergens een tikfoutje gemaakt, krijg o.a. de 2e acolade bij Scenario's niet weg?

=ALS.FOUT(VERGELIJKEN(BG11;'Scenario''s Nieuw'!A9:A323;0);"Item niet gevonden")

Let op dit komt niet uit het voorbeeld bestand.

Dit komt uit mijn oorspronkelijke bestand.

Het was even een gedoe om het over te zetten van mijn originele bestand naar dit test voorbeeld maar het is gelukt, bij deze mijn oplossing. Waar de kundigen onder ons best een nog mooiere oplossing voor hebben.

gr. Cor Assa

Kopieren van ander tabblad met variabele regel.xlsm

17 uren geleden, dotchiejack zei:

=ALS.FOUT(VERGELIJKEN(E12;Blad2!A4:A38;0);"Item niet gevonden")

 

Bedankt dotchiejack. ga ik uitproberen.

12 uren geleden, dotchiejack zei:

Cor zei dat hij een oplossing had gevonden, maar niet meegedeeld wat de oplossing was, jammer dan konden nog andere forum bezoekers met de dezelfde vraag eventueel ook een antwoord vinden.

 

Het antwoord gaat nog komen. Heb de oplossing gevonden in mijn originele bestand.

Moet het even omzetten naar het voorbeeld bestand maar had geen tijd meer, moest naar mijn werk.

Ander vraagje, hoe krijg ik het voor elkaar dat als een waarde niet gevonden is ik niet de melding "#N/B" krijg maar een melding "Item niet gevonden".

B.v.d.

Cor Assa

Was even te voorbarig met deze reactie, dus verwijderd.☺️

Beste mensen, voorbeeld bijgevoegd

Als de waarde in cel E5 wordt geweizigd moet de Regel nr. ook wijzigen, dat gebeurd ook.
Maar hoe krijg ik de waarden uit de kolommen C en E naar de 2 cellen gekopieerd d.m.v. VBA zonder naar het tabblad Blad2 heen en weer te switchen? Normaal lukt dat wel maar omdat de regel variabel is krijg ik dit niet in een VBA code.

Wie heeft voor mij een oplossing?
B.v.d. Cor Assa

Kopieren van ander tabblad met variabele regel.xlsx

Een ander probleem waar ik tegenaan loop is het kopieeren van Symbolen.

Ik heb in diverse cellen de volgende karakters staan;

     Wingdings 233 en Wingdings 236.

Als ik deze naar een andere cel kopieer dan veranderd het in een 

Weet iemand hier een oplossing voor?

B.v.d.

Cor Assa

Op 8/2/2022 om 11:40, emielDS zei:

een goede raad verwijder alle samengevoegde cellen, maar dat is u al dikwijls genoeg gezegd.

Beste emielDS,

Bedankt voor het herinneren, klinkt misschien eigenwijs maar in de zaken die ik aan het maken ben is het vak wenselijk om cellen samen te voegen.

Ik ondervind bijna nooit problemen hiermee en nu ook niet, ondanks dat de cellen waar de gegevens uit komen niet gelijk zijn en de instellingen ook niet.

M.vr.gr.

Cor Assa

2 minuten geleden, bakerman zei:

Welke rest nog ??? E19 is toch ook ingevuld in het voorbeeldbestand. 😲

Nee E19 is nog leeg, hoe krijg ik die gegevens zonder problemen over en met de pijlen?