CODEWITHSUNDEEP
excelvbaloops
xdenama
xdenama

Reputation: 19

Excel VBA Repeat same value for 3 row multiple time

I have code below for display value even and odd row base on specific column criteria. But how to display 3 different value from 3 row and continues looping that 3 value for another 90 row or more. At the end, each value have repeated 30 times.

Sub OddRowAlert()
With Range("B16:B100") ' working
    .Formula = "=IF(A16="""","""",IF((MOD(ROW(B16),2)),""=+SEK!$I$6"",""=+SEK!$K$6""))"
    .Formula = .Value
End With
End Sub

Upvotes: 0

Views: 195

Answers (1)

FaneDuru
FaneDuru

Reputation: 42236

Try this, code please:

Sub testFillDownThreeRows()
  Dim sh As Worksheet
  Set sh = ActiveSheet
   sh.Range("A2").formula = "=Today()"  'use here what formulas you need
   sh.Range("A3").formula = "=Today()+1"
   sh.Range("A4").formula = "=Now()"
   sh.Range("A2:A4").AutoFill Destination:=sh.Range("A2:A21"), Type:=xlFillDefault
End Sub

Upvotes: 1

Related Questions