Visual Basic Código VBA para APPSCRIPT do Google Sheets

[Guilherme Stoduto]

Bom dia Pessoal!

 

Necessito da ajuda de vocês para transcrever um código VBA para a linguagem do Apps Script do Google Sheets.

 

Preciso criar uma "banco de dados" usando o google sheets que é o único ao meu ver que tem a possibilidade de executar macros de forma online.

 

Abaixo o código VBA:

Sub InserirDados()
    
    Application.ScreenUpdating = False
    
    Dim CodMaterial             As String
    Dim Descricao               As String
    Dim QuantidadeSolicitada    As Long
    Dim Chapa                   As String
    Dim Supervisor              As String
    Dim CodPessoa               As Long
    Dim Segmento                As String
    Dim LocalidadeDestino       As String
    Dim CentroCusto             As String
    Dim Retirada                As String
    Dim Data                    As String
    Dim DC                      As String
    Dim UltimaLinha             As Long
    Dim I                       As Integer
    Dim Linha                   As Long
    Dim Coluna                  As Integer
    Dim LinhaRT                 As Long
    Dim Solicitacao             As Double
    Dim DataNova                As String
    
    Coluna = 1
    Linha = 6
    
    Solicitacao = WorksheetFunction.Max(Sheets("RELATÓRIO").Range("N:N")) + 1
    
    LinhaRT = Sheets("RELATÓRIO").Range("A" & Rows.Count).End(xlUp).Row + 1
        
    UltimaLinha = Sheets("REQUISIÇÃO").Range("A" & Rows.Count).End(xlUp).Row
            
    For I = 6 To UltimaLinha
        Chapa = Sheets("REQUISIÇÃO").Range("A2")
        Supervisor = Sheets("REQUISIÇÃO").Range("B2")
        CodPessoa = Sheets("REQUISIÇÃO").Range("D2")
        LocalidadeDestino = Sheets("REQUISIÇÃO").Range("A4")
        Segmento = Sheets("REQUISIÇÃO").Range("E2")
        CentroCusto = Sheets("REQUISIÇÃO").Range("B4")
        Retirada = Sheets("REQUISIÇÃO").Range("D4")
        Data = Sheets("REQUISIÇÃO").Range("E4")
                        
        DC = Sheets("REQUISIÇÃO").Range("A" & I)
        CodMaterial = Sheets("REQUISIÇÃO").Range("B" & I)
        Descricao = Sheets("REQUISIÇÃO").Range("C" & I)
        QuantidadeSolicitada = Sheets("REQUISIÇÃO").Range("E" & I)
        
        DataNova = Replace(Data, "/", "")
    
        Sheets("RELATÓRIO").Activate
        Cells(LinhaRT, 2) = CodMaterial
        Cells(LinhaRT, 3) = Descricao
        Cells(LinhaRT, 4) = QuantidadeSolicitada
        Cells(LinhaRT, 5) = Chapa
        Cells(LinhaRT, 6) = Supervisor
        Cells(LinhaRT, 7) = CodPessoa
        Cells(LinhaRT, 8) = Segmento
        Cells(LinhaRT, 9) = LocalidadeDestino
        Cells(LinhaRT, 10) = CentroCusto
        Cells(LinhaRT, 11) = Retirada
        Cells(LinhaRT, 12) = Data
        Cells(LinhaRT, 13) = DC
        Cells(LinhaRT, 14) = Solicitacao
        Cells(LinhaRT, 1) = "R" & Solicitacao & DataNova
        LinhaRT = LinhaRT + 1
    Next I
    
        Sheets("REQUISIÇÃO").Activate
        Range("A2,B2:C2,D2,E2,E4,D4,B4:C4,A4").Select
        Selection.ClearContents
        Range("A6:E6").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.ClearContents
    
        MsgBox "CÓDIGO RESERVA: " & "R" & Solicitacao & DataNova
    
    Application.ScreenUpdating = True
End Sub