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;
Pergunta
rudinei soares
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
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.