Advertisement
Guest User

Stack overflow ftw

a guest
Aug 23rd, 2019
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Sub RunEveryTwoMinutes()
  2. ' Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3. 'If Worksheets("BBW").Activate Then
  4. '    Call BBWsheet
  5. 'ElseIf Worksheets("BBR").Activate Then
  6. '    Call BBRsheet
  7. 'ElseIf Worksheets("Schuldregeling").Activate Then
  8. '    Call Shuldrsheet
  9. 'ElseIf Worksheets("Kredietverlening").Activate Then
  10. '    Call Kredietv
  11. '
  12. 'End If
  13. '
  14. 'Application.OnTime Now + TimeValue("00:00:02"), "RunEveryTwoMinutes"
  15. '
  16. 'End Sub
  17.  
  18. Sub start()
  19.  
  20.     Worksheets("start").Activate
  21.     ActiveWorkbook.Sheets("BBW").Visible = xlSheetHidden
  22.     ActiveWorkbook.Sheets("BBR").Visible = xlSheetHidden
  23.     ActiveWorkbook.Sheets("Schuldregeling").Visible = xlSheetHidden
  24.     ActiveWorkbook.Sheets("Kredietverlening").Visible = xlSheetHidden
  25.    
  26. End Sub
  27.  
  28. Sub BBWsheet()
  29. 'Going to worksheet
  30.  
  31.     Worksheets("BBW").Activate
  32.     ActiveWorkbook.Sheets("BBW").Visible = xlSheetVisible
  33.    
  34. Call BBWsheet2
  35. End Sub
  36.  
  37. Sub BBWsheet2()
  38. 'Reset voor voor nieuwe invul naam etc
  39.  
  40.     If Range("A2").Value = 0 And ActiveSheet.Name = "BBW" Then
  41.     [A2] = InputBox("Naam medewerker")
  42.     End If
  43.    
  44.     If Range("B2").Value = 0 And ActiveSheet.Name = "BBW" Then
  45.     [B2] = InputBox("Naam van Client")
  46.     End If
  47.    
  48.     If Range("B4").Value = 0 And ActiveSheet.Name = "BBW" Then
  49.     [B4] = InputBox("Client nummer")
  50.     End If
  51. 'Invulling document type
  52.  
  53.     If Range("A8").Value = 0 Then
  54.         Rows(9).Hidden = True
  55.         Rows(10).Hidden = True
  56.         Rows(11).Hidden = True
  57.         Rows(12).Hidden = True
  58.         Rows(13).Hidden = True
  59.         Rows(14).Hidden = True
  60.     Else
  61.         Rows(9).Hidden = False
  62.         Rows(10).Hidden = False
  63.     End If
  64.    
  65.  
  66. 'Hier worden de voorwaarden voor de Row Toevoegingen aangegeven ------------------------------------------------
  67. 'Rechtbank -----------------------------------------------------------------------------------------------------
  68.    If Range("A10").Value = "Machtiging" Then
  69.         Rows(11).Hidden = False
  70.         Rows(12).Hidden = False
  71.         Range("A12").Value = "Onderwerp"
  72.     End If
  73.    
  74.     If Range("A10").Value = "Jaarafreking_energieleveranciers" Then
  75.         Rows(11).Hidden = False
  76.         Rows(12).Hidden = False
  77.         Range("A12").Value = "Jaar"
  78.     End If
  79.    
  80.         If Range("A10").Value = "Beëndiging contract energieleveranciers" Then
  81.         Rows(11).Hidden = False
  82.         Rows(12).Hidden = False
  83.         Range("A12").Value = "Datum beëndiging"
  84.     End If
  85.  
  86.         If Range("A10").Value = "Polis zorg" Then
  87.         Rows(11).Hidden = False
  88.         Rows(12).Hidden = False
  89.         Range("A12").Value = "Jaar"
  90.     End If
  91. 'Belastingdiens sub-----------------------------------------------------------------------------
  92.        If Range("A10").Value = "IB" Then
  93.         Rows(11).Hidden = False
  94.         Rows(12).Hidden = False
  95.         Range("A12").Value = "Jaar, aanvulling"
  96.         Rows(13).Hidden = False
  97.         Rows(14).Hidden = False
  98.     End If
  99.    
  100.         If Range("A10").Value = "MB" Then
  101.         Rows(11).Hidden = False
  102.         Rows(12).Hidden = False
  103.         Range("A12").Value = "Jaar, aanvulling"
  104.         Rows(13).Hidden = False
  105.         Rows(14).Hidden = False
  106.     End If
  107.  
  108.         If Range("A10").Value = "OB" Then
  109.         Rows(11).Hidden = False
  110.         Rows(12).Hidden = False
  111.         Range("A12").Value = "Jaar, aanvulling"
  112.         Rows(13).Hidden = False
  113.         Rows(14).Hidden = False
  114.     End If
  115. 'Inkomsten-----------------------------------------------------------------------------------
  116.        If Range("A10").Value = "Aanvraag bijzondere bijstand" Then
  117.         Rows(11).Hidden = False
  118.         Rows(12).Hidden = False
  119.         Range("A12").Value = "Waarvoor, invullen"
  120.         Rows(13).Hidden = False
  121.         Rows(14).Hidden = False
  122.     End If
  123.  
  124.         If Range("A10").Value = "Afwijzing aanvraag bijzonder bijstand" Then
  125.         Rows(11).Hidden = False
  126.         Rows(12).Hidden = False
  127.         Range("A12").Value = "Aanvulling, invullen"
  128.         Rows(13).Hidden = False
  129.         Rows(14).Hidden = False
  130.     End If
  131.  
  132.         If Range("A10").Value = "Toekenning aanvraag bijzondere bijstand" Then
  133.         Rows(11).Hidden = False
  134.         Rows(12).Hidden = False
  135.         Range("A12").Value = "Jaar, aanvulling"
  136.         Rows(13).Hidden = False
  137.         Rows(14).Hidden = False
  138.     End If
  139. 'Hebben we hier ook 13 en 14 nodig??
  140.        If Range("A10").Value = "Uitkeringspeificatie" Then
  141.         Rows(11).Hidden = False
  142.         Rows(12).Hidden = False
  143.         Range("A12").Value = "Periode"
  144.         'Rows(13).Hidden = False
  145.        'Rows(14).Hidden = False
  146.    End If
  147. 'Hebben we hier ook 13 en 14 nodig??
  148.        If Range("A10").Value = "Beschikking toekenning uitkering" Then
  149.         Rows(11).Hidden = False
  150.         Rows(12).Hidden = False
  151.         Range("A12").Value = "Periode"
  152.         'Rows(13).Hidden = False
  153.        'Rows(14).Hidden = False
  154.    End If
  155.    
  156.         If Range("A10").Value = "Beëndiging uitkering" Then
  157.         Rows(11).Hidden = False
  158.         Rows(12).Hidden = False
  159.         Range("A12").Value = "Met ingang van"
  160.     End If
  161.    
  162.         If Range("A10").Value = "Toekenning pension" Then
  163.         Rows(11).Hidden = False
  164.         Rows(12).Hidden = False
  165.         Range("A12").Value = "Met ingang van"
  166.         'Rows(13).Hidden = False
  167.        'Rows(14).Hidden = False
  168.    End If
  169.    
  170.         If Range("A10").Value = "Pensioenoverzicht" Then
  171.         Rows(11).Hidden = False
  172.         Rows(12).Hidden = False
  173.         Range("A12").Value = "Datum"
  174.         'Rows(13).Hidden = False
  175.        'Rows(14).Hidden = False
  176.    End If
  177.    
  178.         If Range("A10").Value = "Pensioenoverzicht" Then
  179.         Rows(11).Hidden = False
  180.         Rows(12).Hidden = False
  181.         Range("A12").Value = "Datum"
  182.         'Rows(13).Hidden = False
  183.        'Rows(14).Hidden = False
  184.    End If
  185.  
  186.         If Range("A10").Value = "Toekenning kinderbijslag" Then
  187.         Rows(11).Hidden = False
  188.         Rows(12).Hidden = False
  189.         Range("A12").Value = "Met ingang van"
  190.         'Rows(13).Hidden = False
  191.        'Rows(14).Hidden = False
  192.    End If
  193. 'Crediteuren-------------------------------------------------------------------------------------------
  194.        If Range("A10").Value = "Aanzegging tot ontruiming" Then
  195.         Rows(11).Hidden = False
  196.         Rows(12).Hidden = False
  197.         Range("A12").Value = "Datum + Tijd"
  198.         'Rows(13).Hidden = False
  199.        'Rows(14).Hidden = False
  200.    End If
  201.    
  202.     If ActiveSheet.Name = "BBW" Then
  203.         Application.OnTime Now + TimeValue("00:00:02"), "BBWsheet2"
  204.     Else
  205.     Call start
  206.    
  207.    
  208.     End If
  209.    
  210. End Sub
  211.  
  212. Sub BBRsheet()
  213.  
  214. Worksheets("BBR").Activate
  215. ActiveWorkbook.Sheets("BBR").Visible = xlSheetVisible
  216.  
  217. Call BBRsheet2
  218.  
  219. End Sub
  220.  
  221.  
  222. Sub BBRsheet2()
  223.  
  224.     If Range("A2").Value = 0 And ActiveSheet.Name = "BBR" Then
  225.     [A2] = InputBox("Naam medewerker")
  226.     End If
  227.    
  228.     If Range("B2").Value = 0 And ActiveSheet.Name = "BBR" Then
  229.     [B2] = InputBox("Naam van Client")
  230.     End If
  231.    
  232.     If Range("B4").Value = 0 And ActiveSheet.Name = "BBR" Then
  233.     [B4] = InputBox("Client nummer")
  234.     End If
  235.  
  236.     If Range("A8").Value = 0 Then
  237.         Rows(9).Hidden = True
  238.         Rows(10).Hidden = True
  239.         Rows(11).Hidden = True
  240.         Rows(12).Hidden = True
  241.         Rows(13).Hidden = True
  242.         Rows(14).Hidden = True
  243.     Else
  244.         Rows(9).Hidden = False
  245.         Rows(10).Hidden = False
  246.     End If
  247.    
  248.      If ActiveSheet.Name = "BBR" Then
  249.         Application.OnTime Now + TimeValue("00:00:02"), "BBRsheet2"
  250.     Else
  251.     Call start
  252.     End If
  253.    
  254.    
  255.  
  256. End Sub
  257.  
  258. Sub Schuldrsheet()
  259.  
  260. Worksheets("Schuldregeling").Activate
  261. ActiveWorkbook.Sheets("Schuldregeling").Visible = xlSheetVisible
  262.  
  263. Call Schuldrsheet2
  264.  
  265. End Sub
  266.  
  267.  
  268. Sub Schuldrsheet2()
  269.  
  270.  
  271.     If Range("A2").Value = 0 And ActiveSheet.Name = "Schuldregeling" Then
  272.     [A2] = InputBox("Naam medewerker")
  273.     End If
  274.    
  275.     If Range("B2").Value = 0 And ActiveSheet.Name = "Schuldregeling" Then
  276.     [B2] = InputBox("Naam van Client")
  277.     End If
  278.    
  279.     If Range("B4").Value = 0 And ActiveSheet.Name = "Schuldregeling" Then
  280.     [B4] = InputBox("Client nummer")
  281.     End If
  282.  
  283.     If Range("A8").Value = 0 Then
  284.         Rows(9).Hidden = True
  285.         Rows(10).Hidden = True
  286.         Rows(11).Hidden = True
  287.         Rows(12).Hidden = True
  288.         Rows(13).Hidden = True
  289.         Rows(14).Hidden = True
  290.     Else
  291.         Rows(9).Hidden = False
  292.         Rows(10).Hidden = False
  293.     End If
  294.  
  295.      If ActiveSheet.Name = "Schuldregeling" Then
  296.         Application.OnTime Now + TimeValue("00:00:02"), "Schuldrsheet2"
  297.     Else
  298.     Call start
  299.     End If
  300.    
  301.  
  302.  
  303. End Sub
  304.  
  305. Sub Kredietvsheet()
  306.  
  307. Worksheets("Kredietverlening").Activate
  308. ActiveWorkbook.Sheets("Kredietverlening").Visible = xlSheetVisible
  309.  
  310. Call Kredietvsheet2
  311. End Sub
  312.  
  313. Sub Kredietvsheet2()
  314.  
  315.     If Range("A2").Value = 0 And ActiveSheet.Name = "Kredietverlening" Then
  316.     [A2] = InputBox("Naam medewerker")
  317.     End If
  318.    
  319.     If Range("B2").Value = 0 And ActiveSheet.Name = "Kredietverlening" Then
  320.     [B2] = InputBox("Naam van Client")
  321.     End If
  322.    
  323.     If Range("B4").Value = 0 And ActiveSheet.Name = "Kredietverlening" Then
  324.     [B4] = InputBox("Client nummer")
  325.     End If
  326.  
  327.     If Range("A8").Value = 0 Then
  328.         Rows(9).Hidden = True
  329.         Rows(10).Hidden = True
  330.         Rows(11).Hidden = True
  331.         Rows(12).Hidden = True
  332.         Rows(13).Hidden = True
  333.         Rows(14).Hidden = True
  334.     Else
  335.         Rows(9).Hidden = False
  336.         Rows(10).Hidden = False
  337.     End If
  338.    
  339.         If ActiveSheet.Name = "Kredietverlening" Then
  340.         Application.OnTime Now + TimeValue("00:00:02"), "Kredietvsheet2"
  341.     Else
  342.    
  343.     Call start
  344.    
  345.     End If
  346.  
  347. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement