autoamtically hiding a column after moving to a next cell outside
 

I have hidden a column, which only unhides, when a certain category is chosen
in the previous column. However after one has entered the required info and
moves to the cell in the next column I would like the column automatically to
be hidden again. Any solution to that would be much appreciated

autoamtically hiding a column after moving to a next cell outside
 

post what you have so far

--
Don Guillett
SalesAid Software

"Frederic" wrote in message
...
I have hidden a column, which only unhides, when a certain category is
chosen
in the previous column. However after one has entered the required info
and
moves to the cell in the next column I would like the column automatically
to
be hidden again. Any solution to that would be much appreciated

autoamtically hiding a column after moving to a next cell outs
 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Value = "Locators" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Detectors" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Survey/Navigation Equip." Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Machinery" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Medical Equip. Cap. Assets"
Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Weapons" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Desktops" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Laptops" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Printers" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Scanners" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Digital Cameras" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Radios" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Sat Phones" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Mobile Phones" Then
Columns("G").Hidden = False
ElseIf Target.Column = 5 And Target.Value = "Vehicles" Then
Columns("G").Hidden = False

End If
End Sub


"Don Guillett" wrote:

post what you have so far

--
Don Guillett
SalesAid Software

"Frederic" wrote in message
...
I have hidden a column, which only unhides, when a certain category is
chosen
in the previous column. However after one has entered the required info
and
moves to the cell in the next column I would like the column automatically
to
be hidden again. Any solution to that would be much appreciated