API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
94
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 11.30 KB | None | 0 0
raw download clone embed print report
  1. Sub ativarnumero2()
  2.   Application.ScreenUpdating = False
  3. '
  4. ' ativarnumero2 Macro
  5. '
  6.  
  7.     Sheets("Colar e gerar Macro").Select
  8.     Range("D1").Select
  9.         ActiveSheet.Range("$A:$M").AutoFilter field:=4, Criteria1:= _
  10.          "=CONSUMO*" & RespostaDaMensagem & "*", Operator:=xlAnd
  11.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  12.         "ONIZ DIST - CCH"
  13.     If AutoFilter <> "" Then
  14.     Rows("2:2").Select
  15.     Range(Selection, Selection.End(xlDown)).Select
  16.     Selection.Copy
  17.     Sheets("CCH ").Select
  18.     Range("A533").Select
  19.     ActiveSheet.Paste
  20.     Sheets("Colar e gerar Macro").Select
  21.     Application.CutCopyMode = False
  22.     Selection.Delete Shift:=xlUp
  23.     Else
  24.     Selection.AutoFilter
  25.     End If
  26.     Selection.AutoFilter
  27.     Range("E1").Select
  28.     ActiveSheet.Range("$A:$M").AutoFilter field:=5, Criteria1:= _
  29.          "=CD SUL*" & RespostaDaMensagem & "*", Operator:=xlAnd
  30.          
  31.     Range("B1").Select
  32.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  33.         "=ONIZ DIST - CCH"
  34.     If AutoFilter = "" Then
  35.     Rows("2:2").Select
  36.     Range(Selection, Selection.End(xlDown)).Select
  37.     Selection.Copy
  38.     Sheets("CCH ").Select
  39.     Range("A282").Select
  40.     ActiveSheet.Paste
  41.     Sheets("Colar e gerar Macro").Select
  42.     Application.CutCopyMode = False
  43.     Selection.Delete Shift:=xlUp
  44.     End If
  45.     Selection.AutoFilter
  46.     Range("B1").Select
  47.     Selection.AutoFilter
  48.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  49.         "ONIZ DIST - CCH"
  50.     ActiveWindow.SmallScroll Down:=-12
  51.     If AutoFilter = "" Then
  52.     Rows("2:2").Select
  53.     Range(Selection, Selection.End(xlDown)).Select
  54.     ActiveWindow.SmallScroll Down:=6
  55.     Selection.Copy
  56.     Sheets("CCH ").Select
  57.     Range("A3").Select
  58.     ActiveSheet.Paste
  59.     Sheets("Colar e gerar Macro").Select
  60.     Application.CutCopyMode = False
  61.     Selection.Delete Shift:=xlUp
  62.     ActiveWindow.SmallScroll Down:=-18
  63.     End If
  64.     Selection.AutoFilter
  65.     ActiveSheet.Range("$A:$M").AutoFilter field:=4, Criteria1:= _
  66.          "=CONSUMO*" & RespostaDaMensagem & "*", Operator:=xlAnd
  67.     Range("B1").Select
  68.     Selection.AutoFilter
  69.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  70.         "ONIZ DIST - PFO"
  71.     ActiveWindow.SmallScroll Down:=-33
  72.        
  73.          
  74.     Rows("2:2").Select
  75.     Range(Selection, Selection.End(xlDown)).Select
  76.     ActiveWindow.SmallScroll Down:=-12
  77.     Selection.Copy
  78.     Sheets("PF").Select
  79.     Range("A533").Select
  80.     ActiveSheet.Paste
  81.     Sheets("Colar e gerar Macro").Select
  82.     Application.CutCopyMode = False
  83.     Selection.Delete Shift:=xlUp
  84.     Selection.AutoFilter
  85.     Range("B1").Select
  86.     Selection.AutoFilter
  87.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  88.         "ONIZ DIST - PFO"
  89.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=5, Criteria1:= _
  90.         "CD SUL LOGISTICA LTDA - PFO"
  91.     ActiveWindow.SmallScroll Down:=-18
  92.     Rows("2:2").Select
  93.     Range(Selection, Selection.End(xlDown)).Select
  94.     ActiveWindow.SmallScroll Down:=-6
  95.     Selection.Copy
  96.     Sheets("PF").Select
  97.     Range("A282").Select
  98.     ActiveSheet.Paste
  99.     Sheets("Colar e gerar Macro").Select
  100.     Application.CutCopyMode = False
  101.     Selection.Delete Shift:=xlUp
  102.     Selection.AutoFilter
  103.     Range("A1").Select
  104.     Selection.AutoFilter
  105.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  106.         "ONIZ DIST - PFO"
  107.     ActiveWindow.SmallScroll Down:=-15
  108.     Rows("2:2").Select
  109.     Range(Selection, Selection.End(xlDown)).Select
  110.     Selection.Copy
  111.     Sheets("PF").Select
  112.     Range("A3").Select
  113.     ActiveSheet.Paste
  114.     Sheets("Colar e gerar Macro").Select
  115.     Application.CutCopyMode = False
  116.     Selection.Delete Shift:=xlUp
  117.     Selection.AutoFilter
  118.     Range("A1").Select
  119.     Selection.AutoFilter
  120.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  121.         "ONIZ DIST - SJP"
  122.         ActiveSheet.Range("$A:$M").AutoFilter field:=4, Criteria1:= _
  123.          "=CONSUMO*" & RespostaDaMensagem & "*", Operator:=xlAnd
  124.     Rows("2:2").Select
  125.     Range(Selection, Selection.End(xlDown)).Select
  126.     Selection.Copy
  127.     Sheets("SJP").Select
  128.     Range("A533").Select
  129.     ActiveSheet.Paste
  130.     Sheets("Colar e gerar Macro").Select
  131.     Application.CutCopyMode = False
  132.     Selection.Delete Shift:=xlUp
  133.     Selection.AutoFilter
  134.     Range("A1").Select
  135.     Selection.AutoFilter
  136.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  137.         "ONIZ DIST - SJP"
  138.     ActiveWindow.SmallScroll Down:=-15
  139.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=5, Criteria1:= _
  140.         "CD SUL LOGISTICA LTDA - SJP"
  141.     ActiveWindow.SmallScroll Down:=-15
  142.     Rows("2:2").Select
  143.     Range(Selection, Selection.End(xlDown)).Select
  144.     ActiveWindow.SmallScroll Down:=3
  145.     Selection.Copy
  146.     Sheets("SJP").Select
  147.     Range("A282").Select
  148.     ActiveSheet.Paste
  149.     Sheets("Colar e gerar Macro").Select
  150.     Application.CutCopyMode = False
  151.     Selection.Delete Shift:=xlUp
  152.     Selection.AutoFilter
  153.     ActiveWindow.SmallScroll Down:=-87
  154.     Range("A1").Select
  155.     Selection.AutoFilter
  156.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  157.         "ONIZ DIST - SJP"
  158.     ActiveWindow.SmallScroll Down:=-18
  159.     Rows("2:2").Select
  160.     Range(Selection, Selection.End(xlDown)).Select
  161.     Selection.Copy
  162.     Sheets("SJP").Select
  163.     Range("A3").Select
  164.     ActiveSheet.Paste
  165.     Sheets("Colar e gerar Macro").Select
  166.     Application.CutCopyMode = False
  167.     Selection.Delete Shift:=xlUp
  168.     Selection.AutoFilter
  169.     Range("A1").Select
  170.     Selection.AutoFilter
  171.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  172.         "ONIZ DIST - SMA"
  173.         ActiveSheet.Range("$A:$M").AutoFilter field:=4, Criteria1:= _
  174.          "=CONSUMO*" & RespostaDaMensagem & "*", Operator:=xlAnd
  175.     Rows("2:2").Select
  176.     Range(Selection, Selection.End(xlDown)).Select
  177.     Selection.Copy
  178.     Sheets("SMA").Select
  179.     Range("A533").Select
  180.     ActiveSheet.Paste
  181.     Sheets("Colar e gerar Macro").Select
  182.     Application.CutCopyMode = False
  183.     Selection.Delete Shift:=xlUp
  184.     Selection.AutoFilter
  185.     Range("A1").Select
  186.     Selection.AutoFilter
  187.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  188.         "ONIZ DIST - SMA"
  189.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=5, Criteria1:= _
  190.         "CD SUL LOGISTICA LTDA - SMA"
  191.     ActiveWindow.SmallScroll Down:=-9
  192.     Rows("2:2").Select
  193.     Range(Selection, Selection.End(xlDown)).Select
  194.     ActiveWindow.SmallScroll Down:=-9
  195.     Selection.Copy
  196.     Sheets("SMA").Select
  197.     Range("A282").Select
  198.     ActiveSheet.Paste
  199.     Sheets("Colar e gerar Macro").Select
  200.     Application.CutCopyMode = False
  201.     Selection.Delete Shift:=xlUp
  202.     Selection.AutoFilter
  203.     Range("A1").Select
  204.     Selection.AutoFilter
  205.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  206.         "ONIZ DIST - SMA"
  207.     ActiveWindow.SmallScroll Down:=-15
  208.     Rows("2:2").Select
  209.     Range(Selection, Selection.End(xlDown)).Select
  210.     ActiveWindow.SmallScroll Down:=6
  211.     Selection.Copy
  212.     Sheets("SMA").Select
  213.     Range("A3").Select
  214.     ActiveSheet.Paste
  215.     Sheets("Colar e gerar Macro").Select
  216.     Application.CutCopyMode = False
  217.     Selection.Delete Shift:=xlUp
  218.     Selection.AutoFilter
  219.     Range("A1").Select
  220.     Selection.AutoFilter
  221.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  222.         "ONIZ DIST - MAR"
  223.             ActiveSheet.Range("$A:$M").AutoFilter field:=4, Criteria1:= _
  224.          "=CONSUMO*" & RespostaDaMensagem & "*", Operator:=xlAnd
  225.     Rows("2:2").Select
  226.     Range(Selection, Selection.End(xlDown)).Select
  227.     Selection.Copy
  228.     Sheets("MAR").Select
  229.     Range("A533").Select
  230.     ActiveSheet.Paste
  231.     Sheets("Colar e gerar Macro").Select
  232.     Application.CutCopyMode = False
  233.     Selection.Delete Shift:=xlUp
  234.     Selection.AutoFilter
  235.     Range("A1").Select
  236.     Selection.AutoFilter
  237.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  238.         "ONIZ DIST - MAR"
  239.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=5, Criteria1:= _
  240.         "CD SUL LOGISTICA LTDA - MAR"
  241.     Rows("2:2").Select
  242.     Range(Selection, Selection.End(xlDown)).Select
  243.     ActiveWindow.SmallScroll Down:=-9
  244.     Selection.Copy
  245.     Sheets("MAR").Select
  246.     ActiveWindow.SmallScroll Down:=-39
  247.     Range("A282").Select
  248.     ActiveSheet.Paste
  249.     Sheets("Colar e gerar Macro").Select
  250.     Application.CutCopyMode = False
  251.     Selection.Delete Shift:=xlUp
  252.     Selection.AutoFilter
  253.     Range("A1").Select
  254.     Selection.AutoFilter
  255.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  256.         "ONIZ DIST - MAR"
  257.     ActiveWindow.SmallScroll Down:=-12
  258.     Rows("2:2").Select
  259.     Range(Selection, Selection.End(xlDown)).Select
  260.     ActiveWindow.SmallScroll Down:=3
  261.     Selection.Copy
  262.     Sheets("MAR").Select
  263.     Range("A3").Select
  264.     ActiveSheet.Paste
  265.     Sheets("Colar e gerar Macro").Select
  266.     Application.CutCopyMode = False
  267.     Selection.Delete Shift:=xlUp
  268.     Selection.AutoFilter
  269.     Range("A1").Select
  270.     Selection.AutoFilter
  271.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  272.         "ONIZ DIST - MDC"
  273.             ActiveSheet.Range("$A:$M").AutoFilter field:=4, Criteria1:= _
  274.          "=CONSUMO*" & RespostaDaMensagem & "*", Operator:=xlAnd
  275.     Rows("2:2").Select
  276.     Range(Selection, Selection.End(xlDown)).Select
  277.     Selection.Copy
  278.     Sheets("MDC").Select
  279.     Range("A533").Select
  280.     ActiveSheet.Paste
  281.     Sheets("Colar e gerar Macro").Select
  282.     Application.CutCopyMode = False
  283.     Selection.Delete Shift:=xlUp
  284.     ActiveWindow.SmallScroll Down:=-18
  285.     Selection.AutoFilter
  286.     Range("A1").Select
  287.     Selection.AutoFilter
  288.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  289.         "ONIZ DIST - MDC"
  290.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=5, Criteria1:= _
  291.         "CD SUL LOGISTICA LTDA - MDC"
  292.     ActiveWindow.SmallScroll Down:=-15
  293.     Rows("2:2").Select
  294.     Range(Selection, Selection.End(xlDown)).Select
  295.     ActiveWindow.SmallScroll Down:=3
  296.     Selection.Copy
  297.     Sheets("MDC").Select
  298.     Range("A282").Select
  299.     ActiveSheet.Paste
  300.     Sheets("Colar e gerar Macro").Select
  301.     Application.CutCopyMode = False
  302.     Selection.Delete Shift:=xlUp
  303.     ActiveWindow.SmallScroll Down:=-42
  304.     Selection.AutoFilter
  305.     Range("A1").Select
  306.     Selection.AutoFilter
  307.     ActiveSheet.Range("$A$1:$M$1000").AutoFilter field:=2, Criteria1:= _
  308.         "ONIZ DIST - MDC"
  309.     ActiveWindow.SmallScroll Down:=-9
  310.     Rows("2:2").Select
  311.     Range(Selection, Selection.End(xlDown)).Select
  312.     ActiveWindow.SmallScroll Down:=3
  313.     Selection.Copy
  314.     Sheets("MDC").Select
  315.     Range("A3").Select
  316.     ActiveSheet.Paste
  317.     Range("A3").Select
  318.     Sheets("Colar e gerar Macro").Select
  319.     Application.CutCopyMode = False
  320.     Selection.Delete Shift:=xlUp
  321.     ActiveWindow.SmallScroll Down:=-30
  322.     Selection.AutoFilter
  323.     Range("A1:L1").Select
  324.     Range("L1").Activate
  325.     Selection.ClearContents
  326.     Sheets("Colar e gerar Macro").Select
  327.     ActiveWindow.SelectedSheets.Visible = False
  328.     Sheets("Botões").Select
  329.     Range("A1").Select
  330.     MsgBox "Processo Concluído...", vbOKOnly, "Concluído"
  331.     Application.ScreenUpdating = True
  332.    
  333. 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!