VBA Question

[kbeltle]

I am using the following macro to allow me to select a large range of numbers with my mouse, and then convert them to negative numbers. What bothers me is that if there is a blank cell in the range it puts a "-" in that cell.

How do I program this macro to skip a cell if it is blank?

Thanks,
Kyle

----------------------------------------------------------------------------
Sub Convert_to_Negative_Numbers()
Set r = Application.InputBox(Prompt:="Select The Numbers You Would Like to Convert:", Type:=8)
r.Select
Dim rep As String
For Each c In Selection.Cells
rep = Left(c, 0) & "-" & c
c.Value = rep
Next c
Selection.Style = "Comma"
End Sub

 

[onlyadrafter]

Hello,

does this give expected results?

Sub Convert_to_Negative_Numbers()
Set r = Application.InputBox(Prompt:="Select The Numbers You Would Like to Convert:", Type:=8)
r.Select
Dim rep As String
For Each C In Selection.Cells
If C <> 0 Then
    rep = Left(C, 0) & "-" & C
    C.Value = rep
    C.Style = "Comma"
End If
Next C
End Sub

 

[VoG]

Try

Sub Convert_to_Negative_Numbers()
Dim r As Range, c As Range
Set r = Application.InputBox(Prompt:="Select The Numbers You Would Like to Convert:", Type:=8)
For Each c In r
    If c.Value <> "" Then c.Value = -c.Value
Next c
r.Style = "Comma"
End Sub

 

[kbeltle]

Beautiful!


That did the trick. Thanks a ton!
-Kyle