• 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.

Teksten reperteren aan de hand van opgegeven aantal

Status
Niet open voor verdere reacties.
G

gertvn

Gebruiker
Lid geworden
3 okt 2016
Berichten
44
Goedemiddag Forum leden,

Ik ben aan het proberen om een aantal teksten die gedupliceerd moeten worden aan de hand van het vermelde aantal maar ik kom er niet uit :(
Ik hoop dat iemand me hiermee kan helpen.

Ik stuur hierbij een voorbeeld mee dat maakt het misschien iets duidelijker :D
Het volgende is de bedoeling:
In het tabblad "informatie" staat In kolom A tot D gegevens die ik niet nodig heb, in kolom E staat amount hier staat een getal in waarmee aangegeven wordt hoe vaak de teksten/cijfer/gegevens die in kolom F tot en met M staan gedupliceerd moeten worden naar het tabblad "uitkomst" de gegevens in amount zou handig zijn om deze mee te kopiëren als een soort controle zodat ik steekproefsgewijs kan controleren of het aantal klopt :?:

Ik hoop dat het samen met het Excelbestand duidelijk is wat de bedoeling is. alvast bedankt voor de hulp

Grt Gert
 

Bijlagen

  • Aantal dupliceren tekst vb 3xpeer uitkomst peer peer peer.xlsx
    14,5 KB · Weergaven: 41
zoiets?
 

Bijlagen

  • Aantal dupliceren tekst vb 3xpeer uitkomst peer peer peer (1).xlsm
    22,4 KB · Weergaven: 45
Makrootje:

Code: 
Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   
   For j = 2 To UBound(sn)
      c00 = c00 & Replace(Space(sn(j, 5)), " ", " " & j)
   Next
   
   Sheet2.Cells(30, 1).Resize(Application.Sum(Application.Index(sn, 0, 5)), 8) = Application.Index(sn, Application.Transpose(Split(Trim(c00))), Array(6, 7, 8, 9, 10, 11, 12, 13))
End Sub

of
Code: 
Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
   
  For j = 2 To UBound(sn)
    c00 = c00 & Replace(Space(sn(j, 5)), " ", " " & j)
  Next
   
  With Application
    sn = .Index(sn, .Transpose(Split(Trim(c00))), [transpose(row(6:13))])
  End With
   
  Sheet2.Cells(30, 1).Resize(UBound(sn), UBound(sn, 2)) = sn
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan