copyeren en invoegen rij herhalen op andere sheet

[dralex]

Ik heb in sheet "ftg" een knop en die openend een formuliertje waar je kan aangeven waar en hoeveel rijen je wilt invoegen.
Code:
Private Sub Knop2_Click()
For i = 1 To Formulier_Regels_toevoegen!Hoeveel_regels.Value
Row = Formulier_Regels_toevoegen!Welke_regel.Value
Rows(Row).EntireRow.Copy
Rows(Row).EntireRow.PasteSpecial xlPasteFormats
ActiveCell.EntireRow.Offset(-1).Insert
Application.CutCopyMode = True
Next i
End SubNu wil ik dat als ik op de knop klik niet alleen voor "ftg" rij invoegd maar ook op de sheet "autotest" met behoud van formules.

Weet iemand hoe dit kan/moet?

(dit is ook gepost onder Microsoft Office\Visual basic for Applications (VBA))

 

[cuperuskevin]

Dubbele post

 

[dralex]

go je meent het staat er ook bij he maar jij weet het zeker ook niet

 

[cuperuskevin]

Het spijt me..
ik wauw er aleen op wijzen dat het een dubbele post is..
ik doe meer met C# dan met VB.net

 

[dralex]

jammer ik het nog niet opgelost

 

[Haije]

dralex,

post je excel bestand eens.....

 

[dralex]

Bekijk bijlage uitgekleed.part1.rar Bekijk bijlage uitgekleed.part2.rar

hierbij de excel

 

[Haije]

helaas kan ik hier geen .rar openen

 

[dralex]

ik krijg het niet kleiner dan 154 kb met winzip en krijg het niet gesplitst. Heb het wil kunnen splitsen met 7zip maar dat ondersteunen ze hier niet.
kan ik het je mailen?

 

[Haije]

maar er zijn zat mensen die dit lezen, die wel een rar kunnen openen en je behulpzaam kunnen zijn.

 

[dralex]

maar die reageren niet

 

[Haije]

dralex,

maar je post is al wel meer dan 120 keer gelezen!
Wellicht is de vraagstelling niet duidelijk.

Kun je je excelbestand niet nog verder leeg maken?

 

[dralex]

kan het helaas niet verder leeg maken.

Ik zal mijn vraag proberen te verduidelijken .

-om een rij(en) in tevoegen heb ik een formulier waar je kan aangeven vanaf welke rij en hoeveel rijen je wilt invoegen
row= vanaf welke regel
aantal= hoeveel regels
het invoegen van de hoeveelheid en aantal gaat goed maar hij voert de formule's niet door

bijv. ik wil vanaf regel 5 2regels toevoegen
regel 6 en 7 worden aangemaakt
formule van regel 5 wordt door getroken naar regel 6 en 7

 

[dralex]

het loop vast op deze stukje vba
#Selection.AutoFill Destination:=Rows([Row'&Row + aantal]), Type:=xlFillDefault#

 

[Haije]

het loop vast op deze stukje vba
#Selection.AutoFill Destination:=Rows([Row'&Row + aantal]), Type:=xlFillDefault#

En dat heb ik nergens terug kunnen vinden in je eerste post!!!!

Post de gehele macro eens....

 

[dralex]

dit is ook na veel proberen en aanpassen lezen van forums enzo ben aan het proberen en proberen code nu is:
Sheets("autotest").Activate
Row = Formulier_Regels_toevoegen!Welke_regel.Value
aantal = Formulier_Regels_toevoegen!Hoeveel_regels.Value
For i = 1 To aantal

Rows(Row).EntireRow.Select
ActiveCell.EntireRow.Offset(1, 0).Insert
Rows(ActiveCell.Offset(1, 0).Row).FillDown
Next i

Nu voegt hij mooi de rijen in maar de formules worden niet meegevoerd

 

[Haije]

en hoe ziet je formulier(code) er uit?

 

[dralex]

Formulier in VBA gemaakt

---------------Opgeven hoeveel regels je wilt toevoegen -----------------------------------------------------------------
Private Sub Hoeveel_regels_Change()
End Sub
---------------Opgeven vanaf welke regel je het wilt toevoegen------------------------------------------------------------
Private Sub Welke_regel_Change()
End Sub
--------------------------Annuleren--------------------------------------------------------------------------------------
Private Sub Knop1_Click()
Formulier_Regels_toevoegen.Hide
End Sub
-----------------------toevoegen-----------------------------------------------------------------------------------------
Private Sub Knop2_Click()
Sheets("autotest").Activate
Row = Formulier_Regels_toevoegen!Welke_regel.Value
aantal = Formulier_Regels_toevoegen!Hoeveel_regels.Value
For i = 1 To aantal

Rows(Row).EntireRow.Select
ActiveCell.EntireRow.Offset(1, 0).Insert
Rows(ActiveCell.Offset(1, 0).Row).FillDown

Next i

Formulier_Regels_toevoegen.Hide
End Sub

 

[Haije]

dralex,

probeer dit eens:

Sub dralex()
Sheets("autotest").Activate
Row = Formulier_Regels_toevoegen!Welke_regel.Value
aantal = Formulier_Regels_toevoegen!Hoeveel_regels.Value
For i = 0 To aantal - 1
Rows(Row + i).EntireRow.Select
ActiveCell.EntireRow.Offset(1, 0).Insert
Next i
rijen = Row & ":" & Row + i
Rows(rijen).FillDown
End Sub

 

[dralex]

na teveel dagen googlen, proberen vloeken EINDELIJK IETS DAT WERKT

JIJ BENT MIJN NIEUWE HELD:thumb: