Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 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!

bakerman

Lid
  • Aantal items

    47
  • Registratiedatum

  • Laatst bezocht

Over bakerman

  • Titel
    Nieuweling

Recente bezoekers van dit profiel

De recente bezoekers block is uitgeschakeld en zal niet meer getoond worden aan gebruikers.

  1. bakerman

    Excel macro error 400

    Je wil het blijkbaar zo eenvoudig mogelijk. Probeer dan onderstaand bestand eens uit. Telkens je het Einduur invult op eender welk werkblad waarvan de naam begint met Persoon wordt de PT automatisch bijgewerkt. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name Like "Persoon*" Then If Not Intersect(Target, Sh.Columns(4)) Is Nothing Then With Sh .Unprotect "pcc2018" For Each pt In .PivotTables pt.PivotCache.Refresh Next .Protect "pcc2018" End With End If End If End Sub KarelG.xlsm
  2. bakerman

    van hoog naar laag

    Vermijd het gebruik van Select, Selection, Activate. Het vertraagt de code en is in 99% van de gevallen overbodig. Maak gebruik van de With ..... End With structuur. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:E")) Is Nothing Then With ActiveWorkbook.Sheets("Blad1") .Sort.SortFields.Clear .Sort.SortFields.Add Range("F2"), xlSortOnValues, xlDescending, , xlSortNormal With .Sort .SetRange Cells(1).CurrentRegion .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With End If End Sub
  3. bakerman

    Excel macro error 400

    @ KarelG Enige reden waarom al je draaitabellen dezelfde gegevensbron hebben ?
  4. bakerman

    exel

    Of zoals al eerder gezegd. Formule voor C2 en D2. =INDEX($L$1:$N$12;VERGELIJKEN($B2;$L$1:$L$12;0);KOLOM()-1)
  5. bakerman

    Excel raadsel

    Probeer het eens met deze. Sub test() sn = Blad2.Cells(3, 2).CurrentRegion.Value Set dic = CreateObject("scripting.dictionary") For i = 2 To UBound(sn) dic.Item(sn(i, 2)) = sn(i, 1) Next With Blad1 For Each cl In .Range("D3", .Range("D" & .Rows.Count).End(xlUp)) For Each Key In dic.keys If InStr(1, cl, Key, vbBinaryCompare) > 0 Then cl.Offset(, 1) = dic.Item(Key): Exit For Next Next End With End Sub Kenny1989_Dic.xlsm
  6. bakerman

    Verticaal zoeken wil niet werken

    Formules verder uitgewerkt. Jasper_II.xlsx
  7. bakerman

    Verticaal zoeken wil niet werken

    Als je op die manier wil zoeken zal je moeten overschakelen op een combinatie van Index en Vergelijken waarbij het wel mogelijk is om te verwijzen naar een vorige kolom. Dus zoeken in kolom C en resultaat van kolom A weergeven. Jasper.xlsx
  8. bakerman

    Verticaal zoeken wil niet werken

    Je format van kolom C staat op Tekst ipv Standaard. Fiets 3 is niet aanwezig in de A-kolom van je tabelmatrix op Sheet Producten.
  9. bakerman

    Excel raadsel

    Mogen of niet, hier is er eentje. De UDF in kolom B haalt het rekeningnummer uit de tekst. De Index/Match formule in kolom C zoekt dan een overeenkomst in de tabel. Kenny1989.xlsm
  10. @emielDS Zonder foutafhandeling genereer je een foutmelding als Find geen overeenkomstig nummer kan vinden. Private Sub Annuleren_Click() 'aangeven zoekactie in worksheet Dim fRow With Sheets("Inschrijving") fRow = Application.Match(CLng(flightnummer), .Columns(1), 0) If Not IsError(fRow) Then .Cells(fRow, 1).Resize(, 8).ClearContents Else MsgBox "Geen nummer gevonden" End If End With End Sub
  11. bakerman

    afhankellijk van filter instelling iets kopieren

    Ik heb een dynamische validatielijst in A4 gezet. Kijk maar eens bij Namen Beheren naar mylist. Onderhoudshandboek_pull down menu.xls
  12. bakerman

    afhankellijk van filter instelling iets kopieren

    Gewoon een ander ideetje. Door in de TextBox letters in te typen wordt kolom A gefilterd. De Wis-knop verwijdert de tekst uit de TextBox en wist het Autofilter. Niko.xlsm
  13. bakerman

    Marco maken pdf

    Er ontbreekt een backslash aan het eind van je TempFilePath.. En waarom gebruik je 2 externe subs om je Pdf te maken en te verzenden ?
  14. bakerman

    Data naar variabele en variabele naar cel

    Gebruik Application.InputBox dan kan je het type invoer bepalen. Vermijd het gebruik van onnodige variabelen, het maakt je code toch maar onleesbaar.
  15. bakerman

    Melding verval datum

    If sn(i, 1) <> vbNullString And sn(i, 1) < Date Then msg = msg & "Cel $C$" & i & vbLf moet zijn If sn(i, 1) <> vbNullString And sn(i, 1) < Date Then msg = msg & "Cel $C$" & i + 1 & vbLf
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!

×

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.