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

niet een regel maar meerdere

Status
Niet open voor verdere reacties.

W Bloemendal

Gebruiker
Lid geworden
28 jan 2001
Berichten
503
Hallo

Ik heb de volgende macro

Dim rij As Integer

aantal = ActiveWindow.RangeSelection.Cells.Count / 256
If ActiveWindow.RangeSelection.Cells.Count / 256 = aantal Then
rij = ActiveCell.Row
' vrijgave
Sheets("geboord").Unprotect
MacroD
Rows(rij).Select
Selection.Copy

Het probleem is nu dat als ik meerdere regels geselecteerd heb dat alleen de eerste regel gecopieerd word, en niet alle geselecteeerde regels

is dit op te lossen

wim
 
Code:
rij = ActiveCell.Row
Zo te zien selecteer je maar een regel.
Vandaar dat hij ook alleen deze kopieerd.
Denk dat je met een loop moet gaan werken.
Zoiets als van (code is niet compleet, maar alleen ter voorbeeld)
Code:
for each c in Range("?:?")
    if c = getal then
         c.entirerow sheets("Geboord").Range("A" & legeregel)
    end if
next
Zou je een voorbeeld bestandje aan kunnen hangen (zonder persoonlijke gegevens), kunnen we hier kijken naar de code.

Groet,
Ferenc
 
Laatst bewerkt:
Ik selecteer een of meerdere regels wat noodzakelijk is
dan voer ik de macro uit.
eerst moet er worden gekeken of er hele regels geselecteerd zijn.
Dan wat er geselecteerd is
een andere macro uitvoeren waarbij andere cellen geselecteerd worden
Nu moet de eerste selectie automatisch geselecteerd worden om te copieren

wim
 
ik wil dus

vantevoren geselecteerde regels 20-22
A=20
B=22

row (a:b).select


wim
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan