Cor-Assa
-
Items
396 -
Registratiedatum
-
Laatst bezocht
Inhoudstype
Profielen
Forums
Store
Berichten die geplaatst zijn door Cor-Assa
-
-
Op 26/4/2021 om 10:21, dotchiejack zei:
Sub OM() CommandBars("Exit Design Mode").Controls(1).Execute End Sub Sub geenOM() CommandBars("Exit Design Mode").Controls(1).Reset End SubBedankt dotchiejack, het werkt.
Dit topic mag gesloten worden.
m.vr.gr. Cor Assa
-
Bestaat er een VBA code om in excel 2013 de opdracht "Ontwerpmodus" in het tabblad "Ontwikkelaars" uit te schakelen?
Ik wil deze gebruiken in een ontwikkel en test procedure.
Dan hoef ik niet steeds naar het bewuste tabblad te klikken en de knop te gebruiken.
-
Beste mensen,
Ik heb n laptop met 2 harde schijven van 1TB.
Schijf 1 heeft partities C, D, E, F, G, H, en I.
Schijf 2 heeft partities J. K en L.
Als ik nu d.m.v. Windows 10 'Automatisch back-ups maken van mijn bestanden' wil instellen om op mijn NAS de backups te maken dan zie ik alleen de partities J, K en L.
De partities dus van de 2e schijf.
Hoe krijg ik de partities van de 2e schijf te zien?
B.v.d.
Cor Assa
-
Misschien beter het kopje veranderen in "Flowcharts vragen".😊
Mijn volgende vraag;
Kan je een Flowchart ook knipperend maken?
Ik heb in een nieuw stroomdiagram een klok mee lopen.
Nu is het de bedoeling dat als een bepaalde tijd verstreken is een bepaalde Flowchart moet gaan knipperen totdat er een aktie op ondernomen is.
Ben nog met de basis opzet bezig dus heb nog geen bruikbaar voorbeeld.
Alvast bedankt,
Cor Assa
-
De code van jouw voorbeeld naar mijn progje gecopieerd en het werkt!
Dus die vraag is opgelost alleen nog de kode leren begrijpen.
-
19 uren geleden, dotchiejack zei:
Jij hebt toch de meest wonderlijke vragen.
Je kan moeilijk A1 centreren want A0 en A-1...... bestaan niet.
Bedoel je zoiets?
Na het stoppen van de macro bleek het wel te werken, zit echter een klein probleem bij het opstarten.
Verder is het precies wat ik bedoelde.👍
Nu alleen nog uitvinden hoe het precies werkt.☺️
-
Misschien dat het met behulp van de oplossing op onderstaande site kan?
Lijkt me dan wel complex te worden.
Quote -
8 minuten geleden, dotchiejack zei:
Jij hebt toch de meest wonderlijke vragen.
Je kan moeilijk A1 centreren want A0 en A-1...... bestaan niet.
Bedoel je zoiets?
Helaas doet ie het niet, krijg direct een fout melding bij;
.Shapes("Rounded Rectangle 6").Fill.ForeColor.RGB = RGB(0, 0, 255) 'Donker blauwBen nagenoeg klaar met het programma, zal m uploaden.
Ik heb 3 vragen over, mocht het lukken wil ik graag weten hoe ik het moet instellen.
Vraag 1: Alle macro's blokkeren totdat zij aan de beurt zijn.
Hiermee wil ik voorkomen dat mensen ergens halverwege starten en dus het aangegeven pad,
de oranje pijlen moeten volgen.
Vraag 2: Als je de macro's van het stappenplan bekijkt zie dat als ik een macro geactiveerd heb de actieve cel
onder de volgende opdracht staat. De bedoeling is dat deze actieve cel automatisch verticaal centreerd,
dus niet horizontaal.
Vraag 3: De zoom functie, die krijg ik tot op heden niet goed werkend. De bedoeling is dat er op de breedte van het
bestand automatisch ingezoomd wordt bij opstarten.
Hopelijk zijn mijn vragen niet te wonderlijk.☺️😁
En inderdaad, ik heb geen snor.😉
Stroom diagram - Desk opstart - 2021-03-21 - 12.25 met Dotchiejack.xlsm
-
Tevens zoek ik naar een automatische scroll functie.
De cell die aktief is moet verticaal in het scherm gecentreerd worden, niet horizontaal.
Ben al een tijd aan het googlen maar het komt er steeds op neer dat waarden in een cel gecentreerd worden, maar dat is niet wat ik wil.
-
Ik ben een heel eind op dreef.
Er zitten geen echt gevoelige data in dus zal het bestand hier uploaden.
De bedoeling moet zijn dat je verplicht wordt het pad te volgen en geen punt kunt overslaan.
Stroom diagram - Desk opstart - 2021-03-20 - 15.49 met Dotchiejack.xlsm
-
Lijkt er wel op maar is me niet helemaal zeker omdat ik het verschil moeilijk met 3 figuren en 2 schelingen.
Jij doet het zeker met deze formule;
.Shapes.Range(Array("Flowchart: Alternate Process 1")).Visible = TrueHoe ga ik dat invoeren met meerdere figuren, wanneer is de waarde 1?
Neem aan dat het daarom gaat?
-
Nog n vraagje wat met dit knutselwerk te maken heeft.
Is het mogelijk om een Macro die aan een knop gekoppeld is te blokkeren totdat aan een bepaalde voorwaarde is voldaan?
Dus dat ik pas op de knop "Selecteer via AMX de Processmaneger" kan klikken en de gekoppelde macro kan activeren nadat ik de "START" knop dus macro heb gebruikt.
-
1 uur geleden, dotchiejack zei:
Verander
.Shapes("Straight Arrow Connector 4").Fill.ForeColor.RGB = RGB(255, 153, 0)In
.Shapes("Straight Arrow Connector 4").Line.ForeColor.RGB = RGB(255, 153, 0)Ja, is begrijpelijk, niet vullen maar een lijn.☺️
-
Bedankt weer dotchiejack.
Ik vind alleen jouw pijlen te grof, hou het liever bij die uit mijn voorbeeld.
Maar die heeft het probleem dat jouw methode niet werkt, komt dat omdat het een andere stijl is?
Ik had het eerst zo, en dat werkt;
Sub Pijl_oranje() ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 4")).Select With Selection.ShapeRange.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorAccent4 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 End With End SubMet jouw methode probeerde ik het zo;
.Shapes("Straight Arrow Connector 4").Fill.ForeColor.RGB = RGB(255, 153, 0)Helaas werkt dat niet.
-
Dus komt het er eigenlijk op neer dat ik de Flowcharts bij naam roep door;
.Shapes("Flowchart: Terminator 2")En de kleur met;
.Fill.ForeColor.RGB = RGB(169, 208, 142)En voor de pijlen bij naam met;
.Shapes("Down Arrow 16")En de kleur met;
.ForeColor.RGB = RGB(255, 153, 0)!
En al die andere code er omheen is overbodig?
Alvast bedankt, een heel stuk wijzer en scheelt heel veel code.
-
Als het goed is functioneerd het al gedeeltelijk.
Als je op start klikt wordt deze groen en de pijl er onder oranje, aangevende de volgende stap.
Als je daarna op de knop "Selecteer via AMX ...." klikt moet de knop "Start" weer licht blauw worden en de pijl weer donker blauw
Tevens moet de pijl onder "Selecteer via AMX ...." dan oranje worden.
Dit heb ik in mijn originele bestand al voor elkaar.
Alleen het probleem wat ik heb is dat ik de bewuste knop of pijl specifiek moet selekteren, terwijl dat volgens mij bij afroepen van de naam ook moet kunnen, en dat lukt mij niet.
Alvast bedankt.
-
Ik moest even wat zakelijk betrouwbare info weg halen.
-
voorbeeld is onderweg.☺️
-
Beste mensen,
Ik ben voor mijn werk een stroom diagram aan het maken.
Nu wil ik dat als een Flowchart wordt aangeklikt deze van kleur veranderd maar dat lukt mij niet zonder deze te selecteren.
Weet iemand hoe ik dat moet doen?
Sub Selektie_kleuren() ' ActiveSheet.Shapes.Range(Array("Flowchart: Terminator 2")).Select With Selection.ShapeRange.Fill .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorAccent6 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0.8000000119 .Transparency = 0 .Solid End With End SubB.v.d.
Cor Assa
-
Beste emielDS,
Ik heb al eerder op zo'n reactie van jou gereageerd.
Helaas lijkt het er op dat jij niet begrijpt waarom ik dit wil.
Nogmaals het heeft niet met beveiliging te maken dat anderen er niet bij kunnen maar om onbewuste data vernieling te voorkomen.
En iedereen mag van mij de wachtwoorden weten.
-
Ik probeer sheets van mijn excel bestand te beveiligen maar daarbij opties in de beveiliging vast te leggen.
Het gaat om deze code,
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowSorting:=True, AllowFiltering:=TrueTot op heden lukt het mij niet, ik kan b.v.b. geen (kolom) filters gebruiken, kan er helaas geen screenshot van maken.
Dit zou het wachtwoord moeten zijn, of ik dat ervoor of erna zet maakt niet uit.
Sheets("Drip's RWS").Protect Password:="wachtwoord"Ook het verwijderen van het stukje 'ActiveSheet.Protect' maakt niet uit, zou een dubbele beveiliging zijn toch.
-
Beste mensen,
Hierbij mijn voorlopig definitief test bestand.
De techneuten zullen er best het een en ander in vinden dat verbetert kan worden.
Ik heb er een wordt bestandje bij gedaan met wat ik eigenlijk wil en hoe het zou moeten werken.
Leek mij handiger dan hier die hele lap tekst.
Alvast bedankt voor wie het kan en wil verbeteren.
Database objecten overzicht - 2021-03-02 - 13.11 - ZOOM test.xlsm Functionaliteits wensen.docx
-
Op 26/2/2021 om 10:00, dotchiejack zei:
Begin met alle overbodige Selects uit je code te halen.
Overbodig in alle modules.
Range("A1").Select ActiveWindow.ScrollRow = 1Range("F2").Copydoet net hetzelfde als
Range("F2").Select Selection.Copyzonder de overbodige select
Het voortdurend verbergen en zichtbaar maken van tabbladen is ook niet bevorderlijk voor de snelheid, is trouwens totaal overbodig, draagt helemaal niets bij tot de veiligheid.
Bedankt dotchiejack en Haije voor jullie reacties.
De reden dat ik de code select A1 en scrollrow heb gebruikt komt omdat als dit niet gebeurd, tijdens het verplaatsen naar een ander tabblad direct een cel in kolom A geactiveerd werd waardoor in de storingsknop acceptatie moest doen.
Het verbergen en zichtbaar maken van de tabbladen heb ik gedaan om de verleiding weg te nemen dat men d.m.v. de tabbladen knoppen gaat selecteren, wat ik juist wil voorkomen i.v.m. activering van bepaalde routines.
Mogelijk dat jullie hier betere oplossingen voor weten?
M.vr.gr.
Cor Assa
-
Ben al een heel eind verder maar begint wel traag te worden, zit ook wel een hoop data nu in.
Mogelijk dat mijn VBA ook wat beter en directer kan.
Iemand die het voor mij wil doorlopen en advies geven?
B.v.d.
Cor Assa
.Path - Ongeldig gebruik van een eigenschap
in Archief Excel
Geplaatst:
Beste mensen,
Ik probeer in een Excel bestand d.m.v. VBA de bestandslocatie op te vragen.
Dit is bedoelt voor als het bestand naar elders verplaatst wordt dat documenten nog steeds in zijn submap opgeslagen kunnen worden.
Voor het oproepen van de locatie heb ik 2 mogelijkheden gevonden;
ThisWorkbook.Path
Application.ActiveWorkbook.Path
Helaas geven beiden de fout melding "Compileerfout: Ongeldig gebruik van een eigenschap"
Dit heb ik in een Sub routine staan, zit daar soms de fout?
B.v.d.
Cor Assa