Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: data inlezen uit ander Excel bestand  (gelezen 4004 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: data inlezen uit ander Excel bestand
« Reactie #15 Gepost op: 24 augustus 2023, 15:18:42 »
Mercikes Molly  ;) , ik had het idd liever verder zo gezien op mijn manier , ik kan verder met Uw oplossing , ondertussen ook al ingesteld dat bij het importeren van het bestand , ik mag de file nu opslaan waar ik wil , via de methode "filepicker" (gevonden op het web) kan ik nu via de verkenner naar de betreffende file gaan...
Bedankt voor alles !
Grtjs,
Arnold.

de code die ik nu gebruik om het bestand te openen :

Dim FilePicker As FileDialog
Dim bestand As String
Set FilePicker = Application.FileDialog(msoFileDialogFilePicker)
        With FilePicker
                .Title = "Kies de map met het bestand 'TV-Series'"
                .AllowMultiSelect = False
                .Filters.Add "Text Files", "*.csv", 1
                .FilterIndex = 1
                .Filters.Add "text files| ", "*.csv"
    If .Show <> -1 Then Exit Sub
        bestand = .SelectedItems(1)
  End With

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: data inlezen uit ander Excel bestand
« Reactie #16 Gepost op: 24 augustus 2023, 15:29:48 »
Die van mij geprobeerd? Dat is hoe je het vraagt

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: data inlezen uit ander Excel bestand
« Reactie #17 Gepost op: 24 augustus 2023, 15:32:15 »
Die van mij geprobeerd? Dat is hoe je het vraagt
Jawel hoor en werkt ook perfect én zoals gevraagd de X in kolom D...
eveneens dikke merci voor het meehelpen !
ik ga nu van beide codes proberen deze te begrijpen  ;)
Mvg,
Montagnard.

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: data inlezen uit ander Excel bestand
« Reactie #18 Gepost op: 24 augustus 2023, 15:34:24 »
Succes! :thumbsup:

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: data inlezen uit ander Excel bestand
« Reactie #19 Gepost op: 24 augustus 2023, 16:23:24 »
Mocht je hier geen meerwaarde in zien, dan is de x in kolom D zetten uiteraard even eenvoudig op te lossen.

For i = 0 To UBound(nummers)
  rij = .Columns(1).Find(nummers(i), LookAt:=xlWhole).Row
  If LCase(.Cells(rij, 2)) = "x" Then sp = 4 Else sp = 6
  nummers(i) = .Cells(rij, 2) & Space(sp) & nummers(i)
Next i
Cells(5, 2).Resize(UBound(nummers) + 1) = Application.Transpose(nummers)

Groetjes,
Molly
awel Molly , ik slaag er NIET in  :-[........als ik de code zie dan begrijp ik ze wel (een beetje) , maar om iets te veranderen dat is andere koek  :(

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: data inlezen uit ander Excel bestand
« Reactie #20 Gepost op: 24 augustus 2023, 16:44:40 »
Hoi Arnold,

Hoe zou dat toch komen dat het gevoel weer aanwezig is dat JEC met een meer gesofisticeerde (maar door de doorsnee amateur lastiger te begrijpen) code zal komen?
In elk geval is dit hoe je het kan doen (en als iets niet geheel duidelijk is: één adres voor de nodige uitleg ;))

Het stukje dat je mag aanpassen wordt dan (opnieuw onder 'case else')
ReDim x(UBound(nummers))
For i = 0 To UBound(nummers)
  rij = .Columns(1).Find(nummers(i), LookAt:=xlWhole).Row
  x(i) = .Cells(rij, 2)
Next i
Cells(5, 2).Resize(UBound(nummers) + 1) = Application.Transpose(nummers)
Cells(5, 4).Resize(UBound(nummers) + 1) = Application.Transpose(x)

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: data inlezen uit ander Excel bestand
« Reactie #21 Gepost op: 24 augustus 2023, 16:51:57 »
Dankuwel !
eigenlijk zat ik er op een bepaald moment niet zover af , ik had :
rij = .Columns(1).Find(nummers(i), LookAt:=xlWhole).Row
Gezien(i) = .Cells(rij, 2)

kan het dat "Gezien(i)" niet werkt en "x(i)" wél ?

Grtjs,
Arnold.


Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: data inlezen uit ander Excel bestand
« Reactie #22 Gepost op: 24 augustus 2023, 16:57:08 »
Nee hoor, Arnold, dat mag geen verschil maken.
Maar wel op voorwaarde dat je ook die Dim-instructie gebruikt !

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: data inlezen uit ander Excel bestand
« Reactie #23 Gepost op: 24 augustus 2023, 17:02:48 »
Nee hoor, Arnold, dat mag geen verschil maken.
Maar wel op voorwaarde dat je ook die Dim-instructie gebruikt !

Groetjes,
Molly
aha , ja idd , ik had die DIM instructie NIET gebruikt !
Nog een fijne avond  ;)

 


www.combell.com