YellowLabPro
08-01-2007, 05:33 AM
This procedure is to add a double quote to the end of a value indicating inches, which it does, but then converts the display value back to a decimal. How do I get around this? The cell format is already set to fraction, and when I check its format after the d.quote is added it still remains its fractional format status.
For i = 4 To LRowV
If Cells(i, "G").Text = "HWBLTS" Or Cells(i, "G").Text = "HWRISR" _
And Cells(i, "M").Value > 0 And Right(Cells(i, "M").Value, 1) <> Chr(34) Then
Cells(i, "M").Value = Cells(i, "M").Value & Chr(34)
End If
Next i
For i = 4 To LRowV
If Cells(i, "G").Text = "HWBLTS" Or Cells(i, "G").Text = "HWRISR" _
And Cells(i, "M").Value > 0 And Right(Cells(i, "M").Value, 1) <> Chr(34) Then
Cells(i, "M").Value = Cells(i, "M").Value & Chr(34)
End If
Next i