Code aanpassen?

[rvt1982]

Beste leden,

Ik heb de volgende code,

Sub TEST()

    Application.ScreenUpdating = False
    Sheets("Blad1").Select
    Range("A1:D1").Copy
    Sheets("Blad2").Cells(Rows.Count, "A:A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    With Application
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub

maar nu wil ik dat op Blad2 in rij A de volgende code komt te staan

ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",""R"",""T"")"

of te wel

=IF(RC[-1]="""",""R"",""T"")

En verder op Blad2 van B t/m E de copy code van A1 t/m D1

Wie kan mij hier mee helpen.

alvast bedankt.

 

[Cobbe]

Zou dit voldoen?

Sub TEST()

    Application.ScreenUpdating = False
    Sheets("Blad1").Range("A1:D1").Copy
    With Sheets("Blad2")
        .Cells(1, 1) = "=IF(RC[-1]="""",""R"",""T"")"
        .Cells(Rows.Count, "A:A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        
    End With
  With Application
    .CutCopyMode = False
    .ScreenUpdating = True
  End With
End Sub

 

[rvt1982]

@Cobbe
Bijna, in de 2e code word A1 t/m D1 gekopieerd naar Blad2 naar rij A
Maar de 1e code moet in rij A van blad2 komen en in rij B t/m E van blad2 moet de 2e code komen..

1e code:

=IF(RC[-1]="""",""R"",""T"")

en daarna in de zelfde rij

2e code:

Sub TEST()

    Application.ScreenUpdating = False
    Sheets("Blad1").Select
    Range("A1:D1").Copy
    Sheets("Blad2").Cells(Rows.Count, "A:A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    With Application
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub

Alvast bedankt.