Dixon

Ongelooflijk! Werkt perfect! Hartelijk dank!! Dixon

Hey JeanPaul28, Dat werkt ongelooflijk goed, maar in de omgekeerde richting. De basis is het tabblad gegevens en de output zou de lijst moeten zijn. Tabblad gegevens is een kalender dat aangeleverd wordt. Ik zou dit in lijst vorm moeten kunnen verwerken. Bedankt! Dixon

Beste, Ik heb een bestand met twee tabbladen, nl.: Gegevens Lijst Gegevens In het tabblad "Gegevens" staat een tabel / kalender met allerlei gegevens. Ik zou via een macro deze tabel moeten kunnen omzetten in een lijst zoals op tabblad "Lijst". De weergave zou dus voor elke dag de waarde bij een bepaald nummer moeten weergeven. Bijkomend probleem: De kalender telt nu 10 rijen (nummers) en 15 kolommen (dagen). Ik weet nooit hoe lang de lijst zal zijn en hoe lang de kalender zal zijn. D.w.z. dat er volgende keer 15 of 20 rijen (nummers) kunnen staan OF dat er 30 of 31 kolommen (dagen) in kunnen staan. Ter info: Het max. aantal nummers is ongekend (t.e.m. de eerste blanco) Het max aantal dagen is 31. Hoe zou ik dit door een macro kunnen laten transformeren? Hartelijk dank. Dixon Voorbeeld.xlsx

Beste, Een uitdagend probleem wat mij betreft. Gegevens: In bijlage zit een Excel bestand. Wat er zou moeten gebeuren is het volgende. Op het tabblad "Lijst" staan nummers. Deze nummers kunnen meerdere keren voorkomen. In de daaropvolgende kolommen (1 tot 25) staan al dan niet waarden. Resultaat: Het resultaat zou moeten zijn dat alle gegevens die bij één nummer horen, opgelijst worden bij het juiste nummer. De nummers zouden niet meer dubbel mogen voorkomen in de uiteindelijke lijst. Vb: nummer 123 heeft in kolom 6 een "W" en in kolom 11 een "A". Dit staat 2 maal apart geregistreerd in "Lijst". In het resultaat zouden alle waarden die bij 123 horen, bij het nummer 123 moeten staan op één en dezelfde rij. Het Excel bestand spreekt voor zich hoor. Weet iemand hier een formule/workaround voor? Hartelijk dank alvast. Dixon Lijst opmaken.xlsx

Klopt, op die manier wel. Maar als er "Bert" staat, wordt dit "T" en als er "auto" staat, wordt dit "To". Dat is niet de bedoeling.

Beste, Ik heb een document waarin de volgende elementen vaak voorkomen: *T en *X Ik zou deze graag graag vervangen door T en X zodat het sterretje er van voor is. Achteraf moet ik namelijk alle cellen tellen die beginnen met een T en diegene die beginnen met een X. Gewoon Ctrl+H en vervangen gaat niet, want dan vervangt hij alles dat eindigt op een "t" ook mee. Weet iemand een andere functie / manier? Dank! Dixon

Bedankt. Ik heb het via jouw oplossing.

Bedankt voor de oplossing, maar de kolommen zijn gebaseerd op een 'AANTAL' functie. Deze worden namelijk via een macro geïmporteerd. Aangezien 'AANTAL' een nummer weergeeft, kan dit niet. Wat ik wel kan doen is de '1' laten vervangen door de code.

Ik dacht dat te bereiken door kolommen te voorzien met daarin die '1''tjes. Eigenlijk zou Excel moeten gaan zien naar de '2' die op de rij staat waarin vb Ma als 1 gemarkeerd staat.

Beste, Lastig probleem: Tabblad 'Gegevens' Dit zijn gegevens die worden ingegeven. Tabblad 'Kopie' Een kopie van het tabblad 'Gegevens' waarin bepaalde waarden vervangen worden door een letter. Deze letters staan op de tabbladen '21' , '22' en 'Overig'. Wat er nu gebeurd: Enkel nummers worden vervangen door een lettercode (vb: 2), combinaties blijven staan (vb: D1). Als de kolom begint met 21, dan wordt in het tabblad '21' gezocht naar de nr. uit 'Gegevens'. Deze nr. wordt vervangen door de bijhorende letter. Vb: cijfer 2 heeft als kolomhoofding 21. Dit wordt vervangen door de letter 'O' vanuit tabblad 21. Dit gebeurt ook met kolomhoofding 22 en tabblad '22'. De moeilijkheid: Als de kolomhoofding begint met een '3', dan moet er in tabbald 'Overig' naar de letter gezocht worden. MAAR de letter kan verschillen van dag tot dag (rij onder kolomhoofding). D.w.z. dat een 2 op een Ma(andag) kan verschillen van een 2 op een Di(nsdag). vb: hoofding: 33 ; dag: Ma ; Cijfer: 2 --> L (want er staat bij L een 1 onder Ma) hoofding: 33 ; dag: Di ; Cijfer: 2 --> V (want er staat bij V een 1 onder Di) Dat laatste krijg ik niet voor elkaar. De kolommen beginnend met 3 worden in Overig opgezocht, maar er wordt telkens de eerste letter in de lijst weergegeven. De waarden in het rood op tabblad 'Kopie' zijn fout. Weet iemand raad? [ATTACH]37967[/ATTACH] Bedankt. Dixon Voorbeeld.xlsx

Hey, Ziet er goed uit! Hartelijk dank. Dixon

Hallo, Een makkie voor diegene dat VBA kennen denk ik. Hoe kan ik een tabblad kopiëren en hernoemen in eenzelfde Excel document. Ik heb al gevonden hoe dit moet voor een tabblad met een bepaalde naam. Het zou echter zo moeten zijn dat we de naam van het te kopiëren tabblad moeten aangeven in een bepaalde cel. Voorbeeld: Tabblad 'Gegevens' bevat een cel E3 waarin we 'December' zetten. De macro zou dus tabblad 'December' moeten kopiëren en hernoemen in 'December_opm' Ik heb er al een macro ingezet, maar deze doet niet volledig wat het zou moeten doen. [ATTACH]37519[/ATTACH] Bedankt. Dixon Voorbeeld December.xlsm

OK, ik ga het daarmee doen. Bedankt!

VBA omdat de gegevens veel groter zijn in praktijk +/- 31 kolommen op +/- 100 rijen. Ik ga het eens op groteren schaal testen en kom erop terug. Alvast bedankt!

Bucky, Bedankt voor je reactie. Ik heb het voorbeeld aangepast zodat er nu een tabblad bijzit waarin het uiteindelijke resultaat zichtbaar is. Tabblad 'Resultaat' = zo zou het moeten worden. [ATTACH]37148[/ATTACH] Voorbeeld.xlsx

Oh ja, het zou handig zijn dat de vervangen getallen uit 'Lijst' een rode cel krijgen om aan te duiden dat ze vervangen werden.

Beste, Ik heb een lijst gegevens waarin er allerlei letters en getallen staan. Op een ander tabblad heb ik bij enkele van die gegevens een soort van code die bij een bepaald getal hoort. Graag zou ik weten hoe ik de getallen in de lijst kan vervangen door de bijhorende code. Om het te verduidelijken heb ik een voorbeeld (ook in bijlage) Op het tabblad 'Lijst' staat een getal '102' (in verschillende kolommen) Op het tabblad 'Codes' staat dat bij '102' code 'V' hoort. Dit via een formule of macro doen zou zeer handig zijn. De lijst is in werkelijkheid namelijk veel groter. Enkel de gehele getallen hebben een bijhorende code, de rest blijft zoals het is. Weet iemand hier raad mee? Bedankt! [ATTACH]37144[/ATTACH] Dixon Voorbeeld.xlsx

Hartelijk dank, werkt goed nu!

Indien je die fout makkelijk kan oplossen zou dat een mooie extra zijn. Indien dit te moeilijk is, heb je al genoeg voor me gedaan. ;-)

plx, Geweldig! Dat lijkt alles te doen wat het moet doen. Ik heb enkel iets aangepast in het .csv bestand om te kijken of het goed loopt. Bij de tweede import verschijnt er een foutmelding. Als ik deze wegklik via 'Beëindigen' en opnieuw uitvoer, dan lukt het wel weer. Groeten.

Ok, import werkt goed, de gegevens verschijnen nog steeds niet in het tabblad. Ik heb ook al met een extra macro proberen te werken die 'refreshed'. Wat er moet gebeuren is dat het de 'Data!#VERW!' vervangt door 'Data!$A:$J'. Dit gebeurt echter niet. Waarschijnlijk is dat ook niet de goede manier. Wat er moet komen is: Het nummer dat in de kolom 'Volg. Nr.' staat vb: 96, 56 of 190 Indien daar niets staat, moet er getoond worden wat in de kolom 'Rust afw' staat vb: X, OG, T, WV Indien daar ook niets staat moet er 'TC' getoond worden.

plx, Hartelijk dank. Het werkt bijna. Ik heb inderdaad op het eerste blad een formule staan die in het tabblad 'Data' gaat zoeken in bepaalde kolommen. Blijkbaar wordt de gedefineerde tabel in de 'VERT.ZOEKEN' functie gewist bij de import. Er komt dan het volgende te staan: 'Data!#VERW!' i.p.v. 'Data!$A:$J'. Ik heb hier op liggen denken maar ik kan niets bedenken dat de kolommen niet gebruikt. Weet iemand een alternatief voor de VERT.ZOEKEN functie of kent iemand een andere oplossing? Bedankt.

plx, Hartelijk dank. De sheet wordt inderdaad gewist! Ik sta al een stap dichter bij de uiteindelijke oplossing. Het tweede probleem is echter dat alle info uit het .csv document in de eerste kolom terecht komt. Dit zou niet mogen aangezien ik de info nodig heb die in kolom 'Volgner.' en 'Rust afwz' staat. Het .csv document zou er dus in moeten verschijnen in verschillende kolommen zoals in het .csv bestand. Iemand een idee? - - - Updated - - - [ATTACH]34606[/ATTACH] Voorbeeld hoe het uiteindelijk zou moeten. Gewoon .csv bestand geopend met Excel en op voltooien gedrukt. Data.xlsx

[ATTACH]34568[/ATTACH] [ATTACH]34569[/ATTACH] Hier zijn de documenten. Het is de bedoeling dat ik per nummer kan zien wat er in het .csv document bij staat. De macro 'load_csv' zal aan de import knop gelinked worden dat op pagina 'Plantons' staat, momenteel is dat nog niet zo. Bedankt. Overzicht.xlsm Data.TXT

Beste, Ik ben via wat opzoek werk al aan een macro geraakt die een zelf gekozen .csv bestand opent in Excel. Er zijn echter 2 dingen die ontbreken aan de macro: In het csv bestand staan gegevens die gescheiden zijn met een tab vb: Nummer code 1515 A4 Als ik dit via deze macro importeer, dan wordt alle info in de eerste kolom neergezet. Indien ik het csv bestand gewoon open met Excel, dan worden de kolommen wel opgesplitst. Is er een mogelijkheid om dit te importeren zoals Excel dit automatisch doe? (zie afbeelding) Indien ik een tweede keer importeer, komen er gewoon gegevens bij. Eigenlijk zou de Macro het tabblad 'Data' moeten schoonmaken of de gegevens moeten overschrijven. Kan iemand de macro aanvullen aangezien ik hier niets van ken? Bedankt. De Macro: Sub load_csv() Dim fStr As String With Application.FileDialog(msoFileDialogFilePicker) .Show If .SelectedItems.Count = 0 Then MsgBox "Cancel Selected" Exit Sub End If 'fStr is the file path and name of the file you selected. fStr = .SelectedItems(1) End With With ThisWorkbook.Sheets("Data").QueryTables.Add(Connection:= _ "TEXT;" & fStr, Destination:=ThisWorkbook.Sheets("Data").Range("$A$1")) .Name = "CAPTURE" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub