SHARE
TWEET

Stack overflow ftw

a guest Aug 23rd, 2019 101 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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top