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

rijen selecteren met VBA

Status
Niet open voor verdere reacties.
Z

Zwittink

Gebruiker
Lid geworden
16 apr 2012
Berichten
9
Hallo,

Ik probeer in Excel 2007 een aantal macro's te draaien, echter heb ik deze zo gemaakt dat bijvoorbeeld op tabblad 1 rij 14 nogmaals gekopierd wordt. Deze macro werkt dus helaas maar 1 keer. (dus rij 1,2,..,14,15,15,15) weet iemand hoe ik niet een bepaalde rij kan selecteren maar die daarna en daarna. Ook staan in rij 14 een aantal formules die ik ook graag automatisch wil meenemen.

Alvast bedankt.
 
is dit een school opdracht
dit soort vragen worden wel vaak gesteld
het is handiger om met deze vragen mee te liften
kijk gerust eens rond op dit forum voor je een vraag stelt

groet sylvester
 
Hallo sylvester,

bedankt voor je reactie echter is het geen school opdracht.
Ik ben bezig om een projectadministratie te maken voor een bedrijf in de re-integratie en hier probeer ik 1 standaard voor te maken die niet aangepast moet worden per project. En omdat elk project verschilt qua aantal cliënten probeer ik dit zo op te lossen. Helaas is me dit tot dus verre niet gelukt.

groet
 
Heb ik helaas niet thuis, ik zal mijn voorbeeld morgen hierop zetten.

alvast een fijne avond gewenst.
 
hieronder de macro waar het om gaat:

De macro is extraclient, echter heb ik op tabblad cliënten rij 13 naar beneden gesleept omdat anders de reeks van getallen niet meer doorliep. Bij het uitvoeren van de macro sleept deze nogmaals rij 13 naar beneden en dit moet dan eigen rij 14 zijn.

Op tabbladen var.specificatie (13), loonkosten subs (14), payroll (14) en bonus GKB (13) heb ik rij 13 of 14 gekopiert en speciaal geplakt zodat alle formules mee worden genomen. En dit moet dan eigenlijk de nieuwste regel worden.

Hoop dat mijn probleem zo duidelijk is en dat jij me kunt vertellen hoe ik dit moet oplossen.

Dit is de macro:
'
Code: 
 extraclient Macro
'

'
    Range("A13:H13").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("A13:H14"), Type:=xlFillDefault
    Range("A13:H14").Select
    Sheets("Var. specificatie").Select
    Rows("12:12").Select
    Selection.Copy
    Rows("13:13").Select
    Selection.Insert Shift:=xlDown
    Sheets("Loonkosten subs").Select
    Rows("14:14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows("15:15").Select
    Selection.Insert Shift:=xlDown
    Sheets("Payroll").Select
    Rows("14:14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows("15:15").Select
    Selection.Insert Shift:=xlDown
    Sheets("Bonus GKB").Select
    Rows("13:13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows("14:14").Select
    Selection.Insert Shift:=xlDown
    Sheets("Cliënten").Select
End Sub
 
Laatst bewerkt door een moderator:
Bedankt Sylvester,
echter is dit niet helemaal wat ik zoek. Als ik nu namelijk gebruik maak van deze macro dan zou ik ook graag willen dat mijn nummer reeks in de eerste kolom automatisch doorloopt. Daarnaast zou ik graag alle tabbladen aan elkaar willen koppelen.
 
Bijgevoegd mijn voorbeeld.

Op tabblad cliënten heb ik al een macro staan zodat je makkelijk nieuwe mensen kunt toevoegen. Ik probeer in te stellen dat als ik deze macro uitvoer dat dan op de volgende tabbladen ook cliënten bijkomen.

Ik hoop dat jij me kan helpen.

Groet
 

Bijlagen

hoi
de macro is aangepast zodat hij de nummering doorvoert
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    If Not Intersect(Target, [OndersteRij]) Is Nothing Then
        Range("OndersteRij").Copy
        Range("OndersteRij").Insert Shift:=xlDown
        Range("OndersteRij")(0, 2).Select
        Range("OndersteRij")(0, 1).ClearContents
        Range("OndersteRij")(0, 1) = Range("OndersteRij")(-1, 1) + 1
    End If
End Sub
je kunt nu zelf de macro uitbreiden zodat in de andere balden ook een regel wordt toegevoegd

als het niet helemaal lukt laat het dan horen

groet sylvester
 
Top! Dankjewel!

Mijn wens voor dit tabblad klopt nu. Hoe kan ik in dezelfde macro verwijzen naar het volgende tabblad? En kan dit dan nogmaals met OndersteRij?

Alvast bedankt.
 
@Zwittink Geef je ook even op het andere forum aan dat je een oplossing heb, is wel zo netjes.
 
Sylvester, bedankt voor je hulp dit was indd wat ik nodig had.

Ik zal mijn vraag op afgehandeld zetten.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan