| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
change from message box to result in cell
I'm currently running this macro...
********** Sub Sumcharacters() Dim i As Long, s As String Dim lsum As Long For i = 1 To Len(ActiveCell) s = Mid(ActiveCell, i, 1) If IsNumeric(s) Then lsum = lsum + CLng(s) End If Next MsgBox lsum End Sub ********** Instead of the sum showing up in a message box, I'd like the sum to show up in the next cell over. Can someone help me out on how to do that. I can't seem to get it to work smoothly. Thanks |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
change from message box to result in cell
Try this
Sub Sumcharacters() Dim i As Long, s As String Dim lsum As Long For i = 1 To Len(ActiveCell) s = Mid(ActiveCell, i, 1) If IsNumeric(s) Then lsum = lsum + CLng(s) End If Next ActiveCell.Offset(0, 1).Value = lsum End Sub HTH Regards, Howard "DB" wrote in message ... I'm currently running this macro... ********** Sub Sumcharacters() Dim i As Long, s As String Dim lsum As Long For i = 1 To Len(ActiveCell) s = Mid(ActiveCell, i, 1) If IsNumeric(s) Then lsum = lsum + CLng(s) End If Next MsgBox lsum End Sub ********** Instead of the sum showing up in a message box, I'd like the sum to show up in the next cell over. Can someone help me out on how to do that. I can't seem to get it to work smoothly. Thanks |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
change from message box to result in cell
perfect, thank you for the help
"L. Howard Kittle" wrote: Try this Sub Sumcharacters() Dim i As Long, s As String Dim lsum As Long For i = 1 To Len(ActiveCell) s = Mid(ActiveCell, i, 1) If IsNumeric(s) Then lsum = lsum + CLng(s) End If Next ActiveCell.Offset(0, 1).Value = lsum End Sub HTH Regards, Howard "DB" wrote in message ... I'm currently running this macro... ********** Sub Sumcharacters() Dim i As Long, s As String Dim lsum As Long For i = 1 To Len(ActiveCell) s = Mid(ActiveCell, i, 1) If IsNumeric(s) Then lsum = lsum + CLng(s) End If Next MsgBox lsum End Sub ********** Instead of the sum showing up in a message box, I'd like the sum to show up in the next cell over. Can someone help me out on how to do that. I can't seem to get it to work smoothly. Thanks |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
change from message box to result in cell
You have another response at your original post.
DB wrote: I'm currently running this macro... ********** Sub Sumcharacters() Dim i As Long, s As String Dim lsum As Long For i = 1 To Len(ActiveCell) s = Mid(ActiveCell, i, 1) If IsNumeric(s) Then lsum = lsum + CLng(s) End If Next MsgBox lsum End Sub ********** Instead of the sum showing up in a message box, I'd like the sum to show up in the next cell over. Can someone help me out on how to do that. I can't seem to get it to work smoothly. Thanks -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| No change in result cell | Excel Worksheet Functions | |||
| Cell formual result change - Message | Excel Programming | |||
| How do I change the color of a cell depending on the result of the function in that cell | Excel Programming | |||
| Change the color of a cell change dependant on a result | Excel Programming | |||
| Change result #VALUE! to "message" | Excel Programming | |||
Linear Mode
