10 datums toevoegen aan een kolom met unieke codes

[HSV]

Gewoon een kwestie van de +1 hier weghalen.

y = (UBound(sq) + 1)

 

[Verwijderd lid 501906]

@HSV

OK en dan "gewoon een kwestie van" nog niet werken!

 

[HSV]

Dan doe je iets wezenlijks verkeerd.

Je hebt rij 1 vergeten weg te halen zoals @snb omschrijft (begin op rij 1).
Ten tweede zet je zulke codes in een standaard module.

Maakt niet uit ; speciaal voor jou een bijlage.

 

[Verwijderd lid 501906]

@HSV

Ik denk dat je alles nog even moet nalezen voor je reageert
want deze discussie hebben al gehad.

verder is
"Gewoon een kwestie van de +1 hier weghalen."
of
"Dan doe je iets wezenlijks verkeerd."
.............

(Laat ik daar maar niet op in gaan)

Ook ik ben hier om te leren, maar hier heb ik geen zin in.

De vragensteller heeft allang een antwoord.

fijne avond

 

[Warme bakkertje]

Allemaal mooi maar wat we hier nu zien deed mijn code 10 posts geleden al EN met een lege kolom ertussen. Met minimale interactie met het werkblad en alle bewerkingen uitgevoerd in het werkgeheugen.
Enkel de plaatsing onderaan de tabellen moet nog wat aangepast worden.
Hahahaha.

 

[HSV]

Kijk naar het eerste bestand van de vragensteller, daar staat het resultaat, of daar nu een lege kolom tussen zit maakt niet uit.
Pas je met weinig veranderingen de code aan als @snb het niet heeft begrepen.
Aangezien jou dat niet lukt zal ik het met alle plezier voor je doen.

Sub M_snb()
    sn = Cells(1).CurrentRegion
    sq = Cells(1, 3).CurrentRegion
    y = UBound(sq)
    ReDim sp(UBound(sn) * y, 3)
     For j = 0 To UBound(sp) - 1
      If j Mod y = 0 Then sp(j, 0) = sn(j \ y + 1, 1)
      If j Mod y < UBound(sq) Then sp(j, 2) = sq(j Mod y + 1, 1)
    Next
  Cells(1, 6).Resize(UBound(sp) + 1, 3) = sp
End Sub

 

[peter59]

Zo, ik gooi er ook nog eentje in en dan d.m.v. power query dus zonder VBA.
Eigenlijk wat ver gezocht maar doet het wel.

 

[Verwijderd lid 501906]

Kijk naar het eerste bestand van de vragensteller, daar staat het resultaat, of daar nu een lege kolom tussen zit maakt niet uit.
Pas je met weinig veranderingen de code aan als @snb het niet heeft begrepen.
Aangezien jou dat niet lukt zal ik het met alle plezier voor je doen.

Sub M_snb()
    sn = Cells(1).CurrentRegion
    sq = Cells(1, 3).CurrentRegion
    y = UBound(sq)
    ReDim sp(UBound(sn) * y, 3)
     For j = 0 To UBound(sp) - 1
      If j Mod y = 0 Then sp(j, 0) = sn(j \ y + 1, 1)
      If j Mod y < UBound(sq) Then sp(j, 2) = sq(j Mod y + 1, 1)
    Next
  Cells(1, 6).Resize(UBound(sp) + 1, 3) = sp
End Sub

Nogmaals ga eerst eens LEZEN.
KOLOM ER TUSSEN
LEGE REGEL ER TUSSEN
verder werkt mijn script perfect en naar tevredenheid van de vragensteller.
en stop met dat zielige ongepaste arrogante toontje.

 

[HSV]

Die lege regel had @snb al, maar dat werkte niet volgens jou.
Maar dat komt omdat je er niet voldoende verstand van hebt.

Over arrogantie geschreven. leer eerst codes te begrijpen/lezen en dan te schrijven.
Welterusten, want jij schreef dat je er geen zin in had.

 

[Warme bakkertje]

OK boys, Time Out.

Waar wij hier allen vooral naar streven bij het schrijven van code is zo minimaal mogelijk interactie met het werkblad, minimaal gebruik van variabelen, etc.... Als we dan een code zien als de jouwe kunnen wij het niet laten om deze streefdoelen na te jagen.
Het is niet de bedoeling om jouw bijdrage te minimaliseren maar enkel laten zien hoe het anders kan.
Een gewoonte maken van deze programmeerstijl zal vooral tijdswinst opleveren bij grotere datasets.
Maar oefenen bij kleinere problemen zoals dit kan dan geen kwaad.

 

[Verwijderd lid 501906]

Beste @Warme bakkertje
zo kort mogelijk, dat snap ik
en daarom was ik ook met snb in discussie.
Maar zijn script deed niet precies wat de vragensteller wilde
en dat doet mijn script wel zie #10
Als dan iemand zonder voorgaande berichten te lezen gaat reageren
Dan ben ik er klaar mee.

Ik ga ook niet meer op zijn berichten reageren.


Als het de bedoeling is dat alleen super techneuten reageren dan hoor ik het graag van de forum-leiding

 

[jverkerk]

Wat een haantjes gedrag zeg.
Gaat allemaal ten koste van het onderwerp, iedereen heeft gelijk, hetzij de kortste of het beste vba script.
Geef positief commentaar en probeer aardig te zijn voor elkaar, ik heb ze bijna allemaal uitgeprobeerd en als je de instructies volgt werken ze eigenlijk allemaal wel, soms met een kleine aanpassing.
TS bepaald of het vba script voldoet of niet.
Ik ben zeker geen vba deskundige, dus of het te langzaam of kort of te lang is kan ik niet beoordelen.

 

[Verwijderd lid 501906]

Voor mij was het bericht #10 duidelijk
Ik wilde alleen bijleren

 

[huijb]

Kan het allemaal wat vriendelijker. Probeer eens wat respect voor elkaar op te brengen. Alle reactie hebben maar een doel. De vragensteller helpen en niet "kijk eens wat ik goed ben"

 

[peter59]

@huijb
Je hebt gelijk.
De vraagsteller heeft eigenlijk ook een "taak" en dat is de vraag op opgelost te zetten.
Dat gebeurt vaak niet met als gevolg dat de helpers tegen elkaar op beginnen te "bieden".

 

[huijb]

Eens.