View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
RiverGully RiverGully is offline
external usenet poster
 
Posts: 27
Default return a concatenated formula into a cell

I need to concatenate the letter 'n' after a formula that was returned to a
cell.


Here is the code I've typed (as helped from Jim Thomlinson):
Sub test()

Dim LastLineAddress As String

LastLineAddress = ActiveCell.Address
LastLineAddress = Replace(LastLineAddress, "$", "")
ActiveCell.Offset(2, 0).Formula = "=mid(" & (LastLineAddress) & ",5,2)"

End Sub



Here is the result in the spreadsheet:

Cell C149: 12345678
Cell C150
Cell C151 Formula =+mid(C149,5,2) with resultant value of 56 shown in
cell

I now need the resultant formula to read =+mid(C149,5,2)&"n" with the
resultant value being 56n.

I've tried to edit the VBA code to add this &"n", but keep getting debug
error.

Can you advise. Thank you again!