Thread: Changing cell contents to various other values

Hi paste the following codes in the macro window ( alt F11) and run the macro. Code: Sub wilma() Cells.NumberFormat = "@" For Each cell In ActiveSheet.UsedRange If cell.Value = 0 Then cell.Value = "006" ElseIf cell.Value > 0 And cell.Value < 10 Then cell.Value = "0" & cell.Value * 10 ElseIf cell.Value > 9 Then...

Re: Changing cell contents to various other values Hi paste the following codes in the macro window ( alt F11) and run the macro. Code: Sub wilma() Cells.NumberFormat = "@" For Each cell In ActiveSheet.UsedRange If cell.Value = 0 Then cell.Value = "006" ElseIf cell.Value > 0 And cell....

Re: Changing cell contents to various other values Thank you, Ravi. I created the macro (first time I've ever done one of those, so it took me awhile!!). When I run it, I get a message that says "Run-time error '13': Type mismatch. When I click Debug, the code comes up with the last line before End If highlighted in yellow: cell...

Re: Changing cell contents to various other values HI try these codes. It applies only to col D. Code: Sub wilma() Dim a As Long, x As Long x = Cells(Rows.Count, 1).End(xlUp).Row Range("D1:D" & x).NumberFormat = "@" For a = 2 To x If Cells(a, 4) = 0 Then Cells(a, 4) = "006" ElseIf Cells(a, 4) > ...

HI try these codes. It applies only to col D. Code: Sub wilma() Dim a As Long, x As Long x = Cells(Rows.Count, 1).End(xlUp).Row Range("D1:D" & x).NumberFormat = "@" For a = 2 To x If Cells(a, 4) = 0 Then Cells(a, 4) = "006" ElseIf Cells(a, 4) > 0 And Cells(a, 4) < 10 Then Cells(a, 4) = "0" & Cells(a, 4) = Cells(a, 4) * 10 ElseIf ...

Hi - I'm sorry to keep bothering...this code works perfectly on the correct column, and returns the x10 result on all values greater than 9, but the first two options return a value of FALSE when I run the macro. Any suggestions?

Re: Changing cell contents to various other values Hi - I'm sorry to keep bothering...this code works perfectly on the correct column, and returns the x10 result on all values greater than 9, but the first two options return a value of FALSE when I run the macro. Any suggestions?

Re: Changing cell contents to various other values Hi replace the line Cells(a, 4) = "0" & Cells(a, 4) = Cells(a, 4) * 10 with Cells(a, 4) = "0" & Cells(a, 4) * 10 Ravi

Hi replace the line Cells(a, 4) = "0" & Cells(a, 4) = Cells(a, 4) * 10 with Cells(a, 4) = "0" & Cells(a, 4) * 10 Ravi

BEAUTIFUL! Thanks so much. I'll definitely be hanging around this message board - lots of stuff to learn.