API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 13th, 2018
99
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 10.20 KB | None | 0 0
raw download clone embed print report
  1. 'LA SINTASSI DELLA STRINGA DA SPLITTARE E' &Colonna1&Colonna2&Colonna3 ecc...
  2. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  3.   On Error GoTo ErrorHandler
  4.       Dim lastAction As String
  5.       Dim cella As String
  6.       Dim ColumnArray() As String
  7.       Dim row_number, i As Integer
  8.       Dim ws As Worksheet
  9.       Dim tbl As ListObject
  10.       Dim saldoBonus As Integer
  11.      
  12.     #If Mac Then
  13.         MsgBox ("Scarica la versione per mac perfavore")
  14.     #Else
  15.         If Application.CommandBars("Standard").FindControl(ID:=128, recursive:=True).Enabled = True Then
  16.             If (ActiveCell.Column = 5) Then
  17.                 lastAction = Application.CommandBars("Standard").FindControl(ID:=128, recursive:=True).List(1)
  18.                 If lastAction = Replace(Application.CommandBars("Standard").FindControl(ID:=6002).Caption, "&", "") Then
  19.                     'ATTENZIONE! NOME FOGLIO "Profit"
  20.                   Worksheets("LISTA SCOMMESSE").Activate
  21.                     row_number = ActiveCell.Row
  22.                     cella = ActiveCell.Value
  23.                     ColumnArray = Split(cella, "&")
  24.                     Set ws = ActiveSheet 'aggiungo una riga in caso di punta punta'
  25.                   Set tbl = ws.ListObjects("LISTABETS")
  26.                     If (Left(cella, 1) = "&") Then 'Il primo carattere deve sempre essere una & commerciale per evitare falsi positiv
  27.                        If (ColumnArray(1) = "M") Then 'Multipla'
  28.                            If (ColumnArray(4) = "BR") Then
  29.                                 saldoBonus = 1
  30.                             Else
  31.                                 saldoBonus = 0
  32.                             End If
  33.                             tbl.ListRows.Add
  34.                             tbl.ListRows.Add
  35.                             If (ColumnArray(3) = 4) Then
  36.                                 tbl.ListRows.Add
  37.                             End If
  38.                             If (ColumnArray(3) = 5) Then
  39.                                 tbl.ListRows.Add
  40.                                 tbl.ListRows.Add
  41.                             End If
  42.                             For i = 0 To ColumnArray(3) - 1
  43.                                 cella = ColumnArray(23)
  44.                                 Cells(row_number + i, 5).Value = cella 'copio la data
  45.                                Cells(row_number + i, 7).Value = "Scommesse"
  46.                                 Cells(row_number + i, 12).Value = "P-B"
  47.                                
  48.                                 cella = ColumnArray(5 + 6 * i)
  49.                                 Cells(row_number + i, 21).Value = cella  'data evento'
  50.                                
  51.                                 cella = ColumnArray(6 + 6 * i)
  52.                                 Cells(row_number + i, 17).Value = cella 'descrizione evento'
  53.                                
  54.                                 cella = ColumnArray(7 + 6 * i)
  55.                                 Cells(row_number + i, 18).Value = cella 'Puntata A'
  56.                                
  57.                                 cella = ColumnArray(8 + 6 * i)
  58.                                 Cells(row_number + i, 22).Value = cella 'quota 1'
  59.                            
  60.                                 cella = ColumnArray(9 + 6 * i)
  61.                                 Cells(row_number + i, 25).Value = cella 'quota 2'
  62.                                
  63.                                 cella = ColumnArray(10 + 6 * i)
  64.                                 Cells(row_number + i, 14).Value = cella 'scrivo Commisione'
  65.                                
  66.                                 Cells(row_number + i, 19).Value = "SI"
  67.                             Next i
  68.                            
  69.                             Cells(row_number, 20).Value = 1
  70.                             Cells(row_number + 1, 20).Value = 2
  71.                             Cells(row_number + 2, 20).Value = 3
  72.                             If (ColumnArray(3) >= 4) Then
  73.                                 Cells(row_number + 3, 20).Value = 4
  74.                                 If (ColumnArray(3) = 5) Then
  75.                                     Cells(row_number + 4, 20).Value = 5
  76.                                 End If
  77.                             End If
  78.                             Cells(row_number + ColumnArray(3) - 1, 26 + saldoBonus).Value = ColumnArray(2)
  79.                         Else
  80.                            If (ColumnArray(4) = "P-P") Then
  81.                                tbl.ListRows.Add
  82.                            End If
  83.                            If (ColumnArray(15) = "BR") Then
  84.                                saldoBonus = 1
  85.                            Else
  86.                                saldoBonus = 0
  87.                            End If
  88.                            If (ColumnArray(4) = "P-P") Then
  89.                          
  90.                                cella = ColumnArray(1)
  91.                                Cells(row_number, 5).Value = cella 'copio la data
  92.                              Cells(row_number + 1, 5).Value = cella 'copio la data
  93.                            
  94.                                cella = ColumnArray(2)
  95.                                Cells(row_number, 7).Value = cella 'Scommesse'
  96.                              Cells(row_number + 1, 7).Value = cella 'Scommesse'
  97.                            
  98.                                cella = ColumnArray(3)
  99.                                Cells(row_number, 11).Value = cella 'Book1'
  100.                        
  101.                                cella = ColumnArray(4)
  102.                                Cells(row_number, 12).Value = cella 'scrivo P-P'
  103.                              Cells(row_number + 1, 12).Value = cella 'scrivo P-P'
  104.                            
  105.                                cella = ColumnArray(5)
  106.                                Cells(row_number, 17).Value = cella 'descrizione evento'
  107.                              Cells(row_number + 1, 17).Value = cella 'descrizione evento'
  108.                            
  109.                                cella = ColumnArray(6)
  110.                                Cells(row_number, 18).Value = cella 'Puntata A'
  111.                            
  112.                              
  113.                                cella = ColumnArray(7)
  114.                                Cells(row_number + 1, 11).Value = cella 'book 2'
  115.                            
  116.                                cella = ColumnArray(8)
  117.                                Cells(row_number, 19).Value = cella 'multipla'
  118.                              Cells(row_number + 1, 19).Value = cella 'multipla'
  119.                            
  120.                                cella = ColumnArray(9)
  121.                                Cells(row_number, 21).Value = cella 'data evento'
  122.                              Cells(row_number + 1, 21).Value = cella 'data evento'
  123.                            
  124.                                cella = ColumnArray(10)
  125.                                Cells(row_number, 22).Value = cella 'quota 1'
  126.                              
  127.                                cella = ColumnArray(11)
  128.                                Cells(row_number + 1, 22).Value = cella 'quota 2'
  129.                            
  130.                                cella = ColumnArray(12)
  131.                                Cells(row_number, 26 + saldoBonus).Value = cella  'Importo punta 1'
  132.                            
  133.                                cella = ColumnArray(13)
  134.                                Cells(row_number + 1, 26).Value = cella 'Importo punta 2'
  135.                            
  136.                                cella = ColumnArray(14)
  137.                                Cells(row_number + 1, 18).Value = cella 'Puntata B'
  138.                            
  139.                            Else
  140.                                cella = ColumnArray(1)
  141.                                Cells(row_number, 5).Value = cella 'copio la data
  142.                            
  143.                                cella = ColumnArray(2)
  144.                                Cells(row_number, 7).Value = cella 'Scommesse'
  145.                            
  146.                                cella = ColumnArray(3)
  147.                                Cells(row_number, 11).Value = cella 'Book1'
  148.                            
  149.                                cella = ColumnArray(4)
  150.                                Cells(row_number, 12).Value = cella 'scrivo P-B'
  151.                            
  152.                                cella = ColumnArray(7)
  153.                                Cells(row_number, 13).Value = cella 'scrivo Exchange'
  154.                                                  
  155.                                cella = ColumnArray(16)
  156.                                Cells(row_number, 14).Value = cella 'scrivo Commisione'
  157.                            
  158.                                cella = ColumnArray(5)
  159.                                Cells(row_number, 17).Value = cella 'descrizione evento'
  160.                            
  161.                                cella = ColumnArray(6)
  162.                                Cells(row_number, 18).Value = cella 'Puntata A'
  163.                            
  164.                                cella = ColumnArray(8)
  165.                                Cells(row_number, 19).Value = cella 'multipla'
  166.                            
  167.                                cella = ColumnArray(9)
  168.                                Cells(row_number, 21).Value = cella 'data evento'
  169.                            
  170.                                cella = ColumnArray(10)
  171.                                Cells(row_number, 22).Value = cella 'quota 1'
  172.                            
  173.                                cella = ColumnArray(11)
  174.                                Cells(row_number, 25).Value = cella 'quota 2'
  175.                            
  176.                                cella = ColumnArray(12)
  177.                                Cells(row_number, 26 + saldoBonus).Value = cella  'Importo punta 1'
  178.                          
  179.                                cella = ColumnArray(13)
  180.                                Cells(row_number, 28).Value = cella 'Importo punta 2'
  181.                          End If
  182.                         End If
  183.                     End If
  184.          
  185.                 End If
  186.             End If
  187.         End If
  188.     #End If
  189.  
  190.     Exit Sub
  191. ErrorHandler:  ' Error-handling routine.
  192.    
  193. 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!