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)

 

[Vishaal]

Thanks flluff Sir ji

I want to do it through loop

Because data is large

And using the loop excel is not hang or we dont need to restart the excel

 

[Fluff]

Looping is slower & will probably cause more problems.
If you have lots of formula, try

Sub Vishaal()
   Application.Calculation = xlCalculationManual
   Range("B12:AY24").Value = Range("A12:A24").Value
   Application.Calculation = xlCalculationAutomatic
End Sub

 

[Vishaal]

Ok Fluff Sir Ji

I will try the given formula

 

[mohadin]

In this code

Can we paste values instead of formula

It is possible

Sub copy_formula()Application.ScreenUpdating = False
    With ActiveSheet
    Set Rng = Range("a12:a24")
   Rng.copy
        For i = 2 To 50
           .Cells(12, i).PasteSpecial Paste:=xlPasteFormulas
        Next
 With Range("b12:ay24")
    .Value = .Value
    End With
    End With
   Application.ScreenUpdating = True
End Sub

 

[Vishaal]

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

Pls provide the complete vba code

 

[footoo]

Pls provide the complete vba code

It is complete.

 

[Vishaal]

For values only use

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

I have just used it

U r right

Its really fast

But problem is its providing the value of A12:A24 in all
Instead of different values for B12, C12,D12

 

[mohadin]

Pls provide the complete vba code

you still cal add to below

 Sub copy_formula()
[A12:A24].copy [B12:AY24]
    With Range("b12:ay24")
        
        .Value = .Value
    End With
End Sub

 

[Vishaal]

Pls elaborate, unable to understand

I am not a professional vba developer

Pls add this with previous code, pls pls

Thanks again for your help

 

[Vishaal]

Pls provide the complete vba code

In which coloumn or row we need to put this code

Pls