-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Data uit meerdere rijen in 1 rij achter elkaar plaatsen
- Onderwerp starter HuwgOo
- Startdatum
- Status
Ik denk dat ik er helemaal uit ben!
Kwam erachter dat er een rekenfoutje in zat. De laatste rij kwam namelijk niet bij de juiste andere rij terecht.
Nu heb ik er jj = jj + 9 van gemaakt ipv jj = jj + 10. Nu klopt hij eigenlijk helemaal.
Het enige kleine vreemde is dat de allerlaatste 10 regels uit blad 1 niet achter de 10 bovenste rijen in blad 2 komt.
Maar deze komen wel aan het eind van alle andere rijen te staan. Opzich weinig extra knip en plak werk dus ik ben al echt MEGA blij en dankbaar!
Kwam erachter dat er een rekenfoutje in zat. De laatste rij kwam namelijk niet bij de juiste andere rij terecht.
Nu heb ik er jj = jj + 9 van gemaakt ipv jj = jj + 10. Nu klopt hij eigenlijk helemaal.
Het enige kleine vreemde is dat de allerlaatste 10 regels uit blad 1 niet achter de 10 bovenste rijen in blad 2 komt.
Maar deze komen wel aan het eind van alle andere rijen te staan. Opzich weinig extra knip en plak werk dus ik ben al echt MEGA blij en dankbaar!
Beste HSV,
Ik zou toch heeel graag ook de datums mee gekopieerd hebben.
Met gebruik van "Tekst naar kolommen" De Datum en Tijd naar 2 verschillende kolommen gesplitst.
Nu staat de datum als volgt aangegeven: 2014-07-30
En de tijd als volgt: 12:43:13.
Waarom blijft hij hierover zeggen: "Fout 13: Typen komen niet overeen" ?
Want als ik deze kolommen verwijderd, werkt de code wel!
Ik zou toch heeel graag ook de datums mee gekopieerd hebben.
Met gebruik van "Tekst naar kolommen" De Datum en Tijd naar 2 verschillende kolommen gesplitst.
Nu staat de datum als volgt aangegeven: 2014-07-30
En de tijd als volgt: 12:43:13.
Waarom blijft hij hierover zeggen: "Fout 13: Typen komen niet overeen" ?
Want als ik deze kolommen verwijderd, werkt de code wel!
In voorbeeld bestandje werkt hij namelijk wel gewoon.. ZO vreemd! Bekijk bijlage ExampleSHV.xlsx
Hij werkt zelfs prachtig in dit voorbeeld, want hij splitst zelf de tijd en datum op!
Ik heb al echt van alles geprobeerd in het originele bestand, alle velden "Algemeen" maken of juist "Tekst", maar niks van dit maakt iets uit.
Als ik in het originele bestand de kolommen Tijd en Datum verwijder werkt hij perfect. Vandaar mijn gedachte dat hier de fout zit.
Hij werkt zelfs prachtig in dit voorbeeld, want hij splitst zelf de tijd en datum op!
Ik heb al echt van alles geprobeerd in het originele bestand, alle velden "Algemeen" maken of juist "Tekst", maar niks van dit maakt iets uit.
Als ik in het originele bestand de kolommen Tijd en Datum verwijder werkt hij perfect. Vandaar mijn gedachte dat hier de fout zit.
Laatst bewerkt:
Ik begrijp echt niet hoe ik die opmaak nu veranderen moet zodat hij wel werkt.
Gewoon bij het Start tabblad ben ik naar het dropdown menu gegaan en op datum gedrukt.
Dan verandert hij naar alleen een datum, en als ik alles tekst maak doet hij het ook niet.
Bij "Aangepast.." heb ik bij tijd en datum gewoon "Nederlands" aan staan en "Westers".
Gewoon bij het Start tabblad ben ik naar het dropdown menu gegaan en op datum gedrukt.
Dan verandert hij naar alleen een datum, en als ik alles tekst maak doet hij het ook niet.
Bij "Aangepast.." heb ik bij tijd en datum gewoon "Nederlands" aan staan en "Westers".
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.886
- Office versie
- Bèta Insider Office 365
Type een 1 in cel L1.
Rechtermuis op cel L1 → kopiëren.
Selecteer de data in kolom I en J → rechtermuis → Plakken Speciaal → vermenigvuldigen → OK.
Beide kolommen opmaak op aangepast: d-mm-jjjj u:mm:ss
Verwijder de 1 in cel L1.
Rechtermuis op cel L1 → kopiëren.
Selecteer de data in kolom I en J → rechtermuis → Plakken Speciaal → vermenigvuldigen → OK.
Beide kolommen opmaak op aangepast: d-mm-jjjj u:mm:ss
Verwijder de 1 in cel L1.
Ik heb alle stappen die u toont exact nagedaan, maar het wilt echt niet lukken. Na het vermenigvuldigen krijg ik een lange getallenreeks en na het aanpassen op dd-mm-jjj uu:mm:ss komt hij perfect uit op de datum wederom. Maar na het uitvoeren van de macro nog steeds Fout 13: Typen komen niet overeen.
In het voorbeeld bestaand werkt het wel gewoon, heel erg frustrerend.
In het voorbeeld bestaand werkt het wel gewoon, heel erg frustrerend.
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.886
- Office versie
- Bèta Insider Office 365
Helaas kan ik je niet helpen bij het zoeken.
Het lijkt me dan ook erg frustrerend als je je rot zoekt.
Wat is er t.o.v. het testbestand anders dan het origineel vraag ik me dan af.
Ik verneem het wel wanneer je weer iets hebt ontdekt.
Succes.
Het lijkt me dan ook erg frustrerend als je je rot zoekt.
Wat is er t.o.v. het testbestand anders dan het origineel vraag ik me dan af.
Ik verneem het wel wanneer je weer iets hebt ontdekt.
Succes.
Snap ik, ik waardeer de hulp so far enorm. Als u dat maar weet.
Ik heb zojuist ontdekt dat zodra ik alle data in de Datum kolom verander naar Getal er logischerwijs allemaal decimalen komen te staan.
Maar de macro werkt dan alsnog niet.. dit is toch vrij vreemd als het gewoon getallen betreft. Dan zou hij het gewoon moeten doen.
Heeft het misschien iets te maken met de cellen zelf? Want zodra ik de kolom verwijder doet de macro het weer wel.
Ik heb zojuist ontdekt dat zodra ik alle data in de Datum kolom verander naar Getal er logischerwijs allemaal decimalen komen te staan.
Maar de macro werkt dan alsnog niet.. dit is toch vrij vreemd als het gewoon getallen betreft. Dan zou hij het gewoon moeten doen.
Heeft het misschien iets te maken met de cellen zelf? Want zodra ik de kolom verwijder doet de macro het weer wel.
Exact hetzelfde. Ook na de "Plakken speciaal" tactiek. Zodra ik die ernaast gekopieerde kolom dan ook verwijder doet hij het weer perfect.
Het lijkt alsof ik het probleem mee kopieer en plak.. ik heb het namelijk ook al in een geheel nieuwe werkmap met macro's geprobeerd te plakken.
Het lijkt alsof ik het probleem mee kopieer en plak.. ik heb het namelijk ook al in een geheel nieuwe werkmap met macro's geprobeerd te plakken.
Laatst bewerkt:
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.886
- Office versie
- Bèta Insider Office 365
Nu kon ik de fout ook eindelijk eens reproduceren.
Van hoe of waarom het niet in één keer weggeschreven wil worden is me ook een raadsel en zal het eens aan vba array-specialist @snb voorleggen.
Het heeft niets met de datum te maken; het getal 1 of tekst ipv de datum schrijft het zo weg, maar als het lange tekst is weer niet (bv. 0123456789123456789).
Misschien heeft het z'n beperkingen in het aantal tekens.
Wat ik nu doe is het in stukken wegschrijven.
Test het zo maar eens.
Van hoe of waarom het niet in één keer weggeschreven wil worden is me ook een raadsel en zal het eens aan vba array-specialist @snb voorleggen.
Het heeft niets met de datum te maken; het getal 1 of tekst ipv de datum schrijft het zo weg, maar als het lange tekst is weer niet (bv. 0123456789123456789).
Misschien heeft het z'n beperkingen in het aantal tekens.
Wat ik nu doe is het in stukken wegschrijven.
Test het zo maar eens.
Code:
Sub hsv()
Dim sn, i As Long, j As Long, arr, jj As Long, ii As Long
sn = Sheets(1).Cells(1).CurrentRegion.Offset(1)
ReDim arr(UBound(sn))
For i = 1 To UBound(sn)
For j = i To i + 3
If j + jj < UBound(sn) Then
arr(i - 1) = arr(i - 1) & Join(Application.Index(sn, j + jj), "|") & "|"
jj = jj + 10
End If
Next j
Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1) = arr(i - 1)
jj = 0
Next i
Sheets(2).Columns(1).TextToColumns , 1, , , , , , , -1, "|"
End Sub
Laatst bewerkt:
Het is ongelofelijk! Ik weet niet hoe je het doet HSV.. maar hij doet het!
Mijn dank is echt enorm groot. Dit gaat mij in de toekomst zo veel tijd schelen.
Ik heb nu de jj=jj+10 verwijderd waardoor hij alle rijen achter elkaar op 1 rij zet. Aangezien dit ook uitermate handig kan zijn bij statistische analyse.
Bedankt voor alles!
Mijn dank is echt enorm groot. Dit gaat mij in de toekomst zo veel tijd schelen.
Ik heb nu de jj=jj+10 verwijderd waardoor hij alle rijen achter elkaar op 1 rij zet. Aangezien dit ook uitermate handig kan zijn bij statistische analyse.
Bedankt voor alles!
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.886
- Office versie
- Bèta Insider Office 365
Mooi dat het eindelijk is gelukt Hugo.
Ik heb inmiddels contact gehad met @snb, met uiteraard een verklaring.
Alleen is het mij nog niet geheel duidelijk.
Transpose en Index hebben een bovengrens van 2^16.
Mocht ik toch nog de methode vinden om het in één keer weg te kunnen schrijven zal ik dat uiteraard nog vermelden zodat zoekende leden er ook nog weer iets aan hebben.
Graag gedaan en succes.
Ik heb inmiddels contact gehad met @snb, met uiteraard een verklaring.
Alleen is het mij nog niet geheel duidelijk.
Transpose en Index hebben een bovengrens van 2^16.
Mocht ik toch nog de methode vinden om het in één keer weg te kunnen schrijven zal ik dat uiteraard nog vermelden zodat zoekende leden er ook nog weer iets aan hebben.
Graag gedaan en succes.
- Status
