Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Sub RunEveryTwoMinutes()
- ' Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- 'If Worksheets("BBW").Activate Then
- ' Call BBWsheet
- 'ElseIf Worksheets("BBR").Activate Then
- ' Call BBRsheet
- 'ElseIf Worksheets("Schuldregeling").Activate Then
- ' Call Shuldrsheet
- 'ElseIf Worksheets("Kredietverlening").Activate Then
- ' Call Kredietv
- '
- 'End If
- '
- 'Application.OnTime Now + TimeValue("00:00:02"), "RunEveryTwoMinutes"
- '
- 'End Sub
- Sub start()
- Worksheets("start").Activate
- ActiveWorkbook.Sheets("BBW").Visible = xlSheetHidden
- ActiveWorkbook.Sheets("BBR").Visible = xlSheetHidden
- ActiveWorkbook.Sheets("Schuldregeling").Visible = xlSheetHidden
- ActiveWorkbook.Sheets("Kredietverlening").Visible = xlSheetHidden
- End Sub
- Sub BBWsheet()
- 'Going to worksheet
- Worksheets("BBW").Activate
- ActiveWorkbook.Sheets("BBW").Visible = xlSheetVisible
- Call BBWsheet2
- End Sub
- Sub BBWsheet2()
- 'Reset voor voor nieuwe invul naam etc
- If Range("A2").Value = 0 And ActiveSheet.Name = "BBW" Then
- [A2] = InputBox("Naam medewerker")
- End If
- If Range("B2").Value = 0 And ActiveSheet.Name = "BBW" Then
- [B2] = InputBox("Naam van Client")
- End If
- If Range("B4").Value = 0 And ActiveSheet.Name = "BBW" Then
- [B4] = InputBox("Client nummer")
- End If
- 'Invulling document type
- If Range("A8").Value = 0 Then
- Rows(9).Hidden = True
- Rows(10).Hidden = True
- Rows(11).Hidden = True
- Rows(12).Hidden = True
- Rows(13).Hidden = True
- Rows(14).Hidden = True
- Else
- Rows(9).Hidden = False
- Rows(10).Hidden = False
- End If
- 'Hier worden de voorwaarden voor de Row Toevoegingen aangegeven ------------------------------------------------
- 'Rechtbank -----------------------------------------------------------------------------------------------------
- If Range("A10").Value = "Machtiging" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Onderwerp"
- End If
- If Range("A10").Value = "Jaarafreking_energieleveranciers" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Jaar"
- End If
- If Range("A10").Value = "Beëndiging contract energieleveranciers" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Datum beëndiging"
- End If
- If Range("A10").Value = "Polis zorg" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Jaar"
- End If
- 'Belastingdiens sub-----------------------------------------------------------------------------
- If Range("A10").Value = "IB" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Jaar, aanvulling"
- Rows(13).Hidden = False
- Rows(14).Hidden = False
- End If
- If Range("A10").Value = "MB" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Jaar, aanvulling"
- Rows(13).Hidden = False
- Rows(14).Hidden = False
- End If
- If Range("A10").Value = "OB" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Jaar, aanvulling"
- Rows(13).Hidden = False
- Rows(14).Hidden = False
- End If
- 'Inkomsten-----------------------------------------------------------------------------------
- If Range("A10").Value = "Aanvraag bijzondere bijstand" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Waarvoor, invullen"
- Rows(13).Hidden = False
- Rows(14).Hidden = False
- End If
- If Range("A10").Value = "Afwijzing aanvraag bijzonder bijstand" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Aanvulling, invullen"
- Rows(13).Hidden = False
- Rows(14).Hidden = False
- End If
- If Range("A10").Value = "Toekenning aanvraag bijzondere bijstand" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Jaar, aanvulling"
- Rows(13).Hidden = False
- Rows(14).Hidden = False
- End If
- 'Hebben we hier ook 13 en 14 nodig??
- If Range("A10").Value = "Uitkeringspeificatie" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Periode"
- 'Rows(13).Hidden = False
- 'Rows(14).Hidden = False
- End If
- 'Hebben we hier ook 13 en 14 nodig??
- If Range("A10").Value = "Beschikking toekenning uitkering" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Periode"
- 'Rows(13).Hidden = False
- 'Rows(14).Hidden = False
- End If
- If Range("A10").Value = "Beëndiging uitkering" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Met ingang van"
- End If
- If Range("A10").Value = "Toekenning pension" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Met ingang van"
- 'Rows(13).Hidden = False
- 'Rows(14).Hidden = False
- End If
- If Range("A10").Value = "Pensioenoverzicht" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Datum"
- 'Rows(13).Hidden = False
- 'Rows(14).Hidden = False
- End If
- If Range("A10").Value = "Pensioenoverzicht" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Datum"
- 'Rows(13).Hidden = False
- 'Rows(14).Hidden = False
- End If
- If Range("A10").Value = "Toekenning kinderbijslag" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Met ingang van"
- 'Rows(13).Hidden = False
- 'Rows(14).Hidden = False
- End If
- 'Crediteuren-------------------------------------------------------------------------------------------
- If Range("A10").Value = "Aanzegging tot ontruiming" Then
- Rows(11).Hidden = False
- Rows(12).Hidden = False
- Range("A12").Value = "Datum + Tijd"
- 'Rows(13).Hidden = False
- 'Rows(14).Hidden = False
- End If
- If ActiveSheet.Name = "BBW" Then
- Application.OnTime Now + TimeValue("00:00:02"), "BBWsheet2"
- Else
- Call start
- End If
- End Sub
- Sub BBRsheet()
- Worksheets("BBR").Activate
- ActiveWorkbook.Sheets("BBR").Visible = xlSheetVisible
- Call BBRsheet2
- End Sub
- Sub BBRsheet2()
- If Range("A2").Value = 0 And ActiveSheet.Name = "BBR" Then
- [A2] = InputBox("Naam medewerker")
- End If
- If Range("B2").Value = 0 And ActiveSheet.Name = "BBR" Then
- [B2] = InputBox("Naam van Client")
- End If
- If Range("B4").Value = 0 And ActiveSheet.Name = "BBR" Then
- [B4] = InputBox("Client nummer")
- End If
- If Range("A8").Value = 0 Then
- Rows(9).Hidden = True
- Rows(10).Hidden = True
- Rows(11).Hidden = True
- Rows(12).Hidden = True
- Rows(13).Hidden = True
- Rows(14).Hidden = True
- Else
- Rows(9).Hidden = False
- Rows(10).Hidden = False
- End If
- If ActiveSheet.Name = "BBR" Then
- Application.OnTime Now + TimeValue("00:00:02"), "BBRsheet2"
- Else
- Call start
- End If
- End Sub
- Sub Schuldrsheet()
- Worksheets("Schuldregeling").Activate
- ActiveWorkbook.Sheets("Schuldregeling").Visible = xlSheetVisible
- Call Schuldrsheet2
- End Sub
- Sub Schuldrsheet2()
- If Range("A2").Value = 0 And ActiveSheet.Name = "Schuldregeling" Then
- [A2] = InputBox("Naam medewerker")
- End If
- If Range("B2").Value = 0 And ActiveSheet.Name = "Schuldregeling" Then
- [B2] = InputBox("Naam van Client")
- End If
- If Range("B4").Value = 0 And ActiveSheet.Name = "Schuldregeling" Then
- [B4] = InputBox("Client nummer")
- End If
- If Range("A8").Value = 0 Then
- Rows(9).Hidden = True
- Rows(10).Hidden = True
- Rows(11).Hidden = True
- Rows(12).Hidden = True
- Rows(13).Hidden = True
- Rows(14).Hidden = True
- Else
- Rows(9).Hidden = False
- Rows(10).Hidden = False
- End If
- If ActiveSheet.Name = "Schuldregeling" Then
- Application.OnTime Now + TimeValue("00:00:02"), "Schuldrsheet2"
- Else
- Call start
- End If
- End Sub
- Sub Kredietvsheet()
- Worksheets("Kredietverlening").Activate
- ActiveWorkbook.Sheets("Kredietverlening").Visible = xlSheetVisible
- Call Kredietvsheet2
- End Sub
- Sub Kredietvsheet2()
- If Range("A2").Value = 0 And ActiveSheet.Name = "Kredietverlening" Then
- [A2] = InputBox("Naam medewerker")
- End If
- If Range("B2").Value = 0 And ActiveSheet.Name = "Kredietverlening" Then
- [B2] = InputBox("Naam van Client")
- End If
- If Range("B4").Value = 0 And ActiveSheet.Name = "Kredietverlening" Then
- [B4] = InputBox("Client nummer")
- End If
- If Range("A8").Value = 0 Then
- Rows(9).Hidden = True
- Rows(10).Hidden = True
- Rows(11).Hidden = True
- Rows(12).Hidden = True
- Rows(13).Hidden = True
- Rows(14).Hidden = True
- Else
- Rows(9).Hidden = False
- Rows(10).Hidden = False
- End If
- If ActiveSheet.Name = "Kredietverlening" Then
- Application.OnTime Now + TimeValue("00:00:02"), "Kredietvsheet2"
- Else
- Call start
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement