fOUTMELDING

[verluc]

Bij het uitvoeren van onderstaande macro krijg ik de foutmelding:

Typen komen niet overeen

Sub Basel()
Columns("O,Q").EntireColumn.Hidden = _
Not Columns("O,Q").EntireColumn.Hidden
End Sub

Iemand enig idee ?

 

[edmoor]

Wijzig de , in een :

Sub Basel()
    Columns("O:Q").EntireColumn.Hidden = _
    Not Columns("O:Q").EntireColumn.Hidden
End Sub

 

[snb]

en verder:

Sub M_Basel()
    Columns("O:Q").Hidden = Not Columns("O:Q").Hidden
End Sub

 

[verluc]

Hello SNB en Edmoor,

De notitie in deze macro zou moeten uitvoeren : O EN Q en niet VAN O TOT Q

 

[edmoor]

Dat had je er niet bij verteld:

Sub M_Basel()
    Range("O:O,Q:Q").EntireColumn.Hidden = Not Range("O:O,Q:Q").EntireColumn.Hidden
End Sub

 

[snb]

Sub M_snb()
   With Columns(15)
        .Hidden = Not .Hidden
         Columns(17).Hidden = .Hidden
   End With
End Sub

 

[verluc]

Sorry, Edmoor voor deze tekortkoming in mijn vraagstelling.
Uw aangegeven macro doet thans inderdaad wat mijn bedoeling was.
Echter na ingave van een getal komen alle kolommen terug zichtbaar.
Kan dit zo worden aangepast dat deze enkel zichtbaar worden wanneer de macroknop
nogmaals word ingedrukt ?

 

[edmoor]

Dat is precies wat mijn voorbeeld doet. Als ze zichtbaar zijn zal de knop ze verbergen en andersom.
Kennelijk heb je ook nog iets in de Worksheet_Change zitten die zich daarmee bemoeid.

 

[verluc]

Inderdaad, hoe kan je het weten: bij uitschakeling van de Worksheet_Change werkt Uw antwoord
op mijn vraag perfect.
Maar wat is dan de fout in onderstaande macro die de goede werking verhindert ?

'Sub Worksheet_Change(ByVal Target As Range)
'Application.ScreenUpdating = False
'Application.EnableEvents = False
'Range("A4:D1000").HorizontalAlignment = xlLeft
'Range("B4:C1000").HorizontalAlignment = xlCenter
'Range("D4:D1000").HorizontalAlignment = xlLeft
'On Error Resume Next
'  If Target.Column < 5 Then Target = UCase(Target)
'    Columns.AutoFit
 '   Range("A4:W" & Range("A" & Rows.Count).End(xlUp).Row).Sort Range("A4")
 '   Range("A4:W" & Range("A" & Rows.Count).End(xlUp).Row).Sort Range("D4")
 '   Rows.AutoFit
    'Application.Goto Target.EntireColumn.Find(vT, lookat:=xlWhole)
'Application.EnableEvents = True
'Application.ScreenUpdating = True
'End Sub

 

[VenA]

Columns.AutoFit

maakt de kolommen weer zichtbaar.

 

[HSV]

Columns.AutoFit

maakt de kolommen weer zichtbaar.

Maakt de kolommen zo breed als de tekstbreedte.

 

[VenA]

En dus de verborgen kolommen weer zichtbaar. (mits er wat in staat)

Sub VenA()
Columns(1).Hidden = 1
MsgBox Columns(1).Hidden
Columns.AutoFit
MsgBox Columns(1).Hidden
End Sub

 

[HSV]

Dat schrijf je juist (mits er wat in staat).

 

[verluc]

Allen zeer bedankt voor voorstellen en suggesties.
Probleem is opgelost waarvoor nogmaals mijn waardering.

 

[edmoor]

Tip voor verluc in #9.
Als je direct onder de Sub Worksheet_Change de tekst Exit Sub zet wordt de rest van de code ook niet uitgevoerd.
Dan hoef je niet al die enkele quotes te zetten en naderhand weer te verwijderen.