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!

janlazeure

Lid
  • Aantal items

    10
  • Registratiedatum

  • Laatst bezocht

Over janlazeure

  • Titel
    Lid

Recente bezoekers van dit profiel

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

  1. janlazeure

    emailadressen uit meedere excel bestanden extraheren

    beste, de vorige twee zijn opgelost, dit betreft een nieuwe vraag, excuses als dit niet werd duidelijk gemaakt deze heb ik vandaag eigenlijk dringend nodig, de rest werk ik zelf verder aan mvg
  2. Beste, ik wil de emailadressen uit 500 excel bestanden extraheren. Deze mailadressen staan op telkens op het tweede tabblad op cel B11. Nu had ik al een VBA code als volgt : Sub ConsolidateAll() Dim rsCon As Object, rsData As Object, sFileName As String Dim Prov As String, ExProp As String, resarr ', wDir As String Const wDir = "C:\Database\" Prov = IIf(Val(Application.Version) < 12, "Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0") ExProp = IIf(Val(Application.Version) < 12, "8.0", "12.0") Sheets(1).Cells(1).CurrentRegion.Offset(1).ClearContents sFileName = Dir(wDir & "*.xlsx") Do While sFileName <> "" If sFileName <> ThisWorkbook.Name Then Set rsCon = CreateObject("ADODB.Connection"): Set rsData = CreateObject("ADODB.Recordset") rsCon.Open "Provider=" & Prov & ";Data Source=" & wDir & sFileName & _ ";Extended Properties=""Excel " & ExProp & ";HDR=No"";" rsData.Open "SELECT * FROM [Personalia$B11];", rsCon, 0, 1, 1 If Not rsData.EOF Then resarr = rsData.GetRows End If Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(resarr, 1) + 1, UBound(resarr, 2) + 1) = resarr sFileName = Dir: rsData.Close: Set rsData = Nothing: rsCon.Close: Set rsCon = Nothing End If Loop End Sub Maar bij het ophalen krijg ik steeds de melding dat hij het tabblad personalia B11 niet kan vinden. In bijlage de beide bestanden (bron bestand waar de info staat en database bestand waar de mail adressen in moeten komen Kan iemand mij asap hierbij helpen aub? Alvast bedankt aagje pype.xlsx Database.xlsm
  3. janlazeure

    excel gegevens uit meerdere files extraheren naar 1 general file

    dag Bakerman, heem erg bedankt voor de VBA code. Gezien ik van VBA niets ken, begrijp ik niet goed wat je bedoelt met wijzig de const wdir? Wat dien ik juist ' in niet kennerstaal' te doen? alvast bedankt jan
  4. janlazeure

    excel gegevens uit meerdere files extraheren naar 1 general file

    Gewoon op het eerste tabblad in kolommen Wat wel nodig is is dat als ik het database bestand nadien terug sluit en terug heropen deze gegevens zijn bewaard blijven staan en als ik er bijvoeg dan steeds aansluiten waar de vorige zijn geëindigd
  5. Beste, Ik heb een map met een paar honderd excel dokumenten staan. Al deze excels hebben een eerste tabblad "Personalia" met persoonsgegevens zoals naam, voornaam, emailadres, ... Nu wil ik in plaats van alle excels apart te moeten openen op een automatische manier telkens een aantal cellen automatisch laten kopieren naar een andere excel file vb genoemd database. telkens in een nieuwe kolom zodat ik er nadien een filter kan opzetten. Ik wil daarbij vb alle cellen A1, A2, A3, A4, ..... Dat zal waarschijnlijk met VBA moeten gebeuren vermoed ik. Evenwel ken ik dit niet zo goed. Kan er mij iemand helpen ? In bijlage voeg ik een aantal voorbeeldbestanden bij en een algemeen database bestand. Alvast heel erg bedankt en beste wensen mvg jan Database.xlsx File bert.xlsx File jan.xlsx File pol.xlsx
  6. Super merci dotchiejack misschien nog een extra vraagje indien niet teveel moeite stel dat ik uit bijgevoegde bestanden (yannick, jan en eva) steeds cel b2 en cel b12 wil extraheren naar het analyseblad, wat moet dan gewijzigd worden in de vba formule? ik veronderstel dat de A1 die er nu staat dan B2 moet worden ? maar dat is waarschijnlijk niet voldoende want dit probeerde ik al en werkte niet. Plus ik wil er cel B12 ook nog bij in een tweede kolom - in het tabblad personalia van deze bestanden (jan, yannick, eva) komen steeds de persoonsgegevens van de klanten. Stel dat ik later naast bedrijf (b2) en mailadres (b12) nog andere gegevens wil extraheren, wat moet ik dan extra in de formule zetten. En kan ik dit telkens via een gelijkaardige formule doen ? (zodat ik jullie niet telkens hoef lastig te vallen maar dit zelf kan doen) - wordt dit analysebestand automatisch steeds bewaard als het aangevuld wordt met nieuwe gegevens ? ik had gelezen dat je dit ook in een formule kan toevoegen om dit automatisch te laten bewaren ? alvast bedankt terug en fijne kerst alvast eva.xlsx analyse (1).xlsm Jan Lazeure.xlsx Yannick.xlsx
  7. beste jean paul, in bijlage 5 excels (test 1 tot 5) waar in elk blad 1 een emailadres staat. Daarnaast een algemeen analyse test bestand waar deze mailadressen zouden moeten inkomen op een automatische manier kan je me hierin verder helpen aub? Alvast bedankt mvg jan analyse test.xlsx test1.xlsx test2.xlsx test3.xlsx test4.xlsx test5.xlsx
  8. Beste Jean Paul Als excel leek is VBA ook nieuw voor mij. Kan je mij eventueel wegwijs maken of opstarten hoe ik dit best doe? Alvast bedankt Mvg Jan
  9. Beste Ik heb een 100 tal excel bestanden waar ik het eerste tabblad het emailadres van een klant staat. Ik wil nu zonder te moeten kopiëren en plakken op een automatische manier al deze mailadressen ineens in een apart excel-bestand krijgen. Iemand een oplossing hiervoor? Tnx
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.