Cor-Assa

Moest even weer wat anders doen, pfff.

Maar ja vrouwtje heeft het druk.☺️

Moest even een paar gegevens aanpassen omdat de werkelijke gegevens ergens anders staan.

Dacht eerst dat het niet werkte maar bleek van wel, gegevens worden ingevuld zonder naar het tabblad te springen.

Ook die is nieuw voor mj en best wel prettig.

Nu nog even de juiste configuratie voor mijn label printer, lettertype e.d. dan is dat ook weer gelukt.

Wederom bedankt dotchiejack, je bent geweldig.

Gr. Cor Assa

Sorry dochiejack, moest even mijn vrouw helpen!🙄

fNaam, fStraat en fPlaats komen van een tabblad waar alle persoonlijke gegevens en wensen voor een boeking vermeld staan.

Deze staan bovenaan in een routine die gebruikt wordt om deze gegevens naar een reserverings formulier (tabblad) over te zetten.

Er vanuit gaande dat deze variabelen daarna nog geldig zijn wilde ik ze verder mee nemen naar een volgend tabblad "AdresLabels".

Daar wilde ik deze 3 samenvoegen met harde regeleinde, zodat ze 3 regels in 1 cel vormen, waarna ik ze met mijn label printer uit kan printen.

Mar zoals gezegd, eenmaal in het tabblad "AdresLabels" zijn deze f-variabelen leeg.

Beste bakerman, die is duidelijk, is mij bekend.

Het punt is dat de genoemde variabelen van een ander tabblad komen.

Deze worden eerst gebruikt om een formulier in wederom een ander tabblad te vullen.

En daarna op de vraag of er een adres label geprint moet worden naar het volgende tabblad gaat.

Daar worden deze variabelen voor de 2e keer gebruikt, tenminste dat is de bedoeling, alleen zijn ze dan leeg!

De variabelen zijn dus geen vaste waarden, het is zoals dotchiejack al aangeeft een soort van leden lijst.

Na stap voor stap controle blijken de variabelen na gebruik uit een eerdere routine verdwenen te zijn, ze zijn leeg.

Ik heb ze als Dim geclaimd, moet ik ze soms anders claimen zodat ze langer beschikbaar blijven?

Dim fNaam As String               'AX'
Dim fStraat As String             'AY'
Dim fPlaats As String             'AZ'

Dit staat aan het beging van de handeling waar afhankelijk van antwoorden meerdere routines op volgen.

B.v.d. Cor Assa

Ik heb onderstaande vba code, beide opties werken niet.

Sub AdresLabel_Printen()
'
Worksheets("Adres Label").Select
    Range("A5").Select
        ActiveCell.FormulaR1C1 = fNaam & Chr(10) & fStraat & Chr(10) & ActiveCell = fPlaats   'Optie 1
        ActiveCell = fNaam & Chr(10) & ActiveCell = fStraat & Chr(10) & ActiveCell = fPlaats  'Optie 2

End Sub

Voor de kenners zal het wel duidelijk zijn maar ik kan met googlen geen oplossing vinden.

Het resultaat moet zijn in cel "A5"

          Cor Assa

          Weetiknietstraat 1

          1234 AB Watisdeoplossing

Dus naam, daaronder adres en daaronder de woonplaats.

De bedoeling is dat ik dit met mijn aangesloten label printer kan uitprinten.

P.s. De variabelen zijn al geclaimd en bekend uit een eerdere routine.

B.v.d. Cor Assa

Ik heb ze zelf zichtbaar gekregen, maar Voorblad is helemaal leeg?

Wat is het doel hiervan?

Of is dat om na inloggen naar een tabblad te geleiden?

Ik heb in mijn bestand inderdaad een tabblad voorblad!

Als ik het dus goed begrijp wordt je na inloggen autpomatisch naar voorblad geleid of elke willekeurige naam die je daarvoor in de vba in vult.

Is het mogelijk om bij het opstarten de naam van de gebruiker te selekteren door b.v.b. een (klik)MsgBox, dus zonder oke knop en dergelijk, waarna je je wacht woord in kunt tikken?

Het wijzigen van een wachtwoor zou handiger zijn als dit d.m.v. een knop op het voorblaad gebeurd, dus niet gelijk na inloggen, kan dat? (vast wel 😊).

Ik vraag hopelijk niet teveel maar dit is helemaal nieuw voor mij.

Gr. Cor Assa

Op 9/2/2020 om 13:50, dotchiejack zei:

Kan je hier mee verder?

In het (verborgen) tabblad wachtwoorden , de namen van de twee personen invullen in kolom A, wachtwoorden kunnen ze zelf veranderen.

nu zijn de wachtwoorden ww 1 en ww 2 (met spatie)

Nu is de VBA nog niet beveiligd maar dat moet wel gebeuren als je klaar bent met je echte bestand.

Mijn voorbeeld openen en je Spanje bestand. De modules en de userform van mijn voorbeeld naar je Spanje bestand slepen.

In je Spanje bestand een blad met de naam voorblad invoegen en mijn blad Wachtwoorden invoegen. (wegens de tabel en de gedefinieerde namen)

In de code "Blad met privacy gegevens" vervangen door de echte naam van het blad met de prive gegevens.

Je kan natuurlijk meer werkbladen zichtbaar maken. Het blad Wachtwoorden moet altijd xlveryhidden zijn en de VBA code beveiligd.

Loop je ergens op vast dan hoor ik het wel.🙂

 

 

 

 

Login.xlsb 80 kB · 4 downloads

Goede morgen dotchiejack,

Na de ellende met het omzetten van office 64 naar 32 weer verder met dit voorbeeld.

Ik wil alleen de verborgen tabblladen zichtbaar maken zodat ik ervan kan leren hoe jij alles in elkaar heb gezet.

Maar hoe krijg ik de tabbladen 'voorblad' en 'wachtwoorden' zichtbaar?

En sorry als je toch bezig bent ☺️ Voordat het inloggen komt wil ik een MsgBox met Ok waar een verklaring in komt te staan voorde privacy verklaring.

Alvast bedankt en een fijn weekend.

Gelukt, alles verwijderd met die app, en daarna office 2013 32 bit geinstalleerd.

Allemaal bedankt voor de hulp en mee denken.

Ga ik weer lekker terug naar de 1e oplossing van dotchiejack betreffende mijn andere probleem.

Allemaal een fijn weekend.

Deze topic mag gesloten worden.👍

Gelukkig het probleem is opgelost.

Dus niet meer via windows-Configuratiescherm-Een programma verwijderen

Maar in het vervolg met "Microsoft Support en Recovery Assistent"!

Heeft me wel de gehele dag gekost. 😞

Ik heb inderdaad na installatie opnieuw opgestart, doe ik altijd.

Je weet maar nooit met sommige programma's.

Dat stukje wat je op de achtergrond ziet (is na herstart) is Mailwasher.

Dan maar zo proberen,

Ongelooflijk, Office 2010 weer geinstalleerd en nu niet te verwijderen!😡

Om gek van te worden.

Ja , die heb ik ook al geprobeerd.

Maar ook dat lukte niet.

Heb nu office 2010 64 weer geinstalleerd.

Bijzonder dat de 2 tegels, Excel en Word ook weer terug zijn waar ze stonden voordat ik de boel verwijderde.

Duidelijk teken dat er gegevens zijn achter gebleven.

Ga nu nogmaals proberen het volgens de regels te verwijderen.🤔

Oke, ga ik doen en laat later wel weten hoe het afgelopen is.

Alvast bedankt voor al het mee denken en advies.

Gr. Cor Assa

Gewoon met de originele uninstaller.

Vertrouwende dat alles verwijderd was, niet dus.

Is het soms een optie om opnieuw te beginnen, alles weer te installeren en daarna weer te verwijderen?

Waarom wil ik eigenlijk terug naar 32-bit?

Naar aanleiding van de reactie van dotchiejack

Gr. Cor Assa

Heb ik gelijk al gedaan, in beide mappen.

Het vreemde is dat die melding helemaal niets zegt.

Kan ik op een of andere manier een zoekfunctie gebruiken waar deze naam voor komt?

Ik heb nu zowel de Office 2013 32-bit en 64-bit versie liggen.

Bij de 32-bit krijg ik genoemde foutmelding!

Bij de 64-bit lijkt de installatie wel te lukken?

Wat is het probleem?😵

Helaas droske, de eerste poging is niet gelukt, ga het nog n keer doorlopen.🙄

Even nog voor de zekerheid;

          Mijn systeem is windows 10 64 bit.

          Ik had Office 2010 64 bit

          Ik wil Office 2013 32 bit.

Gr. Cor Assa

Halo allemaal, ik heb een erg irritant probleem.

Ik had Office Proffesional Plus 2010 64-bit op mijn laptop met windows 10 staan.

Deze heb ik verwijderd om er Office 2013 32-bit op te zetten.

Helaas lukte dit niet omdat er nog een paar register meldingen bleven staan.

Na gebruik van C-Cleaner verdween er al iets maar niet alles.

Na googlen kwam ik op Eusing Registry Cleaner, die maakte de boel nog veel verder schoon.

Nu blijft er nog steeds een melding staan van "Microsoft Office Professional Plus 2010"?

Maar ik kan niets meer vinden, en mijn laptop helemaal opnieuw installeren is nu niet echt een optie.

Dit is de melding die ik krijg!

Krijg dus Office 32-bit niet geinstalleerd.

Wie weet de oplossing?

B.v.d.

Cor Assa

Klopt, ik heb er ook windows 10 64 bit op staan.

Ons vorige faktuur programma werkte allen onder 64 bit, vandaar.

Gr. Cor Assa

Beste dotchiejack,

Helaas direct bij het openen komt de melding dat het moet bijgewerkt worden naar 64 bit.

Bedankt vast dotchiejack,

Ga er deze week eens nar kijken en laat je weten hoe of wat, alvast bedank!

Gr. Cor Assa

Bedankt, nog een fijne zondag, ondanks de storm.😉

Bedankt dotchiejack, is helemaal duidelijk.

Weer wat geleerd!😊👍

Deze mag nu gesloten worden.

YES, dit is m helemaal.

Maar wat zat er nu eigenlijk fout in de andere oplossing?

Eigenlijk zit er weinig verschil in, behalve dat het pad verwijzing nu in 1 regel staat.

Maar in de andere optie was het eindresultaat van het pad ook goed?

Gr. Cor Assa