Code hulp a.u.b

[Mati6n2]

Bij deze probeer ik mijn vraag duidelijk te formuleren:

Mijn code :

Sub yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy()
'

 Sheets("Werkplaatsschema").Select
    Range("E19:G19").Select
    ActiveCell.FormulaR1C1 = "=IF(omschrijving1="""","""",omschrijving1)"
    Sheets("Offerte").Select
        Dim c As Range
            For Each c In Selection
                c.Formula = ""
    Next
    ActiveCell.FormulaR1C1 = "=IF(omschrijving1="""","""",omschrijving1)"
    Range("C18:D18").Select

    Sheets("Werkplaatsschema").Select
    Range("A21:E21").Select
    ActiveCell.FormulaR1C1 = "=IF(Daghoogte1="""","""",Daghoogte1)"
    Sheets("Offerte").Select
    
  
  
   
    ActiveCell.FormulaR1C1 = "=IF(Daghoogte1="""","""",Daghoogte1)"
    Sheets("Werkplaatsschema").Select
    Range("F21:G21").Select
    
      
        
    Sheets("Offerte").Select
    Range("G18:H18").Select
    ActiveCell.FormulaR1C1 = "=IF(Dagbreedte1="""","""",Dagbreedte1)"

End Sub

Er wordt een cel geselecteerd waarin hij Automatisch (omschrijving1) plakt.

Nu zou ik willen

Dat er 1rij lager en 1kolom naar rechts de ActiveCell.FormulaR1C1 = "=IF(Daghoogte1="""","""",Daghoogte1)" verschijnt.
+

Dat er 1rij lager en 3kolommen naar rechts de ActiveCell.FormulaR1C1 = "=IF(Dagbreedte1="""","""",Dagbreedte1)" verschijnt.

Graag had ik hierbij hulp.

Mijn oplossing is zo moeilijk niet (denk ik), maar voor een leek ...

Alvast hartelijk bedankt

 

[Jan van Asseldonk]

Dat er 1rij lager en 1kolom naar rechts de ActiveCell.FormulaR1C1 = "=IF(Daghoogte1="""","""",Daghoogte1)" verschijnt.
+

Dat er 1rij lager en 3kolommen naar rechts de ActiveCell.FormulaR1C1 = "=IF(Dagbreedte1="""","""",Dagbreedte1)" verschijnt.

Hiervoor kun je offset gebruiken.
1e wordt dan

ActiveCell.Offset(1, 1).FormulaR1C1 = "=IF(Daghoogte1="""","""",Daghoogte1)"

2e wordt:

ActiveCell.Offset(1, 3).FormulaR1C1 = "=IF(Daghoogte1="""","""",Daghoogte1)"

 

[Mati6n2]

Dat zocht ik

Hartelijk dank Jan ! :thumb:

Vraag opgelost