Ga naar inhoud

Cor-Assa

Lid
 Bekijk profiel  Bekijk hun activiteit

  • Items

    396

  • Registratiedatum

  • Laatst bezocht

 Inhoudstype 

Berichten die geplaatst zijn door Cor-Assa

    PDF opslaan vanuit Excel onder naam van variabele

    in Archief Excel

    Geplaatst:

    De correcte lokatie waar opgeslagen moet worden i s

    "2020 - Spanje Tour Organisatie\Reserverings Bevestiging in PDF"

    Het bestand heb ik in "2020 - Spanje Tour Organisatie" geplaatst.

    In J4 worden gecombineerde gegevens uit een ander tabblad gehaald voor code registratie.

    De huidige waarde die ik in mijn testbestand heb zitten zijn momenteel聽250920-155 en staat in de cel als standaard gedefinieerd.

    Dacht dat het werkte maar bleek een PDF bestand van gisteren te zijn, sorry.

    Beveiliging Excel bestand

    in Archief Excel

    Geplaatst:

    Beste mensen,

    Het vorige probleem is opgelost, nu de volgende.

    Ik heb een bestand met heel veel prive gegevens, dit i.v.m. de organisatie van een Spanje reis.

    I.v.m. de regels op de privacy wil ik dit bestand tegen openen beveiligen met een wachtwoord.

    Het moet voor 2 personen mogelijk zijn om met hun eigen wachtwoord in te loggen.

    Ook moet het mogelijk zijn dat deze personen hun eigen wachtwoord kunnen wijzigen.

    Beetje bij beetje zal ik er wel weer uit komen maar waarschijnlijk is er al iemand die dit heeft ontwikkeld?

    Wie kan mij helpen? En bij voorkeur met uitleg (groene regels tussen de code) zodat ik het ga begrijpen en indien mogelijk kan aanpassen.

    聽

    B.v.d. Cor Assa

    PDF opslaan vanuit Excel onder naam van variabele

    in Archief Excel

    Geplaatst:

    Ik heb in VBA een stukje programmering waar ik niet uit kom. 

    Sub Printen_Reservering()
'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "L:\2020 - Spanje Tour Organisatie\Excel\Reservering.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

    Dit wil ik opslaan op de volgende manier, 

    Sub Printen_Reservering()
'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "L:\2020 - Spanje Tour Organisatie\Excel\Reserveringen\250920-016.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

    Ik heb hier een variabele voor聽 -聽Dim fReserveringscode As String dit is de waardewaarde 250920-016

    De bedoeling is dat de naam Reservering in het eerste bestand vanuit de variabele wordt omgezet naar de rode waarde. (Zie het tweede bestand.

    Tevens komt dit bestand op een USB stick dus de drive letter kan wijzigen als hij in een andere pc gaat.

    Daarom zou de verwijzing alleen naar een onderliggende sub directory moeten zijn.

    In dit geval -聽2020 - Spanje Tour Organisatie\Excel\Reserveringen\

    Wie weet de oplossing?

    B.v.d. Cor Assa

    Bus en stoel indeling

    in Archief Excel

    Geplaatst:

    Ik heb de oplossing gevonden met onderstaande code.

    =ALS.FOUT(VERT.ZOEKEN("1 12";Deelnemers!$BO$5:$BQ$227;2;ONWAAR);"")

    En dit werkt perfect, als niets is ingevuld krijg ik blank.

    Hoe makkelijk kan het zijn.

    Allemaal bedankt.

    聽

    Gr. Cor Assa

    Bus en stoel indeling

    in Archief Excel

    Geplaatst:

    Bedankt bakerman, helaas lukt het niet.

    Ook kan ik het originele bestand niet toesturen i.v.m. privacy.

    Ik heb nu een kolom aangemaakt waar ik het bus nummer en zitplaats heb gecombineerd zoals "1 12", bus 1 stoel 12.

    Alleen in het overzicht van de zitplaats indeling krijg ik nu #N/B als een zitplaats niet ingevuld is.

    De code die ik gebruik is聽=VERT.ZOEKEN("1 12";Deelnemers!$BO$5:$BQ$227;2;ONWAAR)

    Zit hier iets fout in of moet er iets bij?

    聽

    B.v.d.

    Cor Assa

    Bus en stoel indeling

    in Archief Excel

    Geplaatst:

    8 minuten geleden, Cor-Assa zei:

    Ik heb na lang zoeken iets gevonden dat werkt.

    =INDEX(Deelnemers!G5:G227;1;1)

    Dit zijn de gevens uit mijn originele bestand daarom kloppen ze niet met het voorbeeld.

    聽

    Toch gaat het nog niet goed, als er geen stoelnummer ingevuld is krijg ik #VERW#

    Bus en stoel indeling

    in Archief Excel

    Geplaatst: · aangepast door Cor-Assa

    Beste mensen, ik heb weer een nieuwe uitdaging.

    Ik heb een voorbeeld bestand bijgevoegd.

    Ik wil dat in het 2e tabblad automatisch als ik hier naartoe schakel bij bus 1 de passagiers ingevuld worden (uit tabblad 1) die naast de cel zit wat hun stoel indeling is.

    Dus bij Bus 1 zou achter 5 (stoelnummer) de naam Jansen moeten komen, enz.

    Bij bus 2 achter achter 6 (stoelnummer) de naam Pietersen, enz.

    Behalve de oplosing eventueel ook een uitleg, dat leert het beste.

    聽

    B.v.d.

    Cor Assa

    Bus en stoel.xlsx

    Zoeken in lijst afhankelijk van celwaarde

    in Archief Excel

    Geplaatst:

    Beste mensen,

    Sommige dingen zijn zo makkelijk en toch vergeet je ze. 馃槈

    Ik heb het in het verleden gebruikt maar weet niet meer hoe.

    In cel A1 tik ik een waarde in, b.v.b. 20

    In kolom D heb ik waarden van 1 t/m 30 staan.

    In kolom E staan plaatsnamen.

    Achter 20 in de kolom D staat in kolom E Brussel

    Nu moet er in cel B1 Brussel verschijnen.

    Helaas weet ik niet meer hoe ik dat ooit gedaan heb en kan het nergens terug vinden, wie kan mij helpen?

    聽

    Gr. Cor

    Tabbladen lijst tonen in werkblad

    in Archief Excel

    Geplaatst:

    8 uren geleden, bakerman zei:

    Dit is een 'generic' model. 

    
Sub GenerateLists()
    With Sheets("Overzichtsblad")
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row: If lRow < 2 Then lRow = 2
        .Range("A2", .Range("A" & lRow)).Clear
    End With
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            With Sheets(i)
                lRow = .Range("C" & .Rows.Count).End(xlUp).Row: If lRow < 3 Then lRow = 3
                .Range("C3", .Range("C" & lRow)).Clear
            End With
        End If
    Next
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            d = 3: mysheet = Sheets(i).Name
            With Sheets("Overzichtsblad").Range("A" & Rows.Count).End(xlUp).Offset(1)
                .Value = mysheet
                .Hyperlinks.Add Sheets("Overzichtsblad").Range(.Address), "", "'" & mysheet & "'!A1"
            End With
        Else
            With Sheets(mysheet).Cells(d, 3)
                .Value = Sheets(i).Name
                .Hyperlinks.Add Sheets(mysheet).Range(.Address), "", "'" & Sheets(i).Name & "'!A1"
            End With
            d = d + 1
        End If
    Next
End Sub

    聽

    Telkens je een Tablijst met verwante tabbladen toevoegt of verwijdert, of als je ergens een tabblad toevoegt of verwijdert en je draait de macro worden alle lijsten aangepast.

    聽

    Aangezien je sprak over 200 tabbladen heb ik als eerste blad een overzichtsblad gemaakt waarop een lijst van alle Tablijstnamen met hyperlink wordt aangemaakt zodat je direct naar een bepaalde lijst kan gaan.

    聽

    Je zou eventueel op elkTablijstblad in een bepaalde cel (bv. A1) een hyperlink kunnen zetten om dan terug te springen naar het overzichtsblad en op elk subtabblad een hyperlink om naar het Tablijstblad te springen.

    Cor-Assa.xlsm 29 kB 路 2 downloads

    Beste bakerman,

    Ik ben toch voor jouw voorbeeld gegaan dat paste het beste met mijn ideen.

    Nu hoeft er geen tabblad aangemaakt te worden waar mijn tabbladen lijsten in vermeld staat, dat doe ik op een andere manier.

    Wat ik nog wel wil is achter de tabblad lijsten 1, 2, 3, enz wat gegevens uit cellen van dat blad.

    Zoals cel C1 - C2 - C3, hoe krijg ik dat voor elkaar?

    聽

    Gr. Cor Assa

    Tabbladen lijst tonen in werkblad

    in Archief Excel

    Geplaatst:

    4 uren geleden, bakerman zei:

    Dit is een 'generic' model. 

    
Sub GenerateLists()
    With Sheets("Overzichtsblad")
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row: If lRow < 2 Then lRow = 2
        .Range("A2", .Range("A" & lRow)).Clear
    End With
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            With Sheets(i)
                lRow = .Range("C" & .Rows.Count).End(xlUp).Row: If lRow < 3 Then lRow = 3
                .Range("C3", .Range("C" & lRow)).Clear
            End With
        End If
    Next
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            d = 3: mysheet = Sheets(i).Name
            With Sheets("Overzichtsblad").Range("A" & Rows.Count).End(xlUp).Offset(1)
                .Value = mysheet
                .Hyperlinks.Add Sheets("Overzichtsblad").Range(.Address), "", "'" & mysheet & "'!A1"
            End With
        Else
            With Sheets(mysheet).Cells(d, 3)
                .Value = Sheets(i).Name
                .Hyperlinks.Add Sheets(mysheet).Range(.Address), "", "'" & Sheets(i).Name & "'!A1"
            End With
            d = d + 1
        End If
    Next
End Sub

    聽

    Telkens je een Tablijst met verwante tabbladen toevoegt of verwijdert, of als je ergens een tabblad toevoegt of verwijdert en je draait de macro worden alle lijsten aangepast.

    聽

    Aangezien je sprak over 200 tabbladen heb ik als eerste blad een overzichtsblad gemaakt waarop een lijst van alle Tablijstnamen met hyperlink wordt aangemaakt zodat je direct naar een bepaalde lijst kan gaan.

    聽

    Je zou eventueel op elkTablijstblad in een bepaalde cel (bv. A1) een hyperlink kunnen zetten om dan terug te springen naar het overzichtsblad en op elk subtabblad een hyperlink om naar het Tablijstblad te springen.

    Cor-Assa.xlsm 29 kB 路 0 downloads

    Bedankt bakerman, ziet er ook goed uit.

    Ga eens kijken wat voor mij het beste uitkomt.

Logo

OVER ONS

PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

SITEMAP

脳
脳
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.