programma in vba werkt niet na verbergen kolommen

[gammelkeunited]

macro werkt niet na verbergen kolommen

Hallo mensen,

Ik heb een werkblad met in kolom D tot en met I getallen die worden geplaatst door een macro.
echter deze kolommen mogen niet zichtbaar zijn. dus heb ik ze geselecteerd en via rechtermuisknop - verbergen. de cellen verborgen. echter als ik nu de macro weer start werkt het programma niet meer zoals het zou moeten. er word nu nog maar 1 getal geplaatst.

de macro:
Private Sub CommandButton1_Click()
Dim lRij As Long
Dim lzRij As Long
lRij = 5
lzRij = 1
Range("D1:I100").ClearContents
Application.ScreenUpdating = False
While Range("B" & lRij).Value <> ""
Workbooks.Open "H:\_Algemeen\" & Range("B" & lRij).Value & ".xls"
For n = ThisWorkbook.Worksheets(1).Range("C" & lzRij).Value = 1 To 60
With Workbooks(Workbooks.Count).Worksheets(1).Range("Q:Q")
Set G = .Find(ThisWorkbook.Worksheets(1).Range("C" & lzRij).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not G Is Nothing Then
ThisWorkbook.Worksheets(1).Cells(lzRij, "I").End(xlToLeft).Offset(, 1) = Workbooks(Workbooks.Count).Worksheets(1).Range("R" & G.Row)

End If
End With
lzRij = lzRij + 1
Next n
Workbooks(Workbooks.Count).Close savechanges:=False
lzRij = 1
lRij = lRij + 1
Wend
Application.ScreenUpdating = True
End Sub


wie weet hoe dit kan en of het verholpen kan worden?

met vriendelijke groet,

gammelkeunited

 

[Jan van Asseldonk]

Maak na

Application.ScreenUpdating = False

je kolommen via de macro zichtbaar. Omdat schermverversing uitstaat zie je dat toch niet.
Als laatste voor

Application.ScreenUpdating = True

verberg je de kolmmen weer via de macro.

De gebruiker zie zo niet dat de kolommen tijdelijk zichtbaar zijn geweest.

 

[gammelkeunited]

Hallo Jan,

Bedankt voor je reactie!!, het werkt perfect.

gr. gammelkeunited