Macros Problem

[Guest]

Hi, I run the following macro to convert columns E,G,H,I into Euro's but it
keeps converting coulmn D, which I don't won't to convert. Can anyone help.
Thanks

If Range("D7") = "EURO" Then
Range("E:E,G:G,H:H,I:I").Select
Selection.NumberFormat = "[$€-2] #,##0.00;[Red]-[$€-2] #,##0.00"
Range("A1").Select
End If

 

[Guest]

Hi,

The snippet of code you posted doesn't convert column D so something else
must or it may already be converted.

Mike

 

[Guest]

Thanks for the quick response, I just figured out what the problem is. Half
way down the sheet on one of the rows columns D & E had been merged, I
unmerged them and it works fine now.

Hi,

The snippet of code you posted doesn't convert column D so something else
must or it may already be converted.

Mike

Hi, I run the following macro to convert columns E,G,H,I into Euro's but it
keeps converting coulmn D, which I don't won't to convert. Can anyone help.
Thanks

If Range("D7") = "EURO" Then
Range("E:E,G:G,H:H,I:I").Select
Selection.NumberFormat = "[$€-2] #,##0.00;[Red]-[$€-2] #,##0.00"
Range("A1").Select
End If

 

[Don Guillett]

Good that you figured it out. You probably should remove selections also.

If Range("D7") = "EURO" Then
Range("E:E,G:G,H:H,I:I").NumberFormat = "[$€-2] #,##0.00;[Red]-[$€-2]
#,##0.00"
end if
End If

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

Thanks for the quick response, I just figured out what the problem is.
Half
way down the sheet on one of the rows columns D & E had been merged, I
unmerged them and it works fine now.

Hi,

The snippet of code you posted doesn't convert column D so something else
must or it may already be converted.

Mike

Hi, I run the following macro to convert columns E,G,H,I into Euro's
but it
keeps converting coulmn D, which I don't won't to convert. Can anyone
help.
Thanks

If Range("D7") = "EURO" Then
Range("E:E,G:G,H:H,I:I").Select
Selection.NumberFormat = "[$€-2] #,##0.00;[Red]-[$€-2] #,##0.00"
Range("A1").Select
End If