Rij toevoegen in tabel

[kustermj]

Wat is hier verkeerd aan??

Ik probeer om een rij toe tevoegen onderaan in een tabel, maar ik krijg steeds de fout dat de typen niet overeenkomen.

    rij_start = 10
    rij_vorig = 9
   
    rijstart$ = Str$(rij_start) + ":" + Str$(rij_start)
    Rows(rijstart$).Select
    Selection.Insert Shift:=xlDown
    rijvorig$ = "A" + Str$(rij_vorig) + ":" + "H" + Str$(rij_vorig)
    Range(rijvorig$).Select
    rijdoel$ = "A" + Str$(rij_vorig) + ":" + "H" + Str$(rij_start)
    Selection.AutoFill Destination:=Range(rijdoel$), Type:=xlFillDefault
    Range(rijdoel$).Select
    rij_start = rij_start + 1
    rij_vorig = rij_vorig + 1

Hij stopt op de 2e regel: Rows(rijstart$).Select

 

[Rogerout]

Rij invoegen in Exel

Mijns inziens is de gemakkelijkste manier om een rij in te voegen in de tabel, de
funcie "invoegen" gebruiken en daarna "Rijen" aan te klikken.
Dus de cursor plaatsen om de onderste rij van de tabel en dan de hogevermelde
stappen uitvoeren.

Ik hoop dat bij jou zal lukken.

Rogerout

 

[kustermj]

Het probleem is niet het handmatig toevoegen van een rij. Maar in de bovenstaande rij staan een aantal functies die overgekopieerd moet worden omlaag.

Het is een applicatie voor iemand die niet echt thuis is in de computers en een ritten registratie bij moet houden. Alles werkt al behalve deze functie.

 

[kustermj]

Niemand??

 

[Ron321]

Kan je de handelingen niet opnemen met de macrorecorder?

 

[robdgr]

@Ron

Uiteraard, bijvoorbeeld:

Sub invoegen()
'
' invoegen Macro
' De macro is opgenomen op 4-2-2006.
'

'
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("E2").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[148]C[-1])"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[-1]:R[148]C[-1])"
Range("E4").Select
End Sub


@kustermj:

Als je een voorbeeld bijvoegt, kan er een concreter antwoord komen.

Groet,

Rob

 

[Withaar]

Hier staat volgens mij het zelfde, en deze werkt zonder problemen (ten minste zonder foutmeldingen).
Ik weet natuurlijk niet of hij nu ook zo werkt als je zou willen.

Sub test()
rij_start = 10
rij_vorig = 9

rijstart$ = Str$(rij_start)
Rows(rijstart$).Select
Selection.Insert Shift:=xlDown
rijvorig$ = "A" & rij_vorig & ":H" & rij_vorig
Range(rijvorig$).Select
rijdoel$ = "A" & rij_vorig & ":H" & rij_start
Selection.AutoFill Destination:=Range(rijdoel$), Type:=xlFillDefault
Range(rijdoel$).Select
rij_start = rij_start + 1
rij_vorig = rij_vorig + 1

End Sub

 

[kustermj]

Het werkt dank je

 

[Ron321]

Zet 'm dan even op opgelost.

 

[kustermj]

Sorry vergeten