API tools faq
paste
Advertisement
Guest User

shit fuck

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