DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Je kan de hele kalender maken en volgooien met vert.zoeken() formules. Als je het wil krijgen zoals in jouw screenshot ben je (of iig ik) langer bezig met het mooi maken dan het werkend te krijgenquote:Op zondag 10 april 2016 00:17 schreef einzeinz het volgende:
Ik ben met iets nieuws bezig.
Ik heb een werkplanning voor het personeel. Gegevens zijn als volgt geranschikt in het werkblad 'werkplanning 2016'
- kolom A staan alle data van 2016
- Rij 1 staat de locatie waar die persoon met werken bv. in winkel 1, 2, 3 of bv. een stad (ik zeg maar wat)
- Rij 2 staan de uren want het personeel kan ofwel een dagdienst hebben, een vroege dienst ofwel een late dienst
Alle cellen (het bereik) zijn de namen van de werknemers. Deze planning wordt geregeld aangepast (dienstwissels) en het is gebeurd dat werknemers zich vergissen of de tabel niet zo goed afgelezen hebben.
Daarom zou ik ook in een nieuw werkblad een werkrooster (per maand) per werknemer willen integreren.
In cel A1 bv. kunnen ze hun naam kiezen uit een keuzelijstje (gegevensvalidatie). Dit werkt maar ik zou vervolgens willen dat Excel ook de data mooi in agenda vorm gaat plaatsen en ook de locatie en het tijdstip vermeld in de cellen.
Is dit mogelijk? Ik ben nu al even aan het zoeken maar ik kan het niet vinden hoe ik die naam aan de juiste informatie kan koppelen.
Het is hoogst waarschijnlijk met VB maar ik zit helaas vast.
Zie dit voorbeeld
[ afbeelding ]
De werknemer kiest zijn naam en liefst ook de maand en hij ziet zijn eigen rooster. Zo kan hij/zij dit afdrukken.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
heywoodu
Van bijna dood tot olympiër:
Ik zal het hem even vragenquote:Op zondag 10 april 2016 16:54 schreef qu63 het volgende:
[..]
Als de code openbaar gemaakt kan worden zou dat fijn zijn
Van bijna dood op weg naar de Olympische Spelen, tot olympiër in 2026? Elk beetje hulp wordt bijzonder gewaardeerd!
https://www.gofundme.com/(...)he-spelen-na-ongeval
https://www.gofundme.com/(...)he-spelen-na-ongeval
heywoodu
Van bijna dood tot olympiër:
https://www.dropbox.com/s(...)ZwHX_KEA3eyewMa?dl=0quote:
[..]
Als de code openbaar gemaakt kan worden zou dat fijn zijn
IBU Points Template is het bestand dat de lijst uiteindelijk creeërt, ik heb er even de resultaten van twee willekeurige wedstrijden van afgelopen seizoen bij gezet. Die kunnen geïmporteerd worden, juiste jaar invullen, juiste trimester invullen (1 in het geval van de twee bijgevoegde resultaten) en op "Standings" klikken
Degene die het gemaakt heeft zei er bij dat het niet perfect of professioneel is of iets dergelijks, maar voor mij doet het exact wat het moet doen dus dat boeit me niet zo
Van bijna dood op weg naar de Olympische Spelen, tot olympiër in 2026? Elk beetje hulp wordt bijzonder gewaardeerd!
https://www.gofundme.com/(...)he-spelen-na-ongeval
https://www.gofundme.com/(...)he-spelen-na-ongeval
If it works, it works! Thanks voor t delenquote:
[..]
https://www.dropbox.com/s(...)ZwHX_KEA3eyewMa?dl=0
IBU Points Template is het bestand dat de lijst uiteindelijk creeërt, ik heb er even de resultaten van twee willekeurige wedstrijden van afgelopen seizoen bij gezet. Die kunnen geïmporteerd worden, juiste jaar invullen, juiste trimester invullen (1 in het geval van de twee bijgevoegde resultaten) en op "Standings" klikken
Degene die het gemaakt heeft zei er bij dat het niet perfect of professioneel is of iets dergelijks, maar voor mij doet het exact wat het moet doen dus dat boeit me niet zo
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Sorry dat ik jullie terug stoor.
Ik zou graag hebben, dat als ik een postcode typ in Excel, hij automatisch de gemeente gaat geven. Is daar een goeie tutorial voor?
Het zijn zowel alle Nederlandse als Belgische postcodes (aangezien onze klanten uit beide landen komen).
Uiteraard is het ook zo dat er soms dubbele postcodes zijn waarbij meerdere gemeenten zijn. Het zou leuk zijn mocht er dan een keuzelijstje zijn.
Ik zou graag hebben, dat als ik een postcode typ in Excel, hij automatisch de gemeente gaat geven. Is daar een goeie tutorial voor?
Het zijn zowel alle Nederlandse als Belgische postcodes (aangezien onze klanten uit beide landen komen).
Uiteraard is het ook zo dat er soms dubbele postcodes zijn waarbij meerdere gemeenten zijn. Het zou leuk zijn mocht er dan een keuzelijstje zijn.
Cindy De Vuyst
Met verticaal zoeken in een tabel waar de postcodes en plaatsnamen in staan?quote:
Sorry dat ik jullie terug stoor.
Ik zou graag hebben, dat als ik een postcode typ in Excel, hij automatisch de gemeente gaat geven. Is daar een goeie tutorial voor?
Het zijn zowel alle Nederlandse als Belgische postcodes (aangezien onze klanten uit beide landen komen).
Uiteraard is het ook zo dat er soms dubbele postcodes zijn waarbij meerdere gemeenten zijn. Het zou leuk zijn mocht er dan een keuzelijstje zijn.
Beste iedereen,
Ik wil graag een formule om een prognose te maken van het aantal uren dat ik in een jaar met iets bezig ben.Oftewel:
Kolom 1 Kolom 2 Kolom 3
Activiteit 1 1 januari 3 uur
Activiteit 2 7 januari 1 uur
Activiteit 3 10 januari 2 uur
Totaal: 6 uur
Prognose jaartotaal: 6 uur/10 dagen*365 *
Maar dan een formule die ook werkt als ik een 4e activiteit invul.
Alvast bedankt voor het meedenken!
Ik wil graag een formule om een prognose te maken van het aantal uren dat ik in een jaar met iets bezig ben.Oftewel:
Kolom 1 Kolom 2 Kolom 3
Activiteit 1 1 januari 3 uur
Activiteit 2 7 januari 1 uur
Activiteit 3 10 januari 2 uur
Totaal: 6 uur
Prognose jaartotaal: 6 uur/10 dagen*365 *
Maar dan een formule die ook werkt als ik een 4e activiteit invul.
Alvast bedankt voor het meedenken!
=som(Kolom3)/(max(Kolom2)-min(Kolom2))*365.25quote:
Beste iedereen,
Ik wil graag een formule om een prognose te maken van het aantal uren dat ik in een jaar met iets bezig ben.Oftewel:
Kolom 1 Kolom 2 Kolom 3
Activiteit 1 1 januari 3 uur
Activiteit 2 7 januari 1 uur
Activiteit 3 10 januari 2 uur
Totaal: 6 uur
Prognose jaartotaal: 6 uur/10 dagen*365 *
Maar dan een formule die ook werkt als ik een 4e activiteit invul.
Alvast bedankt voor het meedenken!
Als de precieze dag nog belangrijk is voor je voorspelling, moet je richting lineaire regressie kijken, maar dan komen er een hoop assupties bij kijken waar je over na moet denken.
Ik ben bezig met een csv genereren uit een Excel file. Dat lukt helemaal zoals gewenst, op 1 ding na.
De applicatie waarin de csv vervolgens ingelezen wordt, geeft een foutmelding op de laatste regel van de csv en na enig onderzoek blijkt het volgende te gebeuren.
Het opslaan als csv gaat helemaal goed, maar als ik vervolgens de csv in Notepad bekijk, is er altijd een Enter zichtbaar na het laatste item uit de laatste rij, en de applicatie ziet dat blijkbaar als nieuwe regel. Er staat verder geen data in die regel, dus ook geen scheidingstekens o.i.d.
Als ik in Notepad die Enter backspace naar de laatste regel en het bestand weer opsla, pakt de applicatie de csv wel.
De vraag is natuurlijk, hoe kan ik voorkomen dat deze loze Enter toegevoegd wordt. Ik heb al uitgebreid lopen googelen maar kan niks vinden, line breaks e.d. blijken vaker een probleem bij andersom proces (vanuit een csv een excel file genereren).
Verder ook al vanalles geprobeerd in Excel zelf:
-bv alle lege rijen onder mijn data eerst deleten en dan pas opslaan
-idem maar dan ook nog de range selecteren en dan opslaan
-idem maar dan de gegenereerde data eerst naar een nieuw werkblad kopiëren en dan opslaan
helpt allemaal niet. Iemand nog een idee daarover?
De applicatie waarin de csv vervolgens ingelezen wordt, geeft een foutmelding op de laatste regel van de csv en na enig onderzoek blijkt het volgende te gebeuren.
Het opslaan als csv gaat helemaal goed, maar als ik vervolgens de csv in Notepad bekijk, is er altijd een Enter zichtbaar na het laatste item uit de laatste rij, en de applicatie ziet dat blijkbaar als nieuwe regel. Er staat verder geen data in die regel, dus ook geen scheidingstekens o.i.d.
Als ik in Notepad die Enter backspace naar de laatste regel en het bestand weer opsla, pakt de applicatie de csv wel.
De vraag is natuurlijk, hoe kan ik voorkomen dat deze loze Enter toegevoegd wordt. Ik heb al uitgebreid lopen googelen maar kan niks vinden, line breaks e.d. blijken vaker een probleem bij andersom proces (vanuit een csv een excel file genereren).
Verder ook al vanalles geprobeerd in Excel zelf:
-bv alle lege rijen onder mijn data eerst deleten en dan pas opslaan
-idem maar dan ook nog de range selecteren en dan opslaan
-idem maar dan de gegenereerde data eerst naar een nieuw werkblad kopiëren en dan opslaan
helpt allemaal niet. Iemand nog een idee daarover?
Ik vind dat geen loze enter. De applicatie die de csv inleest zou daar maar mee om moeten kunnen gaan.
Zeg nou zelf, wat is logischer:
- elke regel in het bestand wordt afgesloten door een enter, of
- elke regel behalve de laatste wordt afgesloten door een enter?
Zeg nou zelf, wat is logischer:
- elke regel in het bestand wordt afgesloten door een enter, of
- elke regel behalve de laatste wordt afgesloten door een enter?
^^Nu ook een paar varianten mee geprobeerd. Tab delimited txt, txt MSDOS etc. Creëert allemaal min. 1 extra lege regel onderaan.
Ik denk dat het ergens best werkbaar zal zijn voor de gebruiker om deze eenmalige handeling nog in Notepad te doen, omdat we met deze csv sowieso al heel veel tijd gaan winnen, maar ik heb ergens het idee dat ook dit probleem gewoon opgelost zou moeten kunnen worden.
Helaas heb ik geen invloed op hoe de applicatie werkt, die is van een externe partij.
Ik denk dat het ergens best werkbaar zal zijn voor de gebruiker om deze eenmalige handeling nog in Notepad te doen, omdat we met deze csv sowieso al heel veel tijd gaan winnen, maar ik heb ergens het idee dat ook dit probleem gewoon opgelost zou moeten kunnen worden.
Helaas heb ik geen invloed op hoe de applicatie werkt, die is van een externe partij.
Ik heb een vraagje:
Ik heb 2 kolommen met data (zeg A en B) die niet op alle plekken gevuld zijn. Nu heb ik een IF functie toegepast die me een 1 geeft wanneer A1 en B1 tegelijkertijd een willekeurige waarde in hun cel hebben staan en de functie geeft me een 0 wanneer er in beide of in 1 van beide cellen geen waarde staat, dus: =IF (AND(A1>0;B1>0);1;0).
Deze functie heb ik naar beneden gesleept (zeg in kolom D) en beslaat nu zo'n 2000 rijen met 1-en en 0-len overeenkomstig met de data. Op het einde tel ik alle 1-en op, dus ik neem de som van de hele kolom om zo te zien hoe vaak er een waarde in kolom A en tegelijkertijd in kolom B staat en dat werkt eigenlijk prima. Maar nu vroeg ik me af of het mogelijk is om dit alles in 1 formule te zetten. Zodat ik geen 2000 rijen hoef te beslaan om vervolgens alle cellen op te tellen.
Ik hoop dat de vraag een beetje duidelijk is, als het nodig is kan ik misschien wat meer informatie geven, misschien met screenshots.
Alvast Bedankt!
Ik heb 2 kolommen met data (zeg A en B) die niet op alle plekken gevuld zijn. Nu heb ik een IF functie toegepast die me een 1 geeft wanneer A1 en B1 tegelijkertijd een willekeurige waarde in hun cel hebben staan en de functie geeft me een 0 wanneer er in beide of in 1 van beide cellen geen waarde staat, dus: =IF (AND(A1>0;B1>0);1;0).
Deze functie heb ik naar beneden gesleept (zeg in kolom D) en beslaat nu zo'n 2000 rijen met 1-en en 0-len overeenkomstig met de data. Op het einde tel ik alle 1-en op, dus ik neem de som van de hele kolom om zo te zien hoe vaak er een waarde in kolom A en tegelijkertijd in kolom B staat en dat werkt eigenlijk prima. Maar nu vroeg ik me af of het mogelijk is om dit alles in 1 formule te zetten. Zodat ik geen 2000 rijen hoef te beslaan om vervolgens alle cellen op te tellen.
Ik hoop dat de vraag een beetje duidelijk is, als het nodig is kan ik misschien wat meer informatie geven, misschien met screenshots.
Alvast Bedankt!
SUMIF()quote:
Ik heb een vraagje:
Ik heb 2 kolommen met data (zeg A en B) die niet op alle plekken gevuld zijn. Nu heb ik een IF functie toegepast die me een 1 geeft wanneer A1 en B1 tegelijkertijd een willekeurige waarde in hun cel hebben staan en de functie geeft me een 0 wanneer er in beide of in 1 van beide cellen geen waarde staat, dus: =IF (AND(A1>0;B1>0);1;0).
Deze functie heb ik naar beneden gesleept (zeg in kolom D) en beslaat nu zo'n 2000 rijen met 1-en en 0-len overeenkomstig met de data. Op het einde tel ik alle 1-en op, dus ik neem de som van de hele kolom om zo te zien hoe vaak er een waarde in kolom A en tegelijkertijd in kolom B staat en dat werkt eigenlijk prima. Maar nu vroeg ik me af of het mogelijk is om dit alles in 1 formule te zetten. Zodat ik geen 2000 rijen hoef te beslaan om vervolgens alle cellen op te tellen.
Ik hoop dat de vraag een beetje duidelijk is, als het nodig is kan ik misschien wat meer informatie geven, misschien met screenshots.
Alvast Bedankt!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Als je een beetje ervaring hebt met vba, dan je hele csv export doen via macro. En dan met stream read/write voorbeeld de text inlezen en dan iets van StrStream = left(StrStream, len(StrStream )-2)quote:Op dinsdag 26 april 2016 13:34 schreef Modus het volgende:
Ik denk dat het ergens best werkbaar zal zijn voor de gebruiker om deze eenmalige handeling nog in Notepad te doen, omdat we met deze csv sowieso al heel veel tijd gaan winnen, maar ik heb ergens het idee dat ook dit probleem gewoon opgelost zou moeten kunnen worden.
en dan StrStream weer wegschrijven.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Sub test() Dim filenaam As String Dim StrStream As String filenaam = "D:\Folder\book1.csv" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objfile = objFSO.OpenTextFile(filenaam, 1) Do Until objfile.AtEndOfStream StrStream = StrStream & objfile.ReadLine & vbCrLf Loop Debug.Print StrStream objfile.Close Set objFSO = CreateObject("Scripting.FileSystemObject") 'Opnieuw zelfde CSV (leeg) aanmaken om in te schrijven Set objfile = objFSO.CreateTextFile(filenaam, True) 'Hier gebruike Write, niet Writeline 'Met 2 karakters inkorten. Enter (vbcrlf = 2 karakters lang) objfile.Write (Left(StrStream, Len(StrStream) - 2)) 'objfile.Write (1) objfile.Close End Sub |
(Wel eerst in VBA in -> References -> "Microsoft Scripting RunTime" aanvinken.)
[ Bericht 12% gewijzigd door The_vice op 27-04-2016 12:19:32 (nazorg) ]
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Dankje! Het wil echter nog niet zo vlotten aangezien ik steeds 0 uit krijg op welke manier ik de de functie ook verander.quote:
Is het mogelijk om als "criteria" in de SUMIF functie de functie IF(AND(A1>0;B1>0);1;0) te nemen? Alhoewel, dan kijkt die ook maar naar één cel, dus misschien iets als: IF(AND(A1:A2000>0;B1:B2000>0);1;0). Ben de draad kwijt
Eigenlijk bedoelde ik SUMPRODUCT()quote:
[..]
Dankje! Het wil echter nog niet zo vlotten aangezien ik steeds 0 uit krijg op welke manier ik de de functie ook verander.
Is het mogelijk om als "criteria" in de SUMIF functie de functie IF(AND(A1>0;B1>0);1;0) te nemen? Alhoewel, dan kijkt die ook maar naar één cel, dus misschien iets als: IF(AND(A1:A2000>0;B1:B2000>0);1;0). Ben de draad kwijt
=SOMPRODUCT(--(A1:A2000<>"");--(B1:B2000<>""))
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Ha interessant. Wat ik tot nu toe heb gaat ook via VBA, en stream gedoe ken ik wel maar gebruik het niet vaak dus ook niet meteen aan gedacht.quote:Op woensdag 27 april 2016 12:13 schreef The_vice het volgende:
[..]
Als je een beetje ervaring hebt met vba, dan je hele csv export doen via macro. En dan met stream read/write voorbeeld de text inlezen en dan iets van StrStream = left(StrStream, len(StrStream )-2)
en dan StrStream weer wegschrijven.
[ code verwijderd ]
(Wel eerst in VBA in -> References -> "Microsoft Scripting RunTime" aanvinken.)
Dus wat ik eik moet doen is:
-basis xlsm bestand, daarin de data formatten, data kopiëren naar nieuw leeg bestand en dat opslaan als csv
-vanuit de macro met stream object die csv uitlezen
-vanuit de macro met stream object nieuw bestand aanmaken en de content (min die 2 kar.) daar in wegschrijven en opslaan als nieuw csv.
Moet ik in die laatste stap echt een nieuwe filenaam geven (zodat ik daarna dus 2 csv's heb) of kan ik daarmee die bestaande csv overschrijven? Als dat eerste van toepassing is, dan kan ik denk ik ook met dit streamobject verhaal dat eerste csv bestand (want niet meer nodig) deleten, toch?
Gelukt! Bedankt!quote:
[..]
Eigenlijk bedoelde ik SUMPRODUCT()
=SOMPRODUCT(--(A1:A2000<>"");--(B1:B2000<>""))
Door in de laatste stap het opnieuw te open (met zelfde filenaam), maar dan middels "ForWrite" wordt alles overschreven met de inhoud van je stream.quote:
(andere mogelijkheden zijn Writeline of Append, maar dat is voor toevoegen)
Verder nog. De netste methode is om direct vanuit je sheet data naar file stream te schrijven.
zelf zou ik dan beginnen om alles in een Array te duwen middels:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | Sub RangeToArray() Dim myArray() As Variant Dim tempTekst As Variant Dim tekst As String myArray = Range("A1:D14") 'of welke range je hebt Dim i, j Dim kolommen Dim rijen kolommen = UBound(myArray, 2) rijen = UBound(myArray, 1) For i = 1 To rijen For j = 1 To kolommen 'variant naar string (Cstr) tekst = tekst & myArray(i, j) & ";" 'en andere gewenste opmaak Next j 'laatste ";" weghalen tekst = Left(tekst, Len(tekst) - 1) 'linefeed toevoegen tekst = tekst & vbCrLf Next i 'laatste linefeed weer weghalen tekst = Left(tekst, Len(tekst) - 2) 'en door naar je stream 'of "immediate window" Debug.Print tekst End Sub |
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Bij "Insert Object from a file" -> Create from file krijgt het icon als standaardcaption het volledige bestandspad. Kan ik die default ergens zetten op puur de bestandsnaam zelf, zodat ik dat niet elke keer handmatig hoef aan te passen?
By being a racing driver means - you are racing with other people. And if you no longer go for a gap, that exists, you are no longer a racing driver. Because we are competing. We are competing to win. And the main motivation to all of us is to compete for a victory. ~ Ayrton Senna
Excel 2013 Engels.
Is er een manier om ervoor te zorgen dat de data die ik omzet naar een tabel altijd tot de laatste cel in die tabel gaat? Ik heb hier een macro voor maar de tabellen verschillen dus elke keer in het aantal regels.
De complete macro verzamelt verschillende tekst bestanden, laadt deze allemaal onder elkaar in 1 sheet, zet de data om naar kolommen en vervolgens zet ik die kolommen om naar een tabel.
Nu is het zo dat die lijsten elke keer verschillend zijn qua aantal regels. Uit voorzorg selecteer ik tot regel 10.000 voordat ik het omzet naar tabel. Maar daarna maak ik nog weer een overzicht in een pivot, die pivot telt natuurlijk al die lege regels ook mee. Dat kan ik uitzetten in het filter maar ik heb liever dat tijdens het omzetten naar tabel gewoon alle gevulde regels worden omgezet.
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$L$10000"), , xlYes).Name _
= "Table1"
De range zou ik dus graag aangepast hebben zodat ie elke keer de laatste cel met data van de tabel vindt.
Is er een manier om ervoor te zorgen dat de data die ik omzet naar een tabel altijd tot de laatste cel in die tabel gaat? Ik heb hier een macro voor maar de tabellen verschillen dus elke keer in het aantal regels.
De complete macro verzamelt verschillende tekst bestanden, laadt deze allemaal onder elkaar in 1 sheet, zet de data om naar kolommen en vervolgens zet ik die kolommen om naar een tabel.
Nu is het zo dat die lijsten elke keer verschillend zijn qua aantal regels. Uit voorzorg selecteer ik tot regel 10.000 voordat ik het omzet naar tabel. Maar daarna maak ik nog weer een overzicht in een pivot, die pivot telt natuurlijk al die lege regels ook mee. Dat kan ik uitzetten in het filter maar ik heb liever dat tijdens het omzetten naar tabel gewoon alle gevulde regels worden omgezet.
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$L$10000"), , xlYes).Name _
= "Table1"
De range zou ik dus graag aangepast hebben zodat ie elke keer de laatste cel met data van de tabel vindt.
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
Na enig zoeken en testen heb ik een code gevonden die werkt:quote:Op vrijdag 29 april 2016 11:25 schreef Puckzzz het volgende:
Excel 2013 Engels.
Is er een manier om ervoor te zorgen dat de data die ik omzet naar een tabel altijd tot de laatste cel in die tabel gaat? Ik heb hier een macro voor maar de tabellen verschillen dus elke keer in het aantal regels.
De complete macro verzamelt verschillende tekst bestanden, laadt deze allemaal onder elkaar in 1 sheet, zet de data om naar kolommen en vervolgens zet ik die kolommen om naar een tabel.
Nu is het zo dat die lijsten elke keer verschillend zijn qua aantal regels. Uit voorzorg selecteer ik tot regel 10.000 voordat ik het omzet naar tabel. Maar daarna maak ik nog weer een overzicht in een pivot, die pivot telt natuurlijk al die lege regels ook mee. Dat kan ik uitzetten in het filter maar ik heb liever dat tijdens het omzetten naar tabel gewoon alle gevulde regels worden omgezet.
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$L$10000"), , xlYes).Name _
= "Table1"
De range zou ik dus graag aangepast hebben zodat ie elke keer de laatste cel met data van de tabel vindt.
quote:ActiveSheet.ListObjects.Add(xlSrcRange, Range([A1].End(xlDown), [A1].End(xlToRight)), , xlYes).Name = "Table1"
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
Ok, ik kom er niet meer uit. Het zal ongetwijfeld belachelijk simpel zijn, maargoed 
Ik werk met Excel 2013, Nederlandse taal.
Ik heb 4 rijen (zie hieronder). Kolom 1 is wat we hebben gehaald, kolom 2 is de eigenlijke norm, kolommen 3 en 4 zijn de gegevens die ik koppel aan het resultaat uit kolom 1. Klom 3 en 4 horen per rij bij elkaar.
Ja, vaag. Maar ik wil dus:
Als 8:06 gerealiseerd is, dat de formule dit ziet, kijkt naar kolom 3 en het bijbehorende gegeven uit kolom 4 ophaalt. Dus dat er dan 95 wordt opgehaald.
Ook zou ik willen zien dat als er een resultaat is van 8:00 of eerder, er 100 komt te staan.
Ik heb al geklooid met een eindeloze =ALS formule en daarmee kom ik een eind, maar ik kreeg een foutmelding vanaf 8:06 (formule denk ik te lang?)
Help!
Ik werk met Excel 2013, Nederlandse taal.
Ik heb 4 rijen (zie hieronder). Kolom 1 is wat we hebben gehaald, kolom 2 is de eigenlijke norm, kolommen 3 en 4 zijn de gegevens die ik koppel aan het resultaat uit kolom 1. Klom 3 en 4 horen per rij bij elkaar.
Ja, vaag
. Maar ik wil dus:Als 8:06 gerealiseerd is, dat de formule dit ziet, kijkt naar kolom 3 en het bijbehorende gegeven uit kolom 4 ophaalt. Dus dat er dan 95 wordt opgehaald.
Ook zou ik willen zien dat als er een resultaat is van 8:00 of eerder, er 100 komt te staan.
Ik heb al geklooid met een eindeloze =ALS formule en daarmee kom ik een eind, maar ik kreeg een foutmelding vanaf 8:06 (formule denk ik te lang?)
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Realisatie Norm Tijd % gehaald 8:06:00 8:00 8:00 100 8:02:00 8:00 8:01 99 8:01:00 8:00 8:02 98 8:03:00 8:00 8:03 97 11:01:00 8:00 8:04 96 7:26:00 8:00 8:05 95 7:09:00 8:00 8:06 94 6:55:00 8:00 8:07 93 6:35:00 8:00 8:08 92 6:35:00 8:00 8:09 91 6:51:00 8:00 8:10 90 8:30:00 8:00 8:11 89 7:00:00 8:00 8:12 88 8:13 87 8:14 86 8:15 0 |
Help!
Tijdstipquote:
^^Zijn de gegevens in kolom A en B een tijdstip of een tijdsduur?
In E2 zou dan zoiets moeten komenquote:
| 1 | =ALS(A2<=B2;100;VERT.ZOEKEN(A2;C:D;2;ONWAAR)) |
en dan doortrekken, maar om mij nog onduidelijke reden kan ie dan de 08:03:00 en de 08:06:00 niet vinden die er wel degelijk in staan, dan geeft ie een #N/B, de 8:02 en 8:01 kan ie wel vinden. Echt GEEN IDEE hoe dit kan. Ms toch iets met dat tijdrekenen, dat is altijd gekut.
11:01:00 vindt ie logischerwijs ook niet, want die staat niet in kolom C.
[ Bericht 15% gewijzigd door Modus op 29-04-2016 19:44:33 ]
Zonder hier naar te kijken vanmorgen een scriptje gemaakt met FSO en dat werkte zoals ik wilde, dus ook zonder die laatste enter nu. Thanks. Als dat vinkje een vereiste is, neem ik aan dat het toen aanstond.quote:
(Wel eerst in VBA in -> References -> "Microsoft Scripting RunTime" aanvinken.)
's Middags ergens kreeg ik ineens op de regel met de fso.CreateTextFile opdracht een Permission Denied error, terwijl die regel vanaf begin af aan niet veranderd is geweest. Heb ik ineens geen schrijfrechten meer in betr. dir?? Toen dat vinkje maar eens gaan checken, stond niet aan. Aangevinkt, toen werkte het weer. Ehhhhh? Ben nooit aan dat vinkje geweest.
Kan IT op de achtergrond hebben lopen rommelen om te voorkomen dat ik dit soort scriptjes ga gebruiken?
-edit
toen ik de CSV uiteindelijk probeerde in te lezen begon hij weer te miepen. Na uitzoeken blijkt dat te slaan op enkele harde line breaks binnen cellen die ik in het Excelbestand heb staan. Bij voorkeur moeten die er wel in blijven staan, maar die moeten blijkbaar ook op 1 of andere manier 'geformatteerd' worden om bruikbaar te zijn.
Bij het inlezen van de csv kan ik nog een paar dingen instellen, zoals de seperator (werkt verder goed nu) en de line break, maar ik neem aan dat die slaat op einde van de hele regel en niet op 1 'losse entry'.
[ Bericht 11% gewijzigd door Modus op 29-04-2016 20:10:15 ]
Kan ook zijn dat een ander process het nog open had (bijv. preview in Windows Explorer.) Of dat tijdens debuggen het bestand nog niet goed was afgesloten.quote:
Speciale karakters zijn vaak struikelpunten in code. Je wilt niet weten hoe vaak ik me blind zit te staren op dubbele spaties, Non-Breaking spaties etc. Wat ik soms dan doe is "vbLf" of chr(10) even tijdelijk vervangen door de tekst "[Linefeed]". En dan verderop weer terug omzetten Replace(.... "[Linefeed]" -->chr(10) ) o.i.d. Niet al te sjiek, maar zorgt er wel voor dat je weer verder kan.
Zou ik dan wel in een aparte functie(s) wegwerken, dan vervuil je je hoofdcode niet, en kan je het makkelijk verder bijpoetsen of uitbreiden binnen de functie(s) waar nodig.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Als de formulerijen in alle 50 sheets écht op dezelfde adressen staan.quote:
Wie weet of dit kan en hoe het dan werkt:
Ik wil graag opmaak, formules e.d. van het werkblad A naar werkblad B kopiëren, echter zonder dat de gegevens in werkblad B overschreven worden.
.......
Dan (in backup testen)
• Groepeer de desbetreffende sheets • En dan word alles wat je doet op de achterliggende gegroepeerde sheets herhaald. Dus wat je plakt, typt, opmaakt, print instellingen etc.
• niet vergeten, groepering weer opheffen.
persoonlijk ben ik geen fan van meerdere werkbladen met min of meer zelfde inhoud. Maar als je het echt nodig hebt dan zou ik het middels boven beschreven groepeer oplossing oplossen.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Hm lastig, nog nooit eerder zoiets gedaan. Ik denk dat ik 2 opties heb om uit te werken:quote:
Speciale karakters zijn vaak struikelpunten in code. Je wilt niet weten hoe vaak ik me blind zit te staren op dubbele spaties, Non-Breaking spaties etc. Wat ik soms dan doe is "vbLf" of chr(10) even tijdelijk vervangen door de tekst "[Linefeed]". En dan verderop weer terug omzetten Replace(.... "[Linefeed]" -->chr(10) ) o.i.d. Niet al te sjiek, maar zorgt er wel voor dat je weer verder kan.
-de harde enters in de cellen laten staan en VBA die bij het uitlezen van de cellen laten herkennen en op 1 of andere wijze in de tekststring verwerken; geen idee of dat kan en zo ja hoe
-de harde enters in die cellen weghalen en in betreffende celtekst op de juiste plekken iets van chr(10) ertussen fietsen??
dus een celtekst a la adres1chr(10)plaats1 ??
-edit
na wat googelen denk ik dat ik wellicht het beste die cellen met line breaks in mijn basislijst kan vervangen door losse cellen met elk 1 regel
En in de code die ik nu heb die de tekststring samenstelt daar waar nodig een char(10) tussen plakken
-edit2
dat laatste heb ik net getest, dat krijg ik werkend
vandeweek verder
[ Bericht 7% gewijzigd door Modus op 29-04-2016 23:01:39 ]
Integendeel, lijkt me juist heel onlogisch dat die op het einde van de regel slaat en niet op een 'losse entry'. Heb je het al geprobeerd?quote:
Bij het inlezen van de csv kan ik nog een paar dingen instellen, zoals de seperator (werkt verder goed nu) en de line break, maar ik neem aan dat die slaat op einde van de hele regel en niet op 1 'losse entry'.
Ja. Hij liep vast op de 2e regel in de csv (dus de 1e regel met data). Toen gezorgd dat de cel die daarbij hoort geen line breaks had, en opnieuw geprobeerd. Toen begon de appl. te miepen over hetzelfde item, maar dan 1 regel lager. De meldingen die die app. geeft zijn nogal summier, maar geeft wel aan welke regel (en welk item op die regel) van de csv problemen geeft.quote:
[..]
Integendeel, lijkt me juist heel onlogisch dat die op het einde van de regel slaat en niet op een 'losse entry'. Heb je het al geprobeerd?
Heb je notepad++? Daarin kan je met knop "¶" (Show all characters) controleren wat in je csv zit (of terecht is gekomen).quote:
[..]
Ja. Hij liep vast op de 2e regel in de csv (dus de 1e regel met data). Toen gezorgd dat de cel die daarbij hoort geen line breaks had, en opnieuw geprobeerd. Toen begon de appl. te miepen over hetzelfde item, maar dan 1 regel lager. De meldingen die die app. geeft zijn nogal summier, maar geeft wel aan welke regel (en welk item op die regel) van de csv problemen geeft.
Als ik een linefeed in een cell stop, komen er in de .csv Saveas van Excel zelf ineens quotes omheen te staan. Kan soms ook weer onwenselijk zijn.
Is de applicatie waar je in wilt importeren voorzien van een goede help file/specificatie, of ergens een support van de maker beschikbaar? Dan wil voorbeeld opsturen van CSV ook nog wel eens voor verheldering kunnen zorgen. Als de makers uitgingen van netjes gekamde fris gewassen csv's heb je zomaar kans op issues
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Ik heb geen Notepad++ beschikbaar. Voor de app. is een handleiding beschikbaar maar die is ook vrij beperkt. Namen van de kolomheaders en nog wat info en daar houdt het nu mee op.
1 van de velden is bv. een eenheid (kg, liter etc). Bij handmatig invoeren krijg je hier een dropdown (de app is een webform). Je zou verwachten dat de csv dan precies die termen moet gebruiken. Nee dus. Tig variaties geprobeerd, kg, KG, KILO, KILOGRAM etc. Werd allemaal niet geaccepteerd. Wat moet het wel zijn: als je in de source van dat webform kijkt zie je dat elk item in die dropdown een code heeft (100, 200, 300 etc). Die maar eens geprobeerd en dat bleek het geval. Wordt nergens over gerept in de handleiding en dat vond ik wel slecht.
Met jouw tips en verder googelen lijkt dit linebreakding nu opgelost (maar kan dat dinsdag pas weer testen).
Verder moeten ingevoerde getallen altijd 3 cijfers achter de komma hebben voor de app. Mijn eerste versie deed dat zonder problemen, maar jouw script door elke cel uit te lezen naar een tekststring pakt die niet, ondanks ingestelde veldsettings. Moet ik ook nog uitzoeken.
1 van de velden is bv. een eenheid (kg, liter etc). Bij handmatig invoeren krijg je hier een dropdown (de app is een webform). Je zou verwachten dat de csv dan precies die termen moet gebruiken. Nee dus. Tig variaties geprobeerd, kg, KG, KILO, KILOGRAM etc. Werd allemaal niet geaccepteerd. Wat moet het wel zijn: als je in de source van dat webform kijkt zie je dat elk item in die dropdown een code heeft (100, 200, 300 etc). Die maar eens geprobeerd en dat bleek het geval. Wordt nergens over gerept in de handleiding en dat vond ik wel slecht.
Met jouw tips en verder googelen lijkt dit linebreakding nu opgelost (maar kan dat dinsdag pas weer testen).
Verder moeten ingevoerde getallen altijd 3 cijfers achter de komma hebben voor de app. Mijn eerste versie deed dat zonder problemen, maar jouw script door elke cel uit te lezen naar een tekststring pakt die niet, ondanks ingestelde veldsettings. Moet ik ook nog uitzoeken.
Is gratis te downloaden en ook als portable van usb stick te draaien, mocht je niet kunnen installeren.quote:
Kan wel kloppen, de Array is als een Variant gedefinieerd, die zal dus zelfstandig nummer afronding toepassen, als een waarde numeriek is. In je directe opgeslagen CSV wordt het aantal cijfers achter de komma zoals je in Excel hebt ingesteld (per veld) als tekst opgeslagen.quote:Verder moeten ingevoerde getallen altijd 3 cijfers achter de komma hebben voor de app. Mijn eerste versie deed dat zonder problemen, maar jouw script door elke cel uit te lezen naar een tekststring pakt die niet, ondanks ingestelde veldsettings. Moet ik ook nog uitzoeken.
Middels een If Then Else afhandeling kan je in specifiek rijen/kolommen (array coordinaten) het wel oplossen.
Zie voorbeeldje binnen j loop:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | For j = 1 To kolommen 'met aangepaste formatting 'rij 1 is header in voorbeeld, 'vanaf kolom 2 data If j > 1 And i > 1 Then 'format "#,##0.00" naar wens tekst = tekst & _ Format(myArray(i, j), "#,##0.00") _ & ";" Else tekst = tekst & myArray(i, j) & ";" End If 'en andere gewenste opmaak Next j |
In voorbeeld slechts met 2 cijfers achter de komma. Ik ga het je natuurlijk niet te makkelijk maken.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Is er een formule om het aantal cellen in een reeks te tellen met een bepaalde opmaak?
Een collega van mij is zo slim geweest om een heel schema te maken met gekleurde vakjes zonder waarde...
Een collega van mij is zo slim geweest om een heel schema te maken met gekleurde vakjes zonder waarde...
Opinion is the medium between knowledge and ignorance (Plato)
iig wel VBA: https://support.microsoft.com/en-us/kb/2815384quote:
Is er een formule om het aantal cellen in een reeks te tellen met een bepaalde opmaak?
Een collega van mij is zo slim geweest om een heel schema te maken met gekleurde vakjes zonder waarde...
Of met filters: http://trumpexcel.com/201(...)ound-color-in-excel/
Of met XL4 Macro's die geenmacro's zijn*? http://stackoverflow.com/(...)el/20491479#20491479
*Die zijn voor mij ook nieuw.. Meer info hierover is hier te vinden.
[ Bericht 10% gewijzigd door qu63 op 30-04-2016 15:00:03 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Dank. Na het weekend eens naar kijken.quote:
[..]
iig wel VBA: https://support.microsoft.com/en-us/kb/2815384
Of met filters: http://trumpexcel.com/201(...)ound-color-in-excel/
Of met XL4 Macro's die geenmacro's zijn*? http://stackoverflow.com/(...)el/20491479#20491479
*Die zijn voor mij ook nieuw.. Meer info hierover is hier te vinden.
Opinion is the medium between knowledge and ignorance (Plato)
Windows kent wel verschillende newlines he, \n en \r (newline en carriage return). in VBA dus chr(10) en chr(13), misschien dat ie daar over struikeld?quote:
[..]
Hm lastig, nog nooit eerder zoiets gedaan. Ik denk dat ik 2 opties heb om uit te werken:
-de harde enters in de cellen laten staan en VBA die bij het uitlezen van de cellen laten herkennen en op 1 of andere wijze in de tekststring verwerken; geen idee of dat kan en zo ja hoe
-de harde enters in die cellen weghalen en in betreffende celtekst op de juiste plekken iets van chr(10) ertussen fietsen??
dus een celtekst a la adres1chr(10)plaats1 ??
-edit
na wat googelen denk ik dat ik wellicht het beste die cellen met line breaks in mijn basislijst kan vervangen door losse cellen met elk 1 regel
En in de code die ik nu heb die de tekststring samenstelt daar waar nodig een char(10) tussen plakken
-edit2
dat laatste heb ik net getest, dat krijg ik werkend
vandeweek verder
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Zulke dingen zou ik eigenlijk gewoon aan collega teruggeven, onder motto "Onwerkbare troep, maak er eerst maar data van".quote:
Een collega van mij is zo slim geweest om een heel schema te maken met gekleurde vakjes zonder waarde...
Wat je middels onderstaand vast zelf kan doen, maar dat hoef je je collega natuurlijk niet te vertellen.
| 1 2 3 4 5 6 7 8 9 10 11 | Sub LoopRange() Dim rCell As Range Dim rRng As Range 'Aanpassen voor gekleurde range die je hebt Set rRng = ActiveSheet.Range("A1:B6") For Each rCell In rRng.Cells Debug.Print rCell.Address, rCell.Interior.Color 'herhaal originel cell waarde (zou leeg moeten zijn in collega geval) rCell.Value = rCell.Value & " [" & rCell.Interior.Color & "]" Next rCell End Sub |
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Thanks! Al een heel stuk verder hiermeequote:
[..]
In E2 zou dan zoiets moeten komen
[ code verwijderd ]
en dan doortrekken, maar om mij nog onduidelijke reden kan ie dan de 08:03:00 en de 08:06:00 niet vinden die er wel degelijk in staan, dan geeft ie een #N/B, de 8:02 en 8:01 kan ie wel vinden. Echt GEEN IDEE hoe dit kan. Ms toch iets met dat tijdrekenen, dat is altijd gekut.
11:01:00 vindt ie logischerwijs ook niet, want die staat niet in kolom C.
Alleen idd 8:03, 8:06 en 8:10 blijven een #N/B geven.
edit: En opgelost, door de tijden nogmaals in te typen
Vervang C:D eens door $C$1:$D$999 (of hoe lang je rij ook is)quote:
[..]
Thanks! Al een heel stuk verder hiermee
Alleen idd 8:03, 8:06 en 8:10 blijven een #N/B geven.
edit: En opgelost, door de tijden nogmaals in te typen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Ik heb de inhoud van 330 mailtjes in Excel weten te krijgen in één bestand, onder elkaar.
De inhoud is als volgt, en dat dus 330 keer (duizenden regels dus):
Ik wilde een filter maken voor een aantal van deze gegevens, namelijk "Ritdatum, Naam Bedrijf, Soort, Van, Naar, Bestanden". Alle overige informatie uit die mails wil ik verwijderen.
Ik geloof dat dit mogelijk is met advanced filter, maar ik kom er niet uit. Wie helpt?
De inhoud is als volgt, en dat dus 330 keer (duizenden regels dus):
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | Sent time: 01/01/2010 12:26:01 PM To: email@adres.com Subject: subject Formulier Tekst Ritdatum: 01012000 Naam contact: Email contact: Woonplaats contact: Naam bedrijf: Soort: Van: Naar Start: Vanaf: Tijd 1: Tijd 2: Tijd 3: Tijd 4: Vervolg: Eindadres: Onkosten: Vertraging: Nee Bestanden: Timestamp: 12345678 |
Ik wilde een filter maken voor een aantal van deze gegevens, namelijk "Ritdatum, Naam Bedrijf, Soort, Van, Naar, Bestanden". Alle overige informatie uit die mails wil ik verwijderen.
Ik geloof dat dit mogelijk is met advanced filter, maar ik kom er niet uit. Wie helpt?
Ik zou voor mijn eigen gemak denk ik een hulpkolommetje maken met een ALS-lus die enen genereert op de gewenste regels, en nullen op de rest.quote:Op woensdag 4 mei 2016 18:38 schreef RacerDKB het volgende:
Ik heb de inhoud van 330 mailtjes in Excel weten te krijgen in één bestand, onder elkaar.
De inhoud is als volgt, en dat dus 330 keer (duizenden regels dus):
[ code verwijderd ]
Ik wilde een filter maken voor een aantal van deze gegevens, namelijk "Ritdatum, Naam Bedrijf, Soort, Van, Naar, Bestanden". Alle overige informatie uit die mails wil ik verwijderen.
Ik geloof dat dit mogelijk is met advanced filter, maar ik kom er niet uit. Wie helpt?
Opinion is the medium between knowledge and ignorance (Plato)
Dat is op zich een goed idee, maar als ik bijvoorbeeld "Ritdatum" wil pakken, de waarde die daar achter staat is uiteraard telkens een andere waarde.quote:
[..]
Ik zou voor mijn eigen gemak denk ik een hulpkolommetje maken met een ALS-lus die enen genereert op de gewenste regels, en nullen op de rest.
<troepregels>
Ritdatum: 01052016
<troepregels>
Ritdatum: 02052016
<troepregels>
Hoe pak ik die dan allemaal?
| 1 | =IF(A6="Ritdatum:",1,0) |
Een sterretje * er achter zetten werkt niet
Gisteren en vandaag minder lang aan kunnen werken dan gehoopt. Ben nu zover dat ik een mooie csv kan wegschrijven, op het oog (Notepad) helemaal compleet. 1 regel met kopteksten, daaronder 4 regels met data. Alle eerste items van die 4 regels zijn gevuld.quote:
In voorbeeld slechts met 2 cijfers achter de komma. Ik ga het je natuurlijk niet te makkelijk maken.
En wat gebeurt bij de laatste keer csv inlezen die ik heb kunnen doen: applicatie zegt dat het eerste item van de eerste dataregel leeg is
.Terwijl dat stuk code werkend was en ik ook niks veranderd heb. Om gek van te worden. Los je issue 1 op, heb je daardoor ineens issue 2. Los je die op, werkt 1 weer niet meer of ontstaat issue 3.
.De code die ik tot nu toe heb voor het creëren van de tekststring:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | Dim myArray() As Variant Dim myArray2() As Variant Dim text As String myArray = Range("A1:J1") Dim s Dim intColumns1 intColumns1 = UBound(myArray, 2) For s = 1 To intColumns1 text = text & myArray(1, s) & ";" Next s text = Left(text, Len(text) - 1) text = text & vbCrLf myArray2 = Range("A2:N" & InpLRow) Dim j, k Dim intColumns2 Dim intRows intColumns2 = UBound(myArray2, 2) intRows = UBound(myArray2, 1) For j = 1 To intRows For k = 1 To intColumns2 If k = 2 Then text = text & """" & myArray2(j, k) & Chr(10) & myArray2(j, (k + 1)) & Chr(10) & myArray2(j, (k + 2)) & Chr(10) & myArray2(j, (k + 3)) & Chr(10) & myArray2(j, (k + 4)) & """" & ";" k = 6 Else text = text & myArray2(j, k) & ";" End If Next k text = Left(text, Len(text) - 1) text = text & vbCrLf Next j text = Left(text, Len(text) - 2) |
Als ik de csv open in Notepad is het toch echt zoiets:
koptekst1;koptekst2;koptekst3;koptekst4
datarij1item1;datarij1item2;datarij1item3;datarij1item4
datarij2item1;datarij2item2;datarij2item3;datarij2item4
etc.
Het is mij vooralsnog een groot raadsel hoe de app. dan kan zeggen dat datarij1item1 leeg is.
Daar loopt ie nu op vast dus ik kan op dit moment ook nog niet zeggen mijn oplossing voor de linebreaks goed werken. In de helpbestanden stond iig dat als binnen een item 'leestekens' oid voorkomen, het item dan tussen aanhalingstekens moet staan. Ook dat ziet er goed uit als ik de csv in Notepad bekijk.
Gebruik de functie LINKS, die pakt het linkerdeel van een tekst.quote:Op woensdag 4 mei 2016 20:46 schreef RacerDKB het volgende:
[..]
Dat is op zich een goed idee, maar als ik bijvoorbeeld "Ritdatum" wil pakken, de waarde die daar achter staat is uiteraard telkens een andere waarde.
<troepregels>
Ritdatum: 01052016
<troepregels>
Ritdatum: 02052016
<troepregels>
Hoe pak ik die dan allemaal?
[ code verwijderd ]
Een sterretje * er achter zetten werkt niet
Als in A6 staat 'Ritdatum: 21-4-2016', dan levert de functie =LINKS(A6;8) de tekst "Ritdatum".
Opinion is the medium between knowledge and ignorance (Plato)
Maar ik wil dat die " 21-4-2016" er ook bij komtquote:
[..]
Gebruik de functie LINKS, die pakt het linkerdeel van een tekst.
Als in A6 staat 'Ritdatum: 21-4-2016', dan levert de functie =LINKS(A6;8) de tekst "Ritdatum".
Ik leg het waarschijnlijk raar uit.Ik heb nu heel veel data direct vanuit mailtjes, daar wil ik iets van 80% van weghalen, ik dacht door te filteren op te dingen die ik wel wil houden.
Ja, dat snap ik wel, maar je gebruikt het LINKS-gedeelte dan alleen om de regels te filteren. Je originele gegevens blijven toch gewoon staan?quote:
[..]
Maar ik wil dat die " 21-4-2016" er ook bij komt
Ik heb nu heel veel data direct vanuit mailtjes, daar wil ik iets van 80% van weghalen, ik dacht door te filteren op te dingen die ik wel wil houden.
Opinion is the medium between knowledge and ignorance (Plato)
Als het netjes geplakt is (dus zonder wisselende aantallen witregels en dergelijken) dan kun je trouwens ook nog vrij makkelijk modulorekenen.
Opinion is the medium between knowledge and ignorance (Plato)
Helaas zit er per pagina verschil tussen, dit kan ik niet fixen. Anders had ik gewoon handmatig nulletjes en eentjes gezet bij "pagina 1", en dit geplakt bij alle overige pagina's.quote:
Als het netjes geplakt is (dus zonder wisselende aantallen witregels en dergelijken) dan kun je trouwens ook nog vrij makkelijk modulorekenen.
Maar bedankt voor je hulp, hier lukt het wel mee denk ik. Snap nog niet wat ik heb aan dat LINKS/LEFT gedoe maar ik ga weer verder kloten.
Nou ja, het wordt iets van =ALS(OF(A6=iets;A6=iets anders;A6=nog iets anders;LINKS(A6;8)="Ritdatum");1;0)quote:
[..]
Helaas zit er per pagina verschil tussen, dit kan ik niet fixen. Anders had ik gewoon handmatig nulletjes en eentjes gezet bij "pagina 1", en dit geplakt bij alle overige pagina's.
Maar bedankt voor je hulp, hier lukt het wel mee denk ik. Snap nog niet wat ik heb aan dat LINKS/LEFT gedoe maar ik ga weer verder kloten.
Opinion is the medium between knowledge and ignorance (Plato)
Is het gewoon 1 werkblad, 1 kolom met data? En is het een eenmalige actie om de overbodige zooi te deleten?quote:
[..]
Maar ik wil dat die " 21-4-2016" er ook bij komt
Ik heb nu heel veel data direct vanuit mailtjes, daar wil ik iets van 80% van weghalen, ik dacht door te filteren op te dingen die ik wel wil houden.
Wat ook nog kan is alle regels nummeren, daarna alles alfabetisch sorteren, handmatig wegmikken wat je niet wil hebben en daarna weer terugsorteren op regelnummer.
Och, er zijn wel honderd opties om zoiets te doen.
Och, er zijn wel honderd opties om zoiets te doen.
Opinion is the medium between knowledge and ignorance (Plato)
Leuk hè programmeren. De frustaties zijn bekend.quote:
En wat gebeurt bij de laatste keer csv inlezen die ik heb kunnen doen: applicatie zegt dat het eerste item van de eerste dataregel leeg is
Terwijl dat stuk code werkend was en ik ook niks veranderd heb. Om gek van te worden. Los je issue 1 op, heb je daardoor ineens issue 2. Los je die op, werkt 1 weer niet meer of ontstaat issue 3.
Speltip 1 : zorg altijd dat je iets zachts bijdehand hebt, dan is de tafel niet zo hard als je er met je voorhoofd op bonkt.
Ik ga even kijken of ik wat aan je (deel) code kan zien.
[ Bericht 2% gewijzigd door The_vice op 04-05-2016 22:25:03 ]
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Nou ja, frustrerend idd, maar ook wel leerzaam en uiteindelijk toch bevredigend als je iets hebt kunnen maken waar men wat aan heeft. Al dan niet hier en daar wat code lenend. Alvast bedankt voor de tips voor zover.
Precies, ben er ook geweest en doorheen gekomen. Zeker de laatste 10 jaar is het ook steeds beter op internet zoeken.quote:
Nou ja, frustrerend idd, maar ook wel leerzaam en uiteindelijk toch bevredigend als je iets hebt kunnen maken waar men wat aan heeft. Al dan niet hier en daar wat code lenend. Alvast bedankt voor de tips voor zover.
En geleend is absoluut geen zonde, ook daar leer je stapje bij beetje steeds meer van. Je zal het toch weer steeds een beetje moeten aanpassen naar eigen gebruik.
Had er even snel naar gekeken.
zoals als ik hem open na exporteren in notepad++
| 1 2 3 4 5 6 | koptekst1;koptekst2;koptekst3;koptekst4{CR}{LF} datarij1item1; "datarij1item2[lijn 1]{LF} datarij1item2[lijn 2]{LF} datarij1item2[lijn 3]{LF} datarij1item2[lijn 4]";datarij1item3;datarij1item4{CR}{LF} etc. |
Kan je het voor de test:
• zonder chr (10) (=linefeed) testen. Als je dit veld splitsbaar wilt houden is PIPE character ook een gebruikelijk alternatief = "|"
en/of
• om alle velden quotes plakken -> chr(34) = "
Dan kan je in ieder geval weer iets uitsluiten.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Die chr(10) eruit slopen om uit te sluiten had ik ook al bedacht, maar nog geen tijd voor gehad. Maar kan me nauwelijks voorstellen dat die problemen geeft, die komt zoals je correct ziet pas voor in datarij1item2, waar de app vermoedelijk niet eens komt, omdat hij al op het item ervoor vastloopt.
-edit
maar het hele ding even terugbrengen naar de "basics", puur platte tekst, kijken of die gelezen wordt, en dan 1 voor 1 die bijzondere dingen erin verwerken
Weet niet of je er wat aan hebt verder maar bij het inlezen heb je nog een paar opties
-scheidingsteken selecteren --> ; lijkt goed te werken
-linebreak: kan ik kiezen tussen automatisch, DOS of UNIX. In de helpfiles staat bij voorkeur Auto gebruiken, en tot nu toe doe ik dat eik ook.
[ Bericht 12% gewijzigd door Modus op 04-05-2016 23:09:00 ]
-edit
maar het hele ding even terugbrengen naar de "basics", puur platte tekst, kijken of die gelezen wordt, en dan 1 voor 1 die bijzondere dingen erin verwerken
Weet niet of je er wat aan hebt verder maar bij het inlezen heb je nog een paar opties
-scheidingsteken selecteren --> ; lijkt goed te werken
-linebreak: kan ik kiezen tussen automatisch, DOS of UNIX. In de helpfiles staat bij voorkeur Auto gebruiken, en tot nu toe doe ik dat eik ook.
[ Bericht 12% gewijzigd door Modus op 04-05-2016 23:09:00 ]
Op deze manier heb ik de data nu netjes in één bestand onder elkaar.quote:
Wat ook nog kan is alle regels nummeren, daarna alles alfabetisch sorteren, handmatig wegmikken wat je niet wil hebben en daarna weer terugsorteren op regelnummer.
Och, er zijn wel honderd opties om zoiets te doen.
Het is nu echter:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | A B C D E F A B C D E F A B C D E F |
en hier wil ik van maken
| 1 2 3 | A B C D E F A B C D E F A B C D E F |
Kan wel wat omslachtige maniertjes bedenken, maar wat is een simpele betrouwbare manier om dit te doen?
Iets met =INDEX(). Maar er is iets te veel wijn in de vrouw om dat nu verder voor je uit te werken.quote:
[..]
Op deze manier heb ik de data nu netjes in één bestand onder elkaar.
Het is nu echter:
[ code verwijderd ]
en hier wil ik van maken
[ code verwijderd ]
Kan wel wat omslachtige maniertjes bedenken, maar wat is een simpele betrouwbare manier om dit te doen?
Opinion is the medium between knowledge and ignorance (Plato)
Betrouwbare manier is een key + transformatie vlookup combo. Zo vlieg ik dit soort dingen geregeld aan. Is achteraf makkelijk aanpasbaar en werkt met veldnamen.quote:
Het is nu echter:
[ code verwijderd ]
en hier wil ik van maken
[ code verwijderd ]
Kan wel wat omslachtige maniertjes bedenken, maar wat is een simpele betrouwbare manier om dit te doen?
Gaat als volgt:
• Maak twee kolommen voor je data.
• Maak een formule die alle groepen per groep nummert (neem aan dat je nu per groep data je data hebt gesorteerd?)
• Combineer GroepNummer en Veldnaam zodat je een uniek te vinden waarde hebt voor vlookup.
• Dan maak een genummerde kolom (op een ander sheet) met op de eerste rij de veldnamen in de kolommen.
• Doe een Vlookup op {(genummerde kolom} & {veldnamen}) in je range met data.
Ziet er in formules zo uit:
formules en je data
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Kolom A Kolom B Kolom C Kolom D 1 2 =B2&C2 =IF(C2="Veld 1";B1+1;B1) Veld 1 Waarde 1.1 3 =B3&C3 =IF(C3="Veld 1";B2+1;B2) Veld 2 Waarde 1.2 4 =B4&C4 =IF(C4="Veld 1";B3+1;B3) Veld 3 Waarde 1.3 5 =B5&C5 =IF(C5="Veld 1";B4+1;B4) Veld 4 Waarde 1.4 6 =B6&C6 =IF(C6="Veld 1";B5+1;B5) Veld 5 Waarde 1.5 7 =B7&C7 =IF(C7="Veld 1";B6+1;B6) 8 =B8&C8 =IF(C8="Veld 1";B7+1;B7) Veld 1 Waarde 2.1 9 =B9&C9 =IF(C9="Veld 1";B8+1;B8) Veld 2 Waarde 2.2 10 =B10&C10 =IF(C10="Veld 1";B9+1;B9) Veld 3 Waarde 2.3 11 =B11&C11 =IF(C11="Veld 1";B10+1;B10) Veld 4 Waarde 2.4 12 =B12&C12 =IF(C12="Veld 1";B11+1;B11) Veld 5 Waarde 2.5 13 =B13&C13 =IF(C13="Veld 1";B12+1;B12) 14 =B14&C14 =IF(C14="Veld 1";B13+1;B13) Veld 1 Waarde 3.1 15 =B15&C15 =IF(C15="Veld 1";B14+1;B14) Veld 2 Waarde 3.2 16 =B16&C16 =IF(C16="Veld 1";B15+1;B15) Veld 3 Waarde 3.3 17 =B17&C17 =IF(C17="Veld 1";B16+1;B16) Veld 4 Waarde 3.4 18 =B18&C18 =IF(C18="Veld 1";B17+1;B17) Veld 5 Waarde 3.5 |
| 1 2 3 4 | Veld 1 Veld 2 1 =VLOOKUP($G2&H$1;$A$2:$D$18;4;FALSE) =VLOOKUP($G2&I$1;$A$2:$D$18;4;FALSE) 2 =VLOOKUP($G3&H$1;$A$2:$D$18;4;FALSE) =VLOOKUP($G3&I$1;$A$2:$D$18;4;FALSE) 3 =VLOOKUP($G4&H$1;$A$2:$D$18;4;FALSE) =VLOOKUP($G4&I$1;$A$2:$D$18;4;FALSE) |
en op sheet:
formules en je data
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | nr&veld 0 Veld Waarde 1Veld 1 1 Veld 1 Waarde 1.1 1Veld 2 1 Veld 2 Waarde 1.2 1Veld 3 1 Veld 3 Waarde 1.3 1Veld 4 1 Veld 4 Waarde 1.4 1Veld 5 1 Veld 5 Waarde 1.5 1 1 2Veld 1 2 Veld 1 Waarde 2.1 2Veld 2 2 Veld 2 Waarde 2.2 2Veld 3 2 Veld 3 Waarde 2.3 2Veld 4 2 Veld 4 Waarde 2.4 2Veld 5 2 Veld 5 Waarde 2.5 2 2 3Veld 1 3 Veld 1 Waarde 3.1 3Veld 2 3 Veld 2 Waarde 3.2 3Veld 3 3 Veld 3 Waarde 3.3 3Veld 4 3 Veld 4 Waarde 3.4 3Veld 5 3 Veld 5 Waarde 3.5 |
| 1 2 3 4 | nr Veld 1 Veld 2 1 Waarde 1.1 Waarde 1.2 2 Waarde 2.1 Waarde 2.2 3 Waarde 3.1 Waarde 3.2 |
[ Bericht 1% gewijzigd door The_vice op 05-05-2016 15:47:40 ]
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
http://blog.codinghorror.com/the-great-newline-schism/, wellicht dat ie met auto er juist mee aan de haal gaat...quote:
-linebreak: kan ik kiezen tussen automatisch, DOS of UNIX. In de helpfiles staat bij voorkeur Auto gebruiken, en tot nu toe doe ik dat eik ook.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Zal morgen eens kijken als ik tijd heb. Die linebreak binnen velden even laten voor wat het is en dan kijken of de app de csv kan inlezen. Heb al veel testjes gedaan dus ik denk dat ik dat scenario ook al heb geprobeerd. Ms moet ik ipv chr(10) vbLF gebruiken voor de linebreak binnen een veld?
Of voor de linebreak binnen een veld niet LF maar CRLF gebruiken, en dat de app dat herkent omdat er quotes om het veld staan.
-edit
wat ik ook nog kan doen
Mijn eerste opzet (gewoon Excel de csv laten genereren door op te slaan) werd goed ingelezen door de app, op de laatste linefeed na. Als ik dat nou nog eens doe en de csv dan bekijk in Notepad++, zie ik wellicht hoe en wat.
[ Bericht 17% gewijzigd door Modus op 05-05-2016 16:30:22 ]
Of voor de linebreak binnen een veld niet LF maar CRLF gebruiken, en dat de app dat herkent omdat er quotes om het veld staan.
-edit
wat ik ook nog kan doen
Mijn eerste opzet (gewoon Excel de csv laten genereren door op te slaan) werd goed ingelezen door de app, op de laatste linefeed na. Als ik dat nou nog eens doe en de csv dan bekijk in Notepad++, zie ik wellicht hoe en wat.
[ Bericht 17% gewijzigd door Modus op 05-05-2016 16:30:22 ]
Altijd goed om zoiets te doen, als dat geslaagde input voor je App is, dan weet je in ieder geval waar je naartoe moet werken.quote:
Mijn eerste opzet (gewoon Excel de csv laten genereren door op te slaan) werd goed ingelezen door de app, op de laatste linefeed na. Als ik dat nou nog eens doe en de csv dan bekijk in Notepad++, zie ik wellicht hoe en wat.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Weer stukje verder, mee naar huis genomen, nu aan het testen. Heb nu 2 files gemaakt:
-de eerste gewoon vanuit Excel, data, opslaan als csv en handmatig later die laatste Enter even weghalen
-de tweede d.m.v. wegschrijven met dat FSOscript.
Wanneer ik beide bestanden open in NP++, zijn de eerste 2 regels EXACT gelijk, incl alle speciale tekens
En wat denk je: de app accepteert de eerste file zonder problemen; de 2e begint ie WEER te miepen dat het eerste item van de eerste dataregel leeg zou zijn . Nu weet ik het echt niet meer.
Nog 3 dingen geprobeerd daarna:
-ander artikel als eerste in de lijst laten komen, hielp niet
-vóór het FSO-stuk de eerste Excel kolom eerst omgezet naar Text-format, hielp niet
-al die DOS/UNIX opties geprobeerd bij het inlezen, werkt ook allemaal niet
-de eerste gewoon vanuit Excel, data, opslaan als csv en handmatig later die laatste Enter even weghalen
-de tweede d.m.v. wegschrijven met dat FSOscript.
Wanneer ik beide bestanden open in NP++, zijn de eerste 2 regels EXACT gelijk, incl alle speciale tekens
En wat denk je: de app accepteert de eerste file zonder problemen; de 2e begint ie WEER te miepen dat het eerste item van de eerste dataregel leeg zou zijn
. Nu weet ik het echt niet meer.Nog 3 dingen geprobeerd daarna:
-ander artikel als eerste in de lijst laten komen, hielp niet
-vóór het FSO-stuk de eerste Excel kolom eerst omgezet naar Text-format, hielp niet
-al die DOS/UNIX opties geprobeerd bij het inlezen, werkt ook allemaal niet
• hmm, dan wellicht files even open middels een Hex Viewer. Kan je twee keer openen en dan naast elkaar je bestanden kijken.quote:
Op Het kan haast niet anders dan dat er ergens toch een verschil in zit.
Anders wil ik wel even met je meekijken, stuur me dan een PM.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
heywoodu
Van bijna dood tot olympiër:
Hoe kan het dat Ctrl + D (cel boven de huidige cel "kopiëren") het ineens niet meer doet in Excel (2010), in een document waarin dat een dag of twee geleden nog wel werkte? 
Van bijna dood op weg naar de Olympische Spelen, tot olympiër in 2026? Elk beetje hulp wordt bijzonder gewaardeerd!
https://www.gofundme.com/(...)he-spelen-na-ongeval
https://www.gofundme.com/(...)he-spelen-na-ongeval
Zit er toevallig een verborgen regel tussen? Of gefilterd?quote:
Hoe kan het dat Ctrl + D (cel boven de huidige cel "kopiëren") het ineens niet meer doet in Excel (2010), in een document waarin dat een dag of twee geleden nog wel werkte?
Opinion is the medium between knowledge and ignorance (Plato)
heywoodu
Van bijna dood tot olympiër:
quote:
[..]
Zit er toevallig een verborgen regel tussen? Of gefilterd?
Nee. Nou ja, er is wel gefilterd, maar er zijn geen verborgen regels. Filteren is ook nooit een probleem geweest, want ik doe exact hetzelfde als ik al een jaar of 6 met dit bestand doe en het werkte altijd
Van bijna dood op weg naar de Olympische Spelen, tot olympiër in 2026? Elk beetje hulp wordt bijzonder gewaardeerd!
https://www.gofundme.com/(...)he-spelen-na-ongeval
https://www.gofundme.com/(...)he-spelen-na-ongeval
Hmm. Ik gebruik het ook regelmatig. Geen idee dan.quote:
[..]
[ afbeelding ]
Nee. Nou ja, er is wel gefilterd, maar er zijn geen verborgen regels. Filteren is ook nooit een probleem geweest, want ik doe exact hetzelfde als ik al een jaar of 6 met dit bestand doe en het werkte altijd
Opinion is the medium between knowledge and ignorance (Plato)
heywoodu
Van bijna dood tot olympiër:
Nou is er natuurlijk wel omheen te werken, maar ik doe het al jaren zo automatisch dat ik in het afgelopen kwartier al tig keer niet door had dat ik een cel leeg heb gelaten (want bijna blind "ctrl d, tab, ctrl d, tab, wat invullen, tab" etcquote:
[..]
Hmm. Ik gebruik het ook regelmatig. Geen idee dan.
Van bijna dood op weg naar de Olympische Spelen, tot olympiër in 2026? Elk beetje hulp wordt bijzonder gewaardeerd!
https://www.gofundme.com/(...)he-spelen-na-ongeval
https://www.gofundme.com/(...)he-spelen-na-ongeval
Doet CTRL-R het nog wel?quote:
[..]
Nou is er natuurlijk wel omheen te werken, maar ik doe het al jaren zo automatisch dat ik in het afgelopen kwartier al tig keer niet door had dat ik een cel leeg heb gelaten (want bijna blind "ctrl d, tab, ctrl d, tab, wat invullen, tab" etc
Opinion is the medium between knowledge and ignorance (Plato)
heywoodu
Van bijna dood tot olympiër:
Ik moest even opzoeken wat dat was want die gebruik ik nooit, maar die werkt blijkbaar wel ja.quote:
Van bijna dood op weg naar de Olympische Spelen, tot olympiër in 2026? Elk beetje hulp wordt bijzonder gewaardeerd!
https://www.gofundme.com/(...)he-spelen-na-ongeval
https://www.gofundme.com/(...)he-spelen-na-ongeval
Misschien heb je in je document, al dan niet per ongeluk, iets toegewezen aan de sneltoets CTRL-D ofzo. Probeer het eens in een leeg document?quote:
[..]
Ik moest even opzoeken wat dat was want die gebruik ik nooit, maar die werkt blijkbaar wel ja.
Opinion is the medium between knowledge and ignorance (Plato)
heywoodu
Van bijna dood tot olympiër:
In een nieuw document werkt het ook niet. Volgens mij al een tijdje niet zelfs, maar in het document waar ik mee bezig ben deed 'ie het nog wel, tot vandaag.quote:
[..]
Misschien heb je in je document, al dan niet per ongeluk, iets toegewezen aan de sneltoets CTRL-D ofzo. Probeer het eens in een leeg document?
Van bijna dood op weg naar de Olympische Spelen, tot olympiër in 2026? Elk beetje hulp wordt bijzonder gewaardeerd!
https://www.gofundme.com/(...)he-spelen-na-ongeval
https://www.gofundme.com/(...)he-spelen-na-ongeval
en als je excel in safe mode opstart?quote:
[..]
In een nieuw document werkt het ook niet. Volgens mij al een tijdje niet zelfs, maar in het document waar ik mee bezig ben deed 'ie het nog wel, tot vandaag.
| 1 2 | Start->Run "excel.exe /s" |
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Ik zie wel verschillen maar zover ik kan beoordelen worden die consequent door het hele bestand aangehouden.quote:
[..]
• hmm, dan wellicht files even open middels een Hex Viewer. Kan je twee keer openen en dan naast elkaar je bestanden kijken.
Als ik het excelgegenereerde bestand open, zie ik rechts precies hetzelfde staan als wanneer ik het in Notepad zou openen, en in het linkergedeelte dan de bijbehorende hexadecimale codes.
Het 'FSO'bestand doet min of meer hetzelfde, het verschil is dat na élk karakter een punt ingevoegd, die ook consequent links terug te vinden zijn in de hexadecimale codes.
1 van de kopteksten bv. is x/aantal, het de FSO file laat dan x./.a.a.n.t.a.l. zien.
Enige wat mij opvalt bij dat FSO bestand, is dat regel 1 van de kopteksten begint met 2 tekens die ik niet kan plaatsen. De hd code daarvan is FF FE, en rechts staat dan een y met umlaut en een p met het pootje naar boven doorgetrokken, als je snapt wat ik bedoel.
Weet niet of je daar wat mee kan.
De app zeurt dus over het 1e item van de 1e dataregel, maar daar zie ik geen problemen in...
[ Bericht 2% gewijzigd door Modus op 07-05-2016 18:06:19 ]
Staat voor Big Little Endian. Moest ik ook weer even opzoeken. Heeft met de Encoding te maken.quote:
1 van de kopteksten bv. is x/aantal, het de FSO file laat dan x./.a.a.n.t.a.l. zien.
Enige wat mij opvalt bij dat FSO bestand, is dat regel 1 van de kopteksten begint met 2 tekens die ik niet kan plaatsen. De hd code daarvan is FF FE, en rechts staat dan een y met umlaut en een p met het pootje naar boven doorgetrokken, als je snapt wat ik bedoel.
Weet niet of je daar wat mee kan.
De app zeurt dus over het 1e item van de 1e dataregel, maar daar zie ik geen problemen in...
Heb het om de een of andere reden hier niet als ik vanuit zowel Excel als vanuit VBA de .csv maak.
's kijken of hier wat over te vinden is.
Wat zegt Notepad++ onder encoding over beide files?
Als je googeld op HEX code van de overige . . dan moeten die ook wel weer een betekenis geven.
Maarruh, denk dat we de gok kunnen maken dat "1e item van de 1e dataregel" wellicht op de allereerste regel slaat?
[ Bericht 1% gewijzigd door The_vice op 07-05-2016 19:13:11 ]
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Nee. De foutomschrijving is iets als 'de erkencode moet gevuld zijn regel 2'. Erkencode is ook het eerste item.
Kweet niet zeker wat je bedoelt maar NP++ zegt over het Excelbestand 'Encode in UTF8' en over de FSO 'Encode in UCS 2 LE BOM'.
Kweet niet zeker wat je bedoelt maar NP++ zegt over het Excelbestand 'Encode in UTF8' en over de FSO 'Encode in UCS 2 LE BOM'.
Denk dat ik een ADODB Stream moet gebruiken om een UFT8 file te kunnen schrijven. Even testen daarmee.
zoiets las ik ook ergens.quote:
Denk dat ik een ADODB Stream moet gebruiken om een UFT8 file te kunnen schrijven. Even testen daarmee.
Ondertussen net even in N++ getest, als ik mijn FSO (ANSI) converteer/Encodeer naar Little Endian dan krijg ik netjes de FF FE erbij in HEX viewer. Gaan er ook weer af als ik weer terug converteer naar ANSI.
Blijft wel raar dat FSO export dus anders kan gaan op verschillende machines. (Ik draai hier Win 7 en Excel 64 bit)
even testje gedaan, gewijzigd:
| 1 | Set objfile = objFSO.CreateTextFile(filenaam, True) |
| 1 | Set objfile = objFSO.CreateTextFile(filenaam, True, 0) |
en dan output als eerder met
| 1 | objfile.Write ("Stukje Tekst") |
(opties -1 en -2 ipv 0 geeft little endian.)
[ Bericht 18% gewijzigd door The_vice op 07-05-2016 21:08:40 ]
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
HIJ DOET HET!
Met die ADODB stream schreef hij alsnog als UTF8 BOM weg. Paar regels extra script gevonden dat op basis van eveneens ADODB met een reader/writer die BOM alsnog weghaalt en opnieuw wegschrijft.
En de applicatie accepteert nu het gemaakte bestand.
[ Bericht 91% gewijzigd door Modus op 07-05-2016 21:27:53 ]
Met die ADODB stream schreef hij alsnog als UTF8 BOM weg. Paar regels extra script gevonden dat op basis van eveneens ADODB met een reader/writer die BOM alsnog weghaalt en opnieuw wegschrijft.
En de applicatie accepteert nu het gemaakte bestand.
[ Bericht 91% gewijzigd door Modus op 07-05-2016 21:27:53 ]
Gefeliciteerdquote:Op zaterdag 7 mei 2016 21:14 schreef Modus het volgende:
HIJ DOET HET!
Met die ADODB stream schreef hij alsnog als UTF8 BOM weg. Paar regels extra script gevonden dat op basis van eveneens ADODB met een reader/writer die BOM alsnog weghaalt en opnieuw wegschrijft.
En de applicatie accepteert nu het gemaakte bestand.
. Heb je in ieder geval weer de volledige controle over je App. Was dat ook al met de Linefeeds binnen de cellen, of bewaar je dat voor later?
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Die zitten er ook al in inderdaad. Ik moet voor de zekerheid nog paar keer testen met andere inputdata en de gebruiker moet het ook nog even bekijken, maar zo op het oog lijkt dit te zijn wat ze zoeken.
heywoodu
Van bijna dood tot olympiër:
Over het Ctrl+D-probleem: de laptop opnieuw opstarten hielp schijnbaar 
Van bijna dood op weg naar de Olympische Spelen, tot olympiër in 2026? Elk beetje hulp wordt bijzonder gewaardeerd!
https://www.gofundme.com/(...)he-spelen-na-ongeval
https://www.gofundme.com/(...)he-spelen-na-ongeval
quote:
Over het Ctrl+D-probleem: de laptop opnieuw opstarten hielp schijnbaar
Opinion is the medium between knowledge and ignorance (Plato)
Een csv export in excel is afhankelijk van de land instelling, als er daarin andere decimaal en kolomtekens ingesteld staan komt er een andere export uit, ik weet niet of het daarmee te maken heeft, maar waarschuw toch even daarvoor.quote:
Dan komt ie er als een soort van ANSI uit (N++ geeft geen encoding dan weer). De directe CSV uit Excel komt wel aan als ANSI in N++.
(opties -1 en -2 ipv 0 geeft little endian.)
Excel 2013, Engels
Hoe zorg ik ervoor dat onderstaande formule niet tot regel 10.000 wordt doorgetrokken maar tot de laatste cel in de tabel? het aantal regels van de tabel zal variëren van keer tot keer.
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(ISBLANK(RC[-5]),RC[-4]=""TA"",NOT(RC[-3]=""PRT Area"")),RC[-3],"""")"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I10000"), Type:=xlFillDefault
Edit:
Ik ben er al uit:
[ Bericht 29% gewijzigd door Puckzzz op 12-05-2016 14:12:52 ]
Hoe zorg ik ervoor dat onderstaande formule niet tot regel 10.000 wordt doorgetrokken maar tot de laatste cel in de tabel? het aantal regels van de tabel zal variëren van keer tot keer.
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(ISBLANK(RC[-5]),RC[-4]=""TA"",NOT(RC[-3]=""PRT Area"")),RC[-3],"""")"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I10000"), Type:=xlFillDefault
Edit:
Ik ben er al uit:
quote:Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(ISBLANK(RC[-5]),RC[-4]=""TA"",NOT(RC[-3]=""PRT Area"")),RC[-3],"""")"
Range("I2").Select
Range("I2").AutoFill Destination:=Range("I2:I" & Cells(Rows.Count, "A").End(xlUp).Row)
[ Bericht 29% gewijzigd door Puckzzz op 12-05-2016 14:12:52 ]
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
Vraagje, ik heb een excellijst gemaakt met een planning. Bovenin de lijst heb ik de weeknummers staan.
Op zich best werkbaar deze planning, ik heb echter steeds een kalender nodig om te kijken in welke week een bepaalde datum valt.
Mijn vraag: is er een manier om week + dagen te vermelden, bijvoorbeeld: 20 (16 t/m 20-5)
Alvast bedankt voor het meedenken.
Op zich best werkbaar deze planning, ik heb echter steeds een kalender nodig om te kijken in welke week een bepaalde datum valt.
Mijn vraag: is er een manier om week + dagen te vermelden, bijvoorbeeld: 20 (16 t/m 20-5)
Alvast bedankt voor het meedenken.
Single ply roofing, pay less, worthless.
niet zo makkelijk om weeknr->datum te gaan, maar de maandag wordt gegeven door:quote:
Vraagje, ik heb een excellijst gemaakt met een planning. Bovenin de lijst heb ik de weeknummers staan.
Op zich best werkbaar deze planning, ik heb echter steeds een kalender nodig om te kijken in welke week een bepaalde datum valt.
Mijn vraag: is er een manier om week + dagen te vermelden, bijvoorbeeld: 20 (16 t/m 20-5)
Alvast bedankt voor het meedenken.
| 1 | =DATUM(A2;1;-2)-WEEKNUMMER(DATUM(A2;1;3);2)+A1*7 |
A2: jaartal (2016)
Dit geeft een heel raar getal. 42506 hahahaquote:
[..]
niet zo makkelijk om weeknr->datum te gaan, maar de maandag wordt gegeven door:
[ code verwijderd ]
A1: weeknr
A2: jaartal (2016)
er gaat iets niet goed.
Single ply roofing, pay less, worthless.
Rechter muisknop:quote:
[..]
Dit geeft een heel raar getal. 42506 hahaha
Celeigenschappen
Datumnotatie.
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
Dag FOK!,
Ik heb twee Excel-tabs, één met de prijzen van een rij producten en één van de afzet (aantal verkopen) van dezelfde rij producten. Nu wil ik graag een gemiddelde verkoopprijs voor verschillende productsoorten uitrekenen, maar dan uiteraard een gemiddelde gewogen naar het aantal verkopen. Het zou een appeltje-eitje zijn wanneer de producten in dezelfde volgorde staan in beide tabs, maar dat is helaas niet het geval (alfabetiseren o.i.d. heeft ook geen nut; één tab kent allerlei rijen en andere ongein die de andere tab niet kent). Is er een manier om Excel zo ver te krijgen dat'ie zelf "zoekt" naar de juiste combinaties?
Voor 't geval het bovenstaande verhaal onduidelijk is: ik wil bij de twee onderstaande tabs de gemiddelde verkoopprijs van productgroep A berekenen (door de prijs van A1 te vermenigvuldigen met de afzet van A1, ditzelfde met A2, A3 etc. en dan het geheel te delen door de som van de afzet van A1, A2, etc.). Uiteraard kan dit handmatig door de rijen in beide tabs in dezelfde volgorde te zetten, maar het Excel-bestand in kwestie heeft helaas iets meer dan vijf rijen zoals in het voorbeeld hieronder. Heeft Excel een functie waarmee je dit op een minder arbeidsintensieve manier voor elkaar kan krijgen?
N.B. in onderstaand voorbeeld zou 't uiteraard wel met alfabetiseren van de rijen op te lossen zijn, maar in het werkelijke Excel-bestand kan dit om verschillende redenen niet.
Tab 1
Tab 2
[ Bericht 2% gewijzigd door #ANONIEM op 21-05-2016 10:17:22 ]
Ik heb twee Excel-tabs, één met de prijzen van een rij producten en één van de afzet (aantal verkopen) van dezelfde rij producten. Nu wil ik graag een gemiddelde verkoopprijs voor verschillende productsoorten uitrekenen, maar dan uiteraard een gemiddelde gewogen naar het aantal verkopen. Het zou een appeltje-eitje zijn wanneer de producten in dezelfde volgorde staan in beide tabs, maar dat is helaas niet het geval (alfabetiseren o.i.d. heeft ook geen nut; één tab kent allerlei rijen en andere ongein die de andere tab niet kent). Is er een manier om Excel zo ver te krijgen dat'ie zelf "zoekt" naar de juiste combinaties?
Voor 't geval het bovenstaande verhaal onduidelijk is: ik wil bij de twee onderstaande tabs de gemiddelde verkoopprijs van productgroep A berekenen (door de prijs van A1 te vermenigvuldigen met de afzet van A1, ditzelfde met A2, A3 etc. en dan het geheel te delen door de som van de afzet van A1, A2, etc.). Uiteraard kan dit handmatig door de rijen in beide tabs in dezelfde volgorde te zetten, maar het Excel-bestand in kwestie heeft helaas iets meer dan vijf rijen zoals in het voorbeeld hieronder. Heeft Excel een functie waarmee je dit op een minder arbeidsintensieve manier voor elkaar kan krijgen?
N.B. in onderstaand voorbeeld zou 't uiteraard wel met alfabetiseren van de rijen op te lossen zijn, maar in het werkelijke Excel-bestand kan dit om verschillende redenen niet.
Tab 1
| 1 2 3 4 5 6 | Productsoort Prijs A1 100 A2 120 B3 130 A7 190 B9 140 |
Tab 2
| 1 2 3 4 5 6 | Productsoort Afzet Q1 10 A2 4 I3 8 A5 8 A3 8 |
[ Bericht 2% gewijzigd door #ANONIEM op 21-05-2016 10:17:22 ]
Er vanuitgaande dat alle productsoorten uniek zijn en productsoort en prijs in kolom A en B staan:
in tab 1 een extra kolom toevoegen met:
=B2/INDEX('Tab 2'!B:B,VERGELIJKEN('Tab 1'!A2,'Tab 2'!A:A,0))
Deze formulie deelt B2 door het aantal verkochte producten.
Index werkt als volgt:
Index(rij waaruit resultaat weergegeven moet worden, regelnummer)
Vergelijken zoekt naar een waarde in een kolom en geeft het regelnummer terug en werkt zo:
vergelijken(te vinden waarde, kolom waarin gezocht moet worden, Exact of niet (0 betekent zoek naar de exacte waarde))
Dus in jouw geval:
B2 is de prijs van het verkochte product
Tab 2B:B bevat de verkochte aantallen,
Tab 1A2 is het product
Tab 2 A:A bevat de lijst met producten
in tab 1 een extra kolom toevoegen met:
=B2/INDEX('Tab 2'!B:B,VERGELIJKEN('Tab 1'!A2,'Tab 2'!A:A,0))
Deze formulie deelt B2 door het aantal verkochte producten.
Index werkt als volgt:
Index(rij waaruit resultaat weergegeven moet worden, regelnummer)
Vergelijken zoekt naar een waarde in een kolom en geeft het regelnummer terug en werkt zo:
vergelijken(te vinden waarde, kolom waarin gezocht moet worden, Exact of niet (0 betekent zoek naar de exacte waarde))
Dus in jouw geval:
B2 is de prijs van het verkochte product
Tab 2B:B bevat de verkochte aantallen,
Tab 1A2 is het product
Tab 2 A:A bevat de lijst met producten
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
3DS friend code: 2191-7623-9035
