Ir para conteúdo
Fórum Script Brasil
  • 0

Código VBA para JavaScript no Google Drive


rudinei soares

Pergunta

Bom dia senhores, parabéns pela ajuda em vários tópicos discutidos.

Aproveitando a oportunidade, gostaria de pedir ajuda para uma problema que surgiu quando eu tentei disponibilizar minha planilha excel no Google Drive, sendo.

Uma planilha com lista de dados e uma outra com Macros VBA. A Planilha com macro é possível selecionar uma ou mais palavras de uma coluna determinada, ex:

Planilha de dados: A1 - Cidades, A2 - São Paulo, A3 - Santos, etc;

População: B1 - 256666, B2 - 1884948, B3 - 65498, etc;

Cep: C1 - 13045-200, C3 - 15052-002, C3 - 22052-100, etc;

Planilha Listagem Completa:

Cidades: A1= São Paulo, etc;

Cep: C1= 15052-002, 22052-100;

Eu usei o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)

Worksheets("Listagem Completa").Unprotect "1234"

Dim rngDV As Range

Dim oldVal As String

Dim newVal As String

Dim lUsed As Long

If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next

Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)

On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then

'do nothing

Else

Application.EnableEvents = False

newVal = Target.Value

Application.Undo

oldVal = Target.Value

Target.Value = newVal

If Target.Column = 25 _

Or Target.Column = 28 _

Or Target.Column = 30 _

Or Target.Column = 31 _

Or Target.Column = 32 _

Or Target.Column = 33 _

Or Target.Column = 34 Then

If oldVal = "" Then

'do nothing

Else

If newVal = "" Then

'do nothing

Else

lUsed = InStr(1, oldVal, newVal)

If lUsed > 0 Then

If Right(oldVal, Len(newVal)) = newVal Then

Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 2)

Else

Target.Value = Replace(oldVal, newVal & ", ", "")

End If

Else

Target.Value = oldVal _

& ", " & newVal

End If

End If

End If

End If

End If

exitHandler:

Application.EnableEvents = True

Worksheets("Listagem Completa").Protect "1234"

End Sub

Não sou programador, fiz isso com a ajuda de vocês, nos fóruns! Como poderiam me ajudar a transformar este código em javascript para o Google Drive?

abraço e sucesso a todos!

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...