invoeg macro

[Verwijderd lid 72049]

Hallo allen,

Ik heb een sheet met drie bladen op ieder blad staan dezelfde gegevens, als ik alle bladen selecteer en handmatig een rij invoeg gaat het op de andere twee bladen ook goed, doe ik dit met een macro dan gaat het alleen op het eerste blad.
Heeft iemand een tip hoe ik dit op alle bladen kan doen.


Jan

 

[danny147]

Beste jakobo

Heb je dit met de macrorecorder geprobeerd, zoja
Start de macrorecorder en selecteer dan de 3 tabbladen en voeg dan een rij toe.
Je zal zien wat voor code hij geeft.

    Sheets(Array("Blad1", "Blad2", "Blad3")).Select
    Sheets("Blad1").Activate

en dan de rest.

Groetjes Danny. :thumb:

 

[Verwijderd lid 72049]

Hoi Danny,

Ja dat heb ik geprobeert een rij eronder dat gaat inderdaad, maar er tussen in dan alleen maar op het eerste blad.


Jan

 

[danny147]

Beste jakobo

Heb je de bovenstaande code tussen jouw code geplaatst.

Dan krijg je dit:

Sub rij_invoegen()

    Sheets(Array("Blad1", "Blad2", "Blad3")).Select
    Sheets("Blad1").Activate
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown
 
End Sub

Groetjes Danny. :thumb:

 

[Verwijderd lid 72049]

Danny,

Dit werkt wel maar hij blijft op rij 6 invoegen, zou dit ook willekeurig kunnen waar ik dat maar wil het is een rij namen van 200 man dan wil ik invoegen op 100 dan op 40 enz.

Jan

 

[danny147]

Beste jakobo

Ja dat kan met een msg box toe te voegen, die vraagt onder welke rij je wil invoegen.

Groetjes Danny. :thumb:

 

[Verwijderd lid 72049]

Danny,

Ik ga dat proberen, ik laat het weer horen of dat gelukt is bedankt voor je advies.

Jan

 

[RB_online]

Sub rij_invoegen()

    Sheets(Array("Blad1", "Blad2", "Blad3")).Select
    Sheets("Blad1").Activate
    rij = ActiveCell.Row
        Rows(rij).Select
    Selection.Insert Shift:=xlDown
 
End Sub

de rij waarin de actieve cel staat wordt 1 rij naar beneden geplaats.
Stel je staat in a4 dan wordt rij vier verplaatst naar rij 5

René

 

[danny147]

Beste jakobo

Nu je de oplossing al cadeau hebt gekregen van RB_online, moet je niet meer verder zoeken.

Deze zou je misschien ook wel gevonden hebben na wat zoekwerk.

Ik had hem ook trouwens klaar liggen met een msgbox, maar wachtte nog even af op jouw respons.

Hierbij mijn oplossing:

Sub rij_invoegen()

    Sheets(Array("Blad1", "Blad2", "Blad3")).Select
    Sheets("Blad1").Activate
    rij = InputBox("Selecteer rij")
    Rows(rij).Select
    Selection.Insert Shift:=xlDown
 
End Sub

In de MsgBox vul je gewoon de rijnummer in waar je een lege rij wilt.

Groetjes Danny. :thumb:

 

[trucker10]

En je mag kiezen

 

[Wigi]

Ik verkies deze manier, vooral omdat er niets geselecteerd wordt, en de selectie überhaupt nooit wijzigt.

    rij = InputBox("Selecteer rij")
    
    For Each v In Array("Blad1", "Blad2", "Blad3")
        Sheets(v).Rows(rij).Insert
    Next

Wigi

 

[Verwijderd lid 72049]

invoegmacro

Allen,

Hartelijk dank voor de voorbeelden ze zijn allen goed bruikbaar, (sorry dat het zo lang heeft geduurd zat volop in de verbouwing) heb het voorbeeld van Wigi gebruikt.
Nogmaals mijn dank

Jan