Offset_formualcells_two rows_

Hi ,

Wondering if some once code help me doing small modifications on the below code . and I am my requirement is I want the code to search the cells that has formula in particular column (X) and identifies the formula cells and offset to 2 rows .

Sub Findformulacells()

Dim x As Range
Set x = ActiveSheet.Cells.Find.SpecialCells(xlCellTypeFormulas).LookIn:=xlFormulas

    If Not x Is Nothing Then
         x.Offset(, 2).Value = x.Value
         x.Clear
    End If
Set x = Nothing
End Sub

Please find attached example file for your reference .

Do you want it?

Sub zz()
    Dim rng As Range
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    For Each rng In Selection
        rng.Cut rng.Offset(, 2)
    Next
End Sub

Hi mate .. this is great.. can it be possible i want the code to be execute only in certain row lets say .

only in column" A ".

Just change line 3 as:
Columns(which you want).SpecialCells(xlCellTypeFormulas, 23).Select
For ex: Columns("A:A").SpecialCells(xlCellTypeFormulas, 23).Select

Sorry mate :
I tried with the below code it does not fetch the results . its giving object error .

Sub zz()
    Dim rng As Range
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
     rng = Columns("A:A").SpecialCells(xlCellTypeFormulas, 23).Select
     rng.Cut rng.Offset(, 2)
        
    End Sub

Maybe:

Sub hudsonandrewzzz()
    Dim rng As Range
    Columns(1).SpecialCells(xlCellTypeFormulas, 23).Select
    For Each rng In Selection
        rng.Offset(, 2).Formula = rng.Formula
        rng.ClearContents
    Next
End Sub

thanks john....

Your welcome, Hudson.