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

    148
  • Registratiedatum

  • Laatst bezocht

Over bakerman

  • Titel
    Nieuweling

Profiel Informatie

  • Geslacht
    Man
  • Land
    België

Recente bezoekers van dit profiel

777 profielweergaven
  1. bakerman

    logbestand

    Graag gedaan en bedankt voor de feedback.
  2. bakerman

    logbestand

    Probeer deze dan eens. ddr_ver2.xls
  3. bakerman

    logbestand

    Ga maar eens aan de slag met deze. ddr.xls
  4. bakerman

    factuur maken

    In het naamvak van de klantnaam zet je een validatielijst met alle klantnamen. Je zal merken dat van zodra je begint te typen de lijst automatisch naar beneden scrollt naargelang de letters die je typt. In de andere cellen zet je een Vert.Zoeken formule om de overige gegevens weer te geven. De code die je in Thisworkbook hebt staan kan je gebruiken om je factuurnummers te genereren. Dim x, cl x = -1 cl = Dir("D:\John\*") Do Until cl = "" x = x + 1 cl = Dir Loop With Blad1.Range("D25") .Value = Year(Date) & "/" & Format(IIf(x > 0, x + 1, 1), "000") End With
  5. bakerman

    factuur maken

    Je zal al zeker een extra tabblad moeten aanmaken met alle klantgegevens zodat je een klantnaam kan opzoeken en de overige gegevens kan plaatsen. Om op je tweede vraag te antwoorden, ja je moet de factuur eerst opslaan als pdf-bestand om ze vervolgens als bijlage te mailen.
  6. Laten we hiermee beginnen. Sub Find_DLD() Dim AckTime As Integer, InfoBox As Object Dim iRow As Integer ' ROW COUNTER. Dim sSourcePath As String Dim sFileType As String Dim sFileType1 As String Dim bContinue As Boolean Dim found As Boolean, fl As Object, fld As Object bContinue = True iRow = 2 ' THE SOURCE AND DESTINATION FOLDER WITH PATH. sSourcePath = "S:" sFileType = ".dld" ' TRY WITH OTHER FILE TYPES LIKE ".pdf". sFileType1 = "prd." ' LOOP THROUGH COLUMN "B" TO PICK THE FILES. While bContinue If Len(Range("E" & CStr(iRow)).Value) = 0 Then ' DO NOTHING IF THE COLUMN IS BLANK. Set InfoBox = CreateObject("WScript.Shell") AckTime = 1 Select Case InfoBox.Popup("Klaar.", AckTime, "Hieperdepiep", 0) Case 1, -1 Exit Sub End Select Else On Error Resume Next With CreateObject("scripting.filesystemobject") For Each fl In .getfolder(sSourcePath).Files If fl.Name Like sFileType1 & Range("E" & CStr(iRow)).Value & sFileType Then found = True: GoTo gevonden Next For Each fld In .getfolder(sSourcePath).subfolders For Each fl In fld.Files If fl.Name Like sFileType1 & Range("E" & CStr(iRow)).Value & sFileType Then found = True: GoTo gevonden Next Next End With gevonden: If Not found Then Range("F" & CStr(iRow)).Value = "Geen kantprogramma" Range("F" & CStr(iRow)).Font.Bold = True Else Range("F" & CStr(iRow)).Value = "Kantprogramma bestaat!" Range("F" & CStr(iRow)).Font.Bold = False End If End If iRow = iRow + 1 ' INCREMENT ROW COUNTER. Wend End Sub
  7. Zoals gevraagd zonder voorblad en met opeenvolgende kolommen. Ook heb ik myarr gebruikt met de te kopieêren bereiken, dit om aan te tonen dat je daar willekeurige bereiken kunt plaatsen en niet alleen aansluitende cellen. Sub GenerateLists() myarr = Array("$C$1", "$C$2", "$C$3") For i = 1 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 lCol = .Cells(3, .Columns.Count).End(xlToLeft).Column .Range("C3", .Range("C" & lRow)).Resize(, lCol).Clear End With End If Next For i = 1 To Sheets.Count If Sheets(i).Name Like "Tablijst*" Then myRow = 3: myCol = 3: mysheet = Sheets(i).Name Else With Sheets(mysheet).Cells(myRow, myCol) .Value = Sheets(i).Name .Hyperlinks.Add Sheets(mysheet).Range(.Address), "", "'" & Sheets(i).Name & "'!A1" For j = 0 To UBound(myarr) .Offset(, j + 1) = Sheets(i).Range(myarr(j)).Value Next End With myRow = myRow + 1 If myRow Mod 33 = 0 Then myRow = 3: myCol = myCol + 4 End If Next End Sub Heb je nog verdere vragen laat maar weten.
  8. 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
  9. Dit is de volledig geautomatiseerde versie. Bij deze hoef je nog enkel zoekwaardes in te brengen en de resultaten verschijnen automatisch. Als je alle zoekwaarden verwijdert wordt de merknaam kolom automatisch leeg gemaakt. Marinus_Filter_Auto.xlsm
  10. Met formules is dit mi niet op te lossen. Andere methode met AdvancedFilter. Zoekwaarden in kolom A van blad1, Knop klikken voor filteren. Marinus_Filter.xlsm
  11. bakerman

    Lege cellen

    Maak gebruik van ScreenUpdating om het vervelende trillen op je scherm tegen te gaan.
  12. Ik heb het eerder zo begrepen. HH1963.xlsm
  13. Ok, nieuwe poging. Bij deze zal je echter wel de layout van je zoektabel moeten wijzigen, maar de resultaten komen naast elkaar in een tabel zoals gevraagd. Marinus rev02.xlsx
  14. Ik heb even iets in elkaar gestoken zodat je niet met lege handen staat, Het is niet de tabelvorm zoals jouw opzet, maar door telkens de waarde te wijzigen in E1 worden de resultaten weergegeven in de kolommen ernaast. Aangezien formules niet echt mijn ding zijn zal je moeten wachten op de formule-wizards hier om je verder te helpen als dit niet werkt voor jou. Marinus rev01.xlsx
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!

×
×
  • 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.