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]

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

Ok checking

Pls give me time

Thanks bro

 

[mohadin]

Which code you talking abut

 

[Fluff]

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

In that case what values do you want in those cells?
You said you wanted A12:A24 pasted in col B onwards.

 

[mohadin]

In that case what values do you want in those cells?
You said you wanted A12:A24 pasted in col B onward.

Hi Mr.Fluff
As I understand he whats to copy formulas A12:A24 to col B onward then get the values of the copied formulas

 

[Vishaal]

Hi Mr.Fluff
As I understand he whats to copy formulas A12:A24 to col B onward then get the values of the copied formulas

Yes

You are right

 

[Vishaal]

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

Mohadin Sir Ji

Its Fantastic

Its working Great

Many Thanks Sir Ji

 

[Fluff]

In that case try

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

 

[mohadin]

Mohadin Sir Ji

Its Fantastic

Its working Great

Many Thanks Sir Ji

Great

 

[Vishaal]

Great

Mohadin Sir Ji

In your code second work

With Range("b12:ay24")
.Value = .Value
End With
End With
Application.ScreenUpdating = True
End Sub

When its start working, excel hang and we need to restart

Can it is possible
1. It also work in loop as your code first part
2. In your code first part, code will first copy formula and paste and after that same time copy that coloumn and paste values

Pls help sir

 

[mohadin]

Well
I don't know what the formulas are in your sheet
and what is yous the excel version, here in 2013 work fine
Any way try

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