Loop - copy & paste

[Vishaal]

Hi,

Thanks in advance,

I am copying the formula from Range ("A12:A24")
And after select the next range ("B12") and paste it
Again select the next range ("C12") and paste it
Again select the next range ("D12") and paste it

How can i do it through loop or vba (Coloumn B to AY)

 

[mohadin]

Try

Sub copy_formula()
    Set Rng = Range("a12:a24")
    With ActiveSheet
        For i = 1 To 50
            
            Rng.copy Range(Cells(12, i + 1), Cells(24, i + 1))
        Next
    End With
End Sub

 

[mohadin]

Improved code

Sub copy_formula()
    With ActiveSheet
    Set Rng = Range("a12:a24")
   Rng.copy
        For i = 2 To 50
           .Cells(12, i ).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Next
    End With
End Sub

 

[footoo]

[A12:A24].Copy [B12:AY24]

 

[mohadin]

You are great

[A12:A24].Copy [B12:AY24]

 

[Vishaal]

Thanks Mohadin Sir Ji

Its working

 

[Vishaal]

In this code how can we paste values

 

[mohadin]

You are well come
Glad You like it

Thanks Mohadin Sir Ji

Its working

 

[Fluff]

For values only use

Sub Vishaal()
   Range("B12:AY24").Value = Range("A12:A24").Value
End Sub

 

[Vishaal]

In this code

Can we paste values instead of formula

It is possible