changing

macropod · #1 02-07-2012, 04:30 AM

I've look at your workbook. It's nothing like the image attached in your first post and there is still nothing to indicate what any input boxes might be used for.

Perhaps you want code like the following:

Code:

Sub CombineValues()
Dim i As Long
With ActiveSheet
  For i = 1 To .Range("B" & .Cells.SpecialCells(xlCellTypeLastCell).Row).End(xlUp).Row
      .Range("B" & i).Value = .Range("A" & i).Value + Evaluate(.Range("B" & i).Value)
      .Range("B" & i).NumberFormat = "General"
  Next
End With
End Sub

gsrikanth · #2 02-07-2012, 04:48 AM

Quote:

Originally Posted by macropod

I've look at your workbook. It's nothing like the image attached in your first post and there is still nothing to indicate what any input boxes might be used for.

Perhaps you want code like the following:

Code:

Sub CombineValues()
Dim i As Long
With ActiveSheet
  For i = 1 To .Range("B" & .Cells.SpecialCells(xlCellTypeLastCell).Row).End(xlUp).Row
      .Range("B" & i).Value = .Range("A" & i).Value + Evaluate(.Range("B" & i).Value)
      .Range("B" & i).NumberFormat = "General"
  Next
End With
End Sub

if there is text means
change this Evaluate(.Range("B" & i).Value)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Changing accounts on same PC	cjansley	Outlook	1	07-27-2011 07:36 AM
Changing the From field	jerem	Outlook	2	10-29-2010 03:04 PM
Changing list of Value	xmadnet	Word	0	09-07-2010 01:48 PM
Changing Word doc to .txt	cialili	Word	1	08-02-2010 12:38 PM
changing font size without changing leading	carolns	Word	1	09-14-2009 12:30 PM