Hallo,
Allereerst excuses voor de misschien domme vraag!
Is er iemand die mij kan helpen bij het samenvoegen van verschillende scripts?
Ik heb twee VBA scripts voor het bestand welke apart van elkaar goed werken, maar zodra ik ze samenvoeg gaat het mis.
Het gaat om scripts op 3 plekken: ThisWorkbook, hoofdtab (oppervlakte maten) en de tabs die verborgen gaan worden.
Ik heb een lijst gemaakt per "tab" met de scripts welke samengevoegd moeten worden.
Ik hoop dat dit duidelijk genoeg is eerst, anders stuur ik een voorbeeld bestand (veel werk om het bestand toonbaar te maken). Het eerste deel van het script is elke keer voor het auto verbergen van tabbladen en het tweede deel script voor het verbergen van regels.
Oppervlakte maten (tabbladnaam) script:
Automatisch tabs verbergen en tevoorschijn halen bij activeren:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("8:8")) Is Nothing Then
With Sheets(Target.Value)
.Visible = True
.Select
End With
End If
End Sub
Regels automatisch verbergen bij lege cellen:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For Each b In Range("b11:b80,b84:b153,b157:b226,b230:b299,b303:b372")
Rows(b.Row).Hidden = IIf(b.Value = 0, True, False)
Next
Application.ScreenUpdating = True
End Sub
Script op betreffende tabbladen (welke verborgen worden):
Automatisch tabs verbergen en tevoorschijn halen bij activeren:
Option Explicit
SAMEN MET:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For Each b In Range("b11:b80,b84:b153,b157:b226,b230:b299,b303:b372")
Rows(b.Row).Hidden = IIf(b.Value = 0, True, False)
Next
Application.ScreenUpdating = True
End Sub
This workbook script:
Automatisch tabs verbergen en tevoorschijn halen bij activeren (bevat enkel het scriptdeel voor het verbergen van tabs! is dus al klaar denk ik?):
Option Explicit
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Index <> 1 Then
Sh.Visible = False
End If
End Sub
Het zou fijn zijn als iemand mij kan en wil helpen!
Mvg, Frank
Allereerst excuses voor de misschien domme vraag!
Is er iemand die mij kan helpen bij het samenvoegen van verschillende scripts?
Ik heb twee VBA scripts voor het bestand welke apart van elkaar goed werken, maar zodra ik ze samenvoeg gaat het mis.
Het gaat om scripts op 3 plekken: ThisWorkbook, hoofdtab (oppervlakte maten) en de tabs die verborgen gaan worden.
Ik heb een lijst gemaakt per "tab" met de scripts welke samengevoegd moeten worden.
Ik hoop dat dit duidelijk genoeg is eerst, anders stuur ik een voorbeeld bestand (veel werk om het bestand toonbaar te maken). Het eerste deel van het script is elke keer voor het auto verbergen van tabbladen en het tweede deel script voor het verbergen van regels.
Oppervlakte maten (tabbladnaam) script:
Automatisch tabs verbergen en tevoorschijn halen bij activeren:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("8:8")) Is Nothing Then
With Sheets(Target.Value)
.Visible = True
.Select
End With
End If
End Sub
Regels automatisch verbergen bij lege cellen:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For Each b In Range("b11:b80,b84:b153,b157:b226,b230:b299,b303:b372")
Rows(b.Row).Hidden = IIf(b.Value = 0, True, False)
Next
Application.ScreenUpdating = True
End Sub
Script op betreffende tabbladen (welke verborgen worden):
Automatisch tabs verbergen en tevoorschijn halen bij activeren:
Option Explicit
SAMEN MET:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
For Each b In Range("b11:b80,b84:b153,b157:b226,b230:b299,b303:b372")
Rows(b.Row).Hidden = IIf(b.Value = 0, True, False)
Next
Application.ScreenUpdating = True
End Sub
This workbook script:
Automatisch tabs verbergen en tevoorschijn halen bij activeren (bevat enkel het scriptdeel voor het verbergen van tabs! is dus al klaar denk ik?):
Option Explicit
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Index <> 1 Then
Sh.Visible = False
End If
End Sub
Het zou fijn zijn als iemand mij kan en wil helpen!
Mvg, Frank
Laatst bewerkt: