Macro, nieuwe regel met vastgestelde waarden

Hallo iedereen,

Ik heb twee vragen.
Ik ben bezig met een elementenlijst waarin elke nieuwe regel een aantal voorwaarden hebben.
Voorwaarde 1: in kolom C moet bij elke ingevoegde regel een "Nee" komen te staan
Voorwaarde 2: in kolom F moet bij elke ingevoegde regel een "0" komen te staan
Voorwaarde 3: in kolom H moet bij elke ingevoegde regel een "st." komen te staan
Voorwaarde 4: in kolom J moet bij elke ingevoegde regel de tekst rood kleuren
Voorwaarde 5: in kolom T t/m V moeten bij elke ingevoegde regel de bovenstaande formule gekopieerd worden
Voorwaarde 6: De opmaak van cellen in kolom U en V moeten anders kleuren.

Wat ik tot nog toe heb:
Sub Macro1()
'
' Macro1 Macro
' Nieuw Element
'
' Sneltoets: Ctrl+n
'
Range("C1193").Select
ActiveCell.FormulaR1C1 = "Nee"
Range("F1193").Select
ActiveCell.FormulaR1C1 = "0"
Range("H1193").Select
ActiveCell.FormulaR1C1 = "st."
Range("J1193").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("T1192:V1192").Select
Selection.Copy
Range("T1193").Select
ActiveSheet.Paste
Range("U1193:V1193").Select
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("W1192").Select
Selection.Copy
Range("W1193").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1193").Select
End Sub

En vraag 2 is hoe ik dit excel bestand op twee locaties tegelijk kan opslaan?
(back-up zonder de naam back-up en andere locatie)

En wat is er, naast het ontbreken van codetags, niet goed met die code?
(Kan sowieso anders maar dat wijzigt niks aan de werking)

Als ik in een andere cel ga staan, blijft die de macro in de opgenomen regel toepassen.

Gerard, ik ga/kan dit niet testen, want een bestand namaken doe ik niet, maar probeer eens of dit in de buurt komt:

Bekijk bijlage Voorbeeld.xlsx

Ik heb een voorbeeld bijgevoegd
waar nog fouten inzitten is dat boven in de kolom de cellen U1 en V1 van kleur veranderen bij toepassing van de macro

De formule die van bovenliggende cellen wordt gekopieerd veranderd niet met de regel mee, is daar ook een oplossing voor?

Ik hoop dat jullie me nog willen helpen..

iig bedankt voor dit opzetje!

ok, hier een nieuwe poging.

Ik heb het dankzij jou nu zo gedaan:

Sub NieuwElement()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+Shift+N
'
i = Selection.Row

Cells(i, 3) = "Nee"
Cells(i, 6) = 0
Cells(i, 8) = "st."
With Cells(i, 10)
.Font.Color = -16776961
.Font.TintAndShade = 0
End With
Cells(i - 1, 20).Resize(, 3).AutoFill Destination:=Cells(i - 1, 20).Resize(2, 3), Type:=xlFillDefault
With Cells(i, 21).Resize(, 2).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Cells(i, 20).Select
Selection.FillDown
Cells(i, 21).Select
Selection.FillDown
Cells(i, 22).Select
Selection.FillDown
Cells(i, 23).Select
Selection.FillDown
End Sub

En het werkt..

A big thnQ!!