Customize Repot

[marreco]

I have report data then i need "CRM" in column, look my file

 

[p45cal]

try:

Sub blah()
With Columns(2)
  Set c = .Find("DATA ENTRADA", LookIn:=xlValues, lookat:=xlPart, searchformat:=False)
  If Not c Is Nothing Then
    firstAddress = c.Address
    Do
      Range(c.Offset(1, -1), Cells(c.End(xlDown).Row, 1)).FormulaR1C1 = "=R" & c.Row - 1 & "C2"
      Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
  End If
End With
End Sub

 

[marreco]

HI.
Perfect, thnak you!

 

[p45cal]

I've just realised that this leaves the formulae on the sheet, to convert the formulae to hard values:

Sub blah()
With Columns(2)
  Set c = .Find("DATA ENTRADA", LookIn:=xlValues, lookat:=xlPart, searchformat:=False)
  If Not c Is Nothing Then
    firstAddress = c.Address
    Do
      With Range(c.Offset(1, -1), Cells(c.End(xlDown).Row, 1))
        .FormulaR1C1 = "=R" & c.Row - 1 & "C2"
        .Value = .Value
      End With
      Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
  End If
End With
End Sub