0 leden en 1 gast bekijken dit topic.
Dim FilePicker As FileDialogDim bestand As StringSet 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
Die van mij geprobeerd? Dat is hoe je het vraagt
Mocht je hier geen meerwaarde in zien, dan is de x in kolom D zetten uiteraard even eenvoudig op te lossen.Code: [Selecteer]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 iCells(5, 2).Resize(UBound(nummers) + 1) = Application.Transpose(nummers)Groetjes,Molly
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 iCells(5, 2).Resize(UBound(nummers) + 1) = Application.Transpose(nummers)
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 iCells(5, 2).Resize(UBound(nummers) + 1) = Application.Transpose(nummers)Cells(5, 4).Resize(UBound(nummers) + 1) = Application.Transpose(x)
Nee hoor, Arnold, dat mag geen verschil maken.Maar wel op voorwaarde dat je ook die Dim-instructie gebruikt !Groetjes,Molly