automatisch cellen samenvoegen dmv macro

[HSV]

Ik heb het door.

Zet numer = 1 op 0 (nul).
Zo moet je er zijn.

 

[rvt1982]

super, dank je wel.
ps rij 2:2 kan ik niet verbergen, kan je deze ook direct mee nemen ??

Voor alle hulp die u mij gegeven hebt vroeg ik me af of je eventueel een vergoeding wil voor alle moeite??
Nogmaals bedankt.

 

[HSV]

Nee hoor, geen vergoeding.
Dit is voor plezier (al krijg je soms wel hoofdpijn).

Voeg de rode regel toe (onderaan).

With Sheets("Agenda")
[COLOR="red"].Rows("2:2").Hidden = True[/COLOR]    
.Columns("B:B").Hidden = True

 

[rvt1982]

Bedankt Harry,

Als ik iets voor jou kan betekenen hoor ik het graag.

Super bedankt voor de moeite. :thumb:
nu kan je teminste weer rusten en ben je straks weer van je hoofdpijn af

 

[HSV]

Voeg alleen nog deze rode regel toe.

Application.ScreenUpdating = False
 [COLOR="red"] Sheets("Agenda").Rows("2:2").Hidden = False[/COLOR]   
With Sheets("Agenda").Range("B4:FS100")

 

[rvt1982]

toegevoegd. :thumb: