Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Tekst naar kolommen (kostprijzen)  (gelezen 839 keer)

0 leden en 1 gast bekijken dit topic.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Tekst naar kolommen (kostprijzen)
« Gepost op: 30 december 2022, 15:22:34 »
Goeiedag ieder,

mag ik nog een vraag stellen op een variant van vraag " Tekst naar kolommen (recepten)"

Hier gaat het om een kostprijs uit een TXT bestand.

Ben er in geslaagd deels de code aan te passen maar is niet helemaal ok.

In Tabblad "resultaat" via de VBA Code

In tabblad " Gewenst" de gewenste opmaak indien mogelijk!

Alvast bedankt!

Fijn eindejaar en dank voor het afgelopen jaar  _/-\o_

Groeten,
Georgyboy

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Tekst naar kolommen (kostprijzen)
« Reactie #1 Gepost op: 30 december 2022, 15:23:46 »
Hier het tekstbestand

Mvg Georgyboy

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Tekst naar kolommen (kostprijzen)
« Reactie #2 Gepost op: 30 december 2022, 16:44:06 »
Hallo Georgyboy,

Met enkel een tekstbestand wordt dit een moeilijke ;) ik zou liever je tabbladen en code te zien krijgen.
Alvast ook voor jou prettig oude- (én nieuwe-) jaar.

Mvg,
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 Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Tekst naar kolommen (kostprijzen)
« Reactie #3 Gepost op: 30 december 2022, 16:57:02 »
Hallo Molly,

Sorry, niet goed opgelet  ;)

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Tekst naar kolommen (kostprijzen)
« Reactie #4 Gepost op: 30 december 2022, 18:26:05 »
Hallo Georgyboy,

Dit zou al redelijk goed moeten geven wat je wou, ik heb er een extra module aan toegevoegd met de aangepaste code.

Mvg,
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 Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Tekst naar kolommen (kostprijzen)
« Reactie #5 Gepost op: 30 december 2022, 18:53:43 »
Hallo Molly, knap zeg ! Mijn eindejaar kan niet meer stuk  ;)

Kan er nog een vraagje?

Kan de celopmaak ook in de code? of is dit te ver gezocht?

Groetjes,
Georgyboy

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Tekst naar kolommen (kostprijzen)
« Reactie #6 Gepost op: 31 december 2022, 12:49:15 »
Hallo Georgyboy,

Natuurlijk kan de celopmaak ook in de code, maar: het is ook te ver gezocht ;)
Die licht ik graag even toe: bij elke uitvoering van de code zullen dezelfde kolommen gebruikt worden met telkens dezelfde gegevenstypen, dus wat voor nut zou het kunnen hebben om elke keer de opmaak te verwijderen en meteen daarna terug in te stellen?
In het bestand dat ik bezorgde had ik al de opmaak van de verschillende kolommen gedaan zoals je zelf op blad "Gewenst" had staan. In principe staat dat dan voor altijd goed.
Dus ik snap niet helemaal waar het linker gedeelte van je jgp-file nu vandaan komt, is dát misschien de opmaak die je wil? of is dat het resultaat van de macro? Dat laatste zou volgens mij enkel kunnen betekenen dat je die los van de macro eerst zelf hebt gewijzigd.

Dat wil niet zeggen dat het verboden is hé, om de opmaak via de code te regelen, zó streng ben ik niet :D
Maar dat kan je makkelijk zelf door gewoon een macro op te nemen. Tijdens die opname moet je enkel de opmaak doen en die code kan je dan tussen de bestaande plakken (veel kans dat daar te veel in staat maar dat vind je wel).

Mvg,
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 Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Tekst naar kolommen (kostprijzen)
« Reactie #7 Gepost op: 31 december 2022, 15:53:08 »
Hallo Molly,

Dank voor je uitvoerig antwoord  _/-\o_

Ik had inderdaad om te proberen in een nieuwe file jouw code gekopieerd en de super werkende code laten lopen, dus zonder celopmaak.
Zal jouw bestand gebruiken om de gegevens te laden.

Had nog één vraagje,

Hoe bepaal je de trimplaats vb. 33, 9 of 43, 8, .........
plaats 33 in de lijn en 9 plaatsen, ...

doe je dit in het tekst document of via een macro op te nemen?

resultaat(i, 1) = Trim(Left(tekst(i), 32))
    resultaat(i, 2) = Mid(tekst(i), 33, 9)
    resultaat(i, 3) = --Trim(Mid(tekst(i), 43, 8))
    totaal_gew = totaal_gew + resultaat(i, 3)
    resultaat(i, 5) = --Trim(Mid(tekst(i), 71, 11))
    resultaat(i, 6) = --Trim(Mid(tekst(i), 83, 15)) / 100
    totaal_kost = totaal_kost + resultaat(i, 6)

Nogmaals dank voor deze goed werkende code  _/-\o_

Geniet van oudejaar!
Prettige feesten,
Georgyboy

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Tekst naar kolommen (kostprijzen)
« Reactie #8 Gepost op: 02 januari 2023, 11:03:26 »
Hallo Georgyboy,

Citaat
Zal jouw bestand gebruiken om de gegevens te laden
Je kan dat met een minimum aan moeite ook in je eigen bestand, hoor. Ofwel kan je het ganse blad 'Resultaat' er naartoe kopiëren, ofwel enkel de opmaak van de 6 resultaatkolommen.

Citaat
Hoe bepaal je de trimplaats vb. 33, 9 of 43, 8, .........
doe je dit in het tekst document of via een macro op te nemen?
In geen geval met een macro op te nemen. Op één of andere manier moet je het uittellen, maar een hulpmiddeltje gebruiken kan altijd ;)
Als je het txt-document opent in kladblok zie je links onderaan meteen de cursorpositie. In Excel is het minstens even makkelijk, maar een voorbeeldje zal meer zeggen dan een uitleg.

Mvg,
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 Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Tekst naar kolommen (kostprijzen)
« Reactie #9 Gepost op: 02 januari 2023, 17:03:44 »
Dankjewel voor de in bijlage mooi uitgelegde tekstontleding  :)

Was bezig met dit te bekijken in een TXT bestand en er de cursur in te plaatsen.

Sorry voor deze "domme" vraag.
Citaat
Je kan dat met een minimum aan moeite ook in je eigen bestand, hoor. Ofwel kan je het ganse blad 'Resultaat' er naartoe kopiëren, ofwel enkel de opmaak van de 6 resultaatkolommen.

Knap hoe dit weer opgelost is!

Groeten,
georgyboy

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Tekst naar kolommen (kostprijzen)
« Reactie #10 Gepost op: 08 januari 2023, 17:03:10 »
Deze vraag is voor mij weeral mooi opgelost !

Bedankt!

 


www.combell.com