Propongo questa evoluzione del codice di alfrimpa:
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myArea As Range
Set myArea = Range("B:B") 'La singola colonna da monitorare
If Target.Column = myArea.Cells(1, 1).Column Then
If Application.WorksheetFunction.CountA(myArea) > 0 Then
Range("C1").EntireColumn.Hidden = False
Else
Range("C1").EntireColumn.Hidden = True
End If
End If
End Sub
Operativamente:
-tasto dx sul tab col nome del foglio su cui lavori
-scegli Visualizza codice
-copia il codice e incollalo nel frame "vuoto" di destra
(se il frame non e' "vuoto" allora va esaminata la compatibilita' del codice proposto con quello che hai gia')
Poi torna su excel, cancella tutto il contenuto di colonna B /scrivici qualcosa e vedi l' effetto che fa.
Ciao a tutti.