LaerteB

Boa tarde, Edson Luiz Branco Ok estou enviando o link do arquivo, para uma melhor análise. Deixei sem valores nas planilhas. Espero que isso ajude. https://www.sendspace.com/file/pu8knj

Bom dia, Edson Luiz Branco Então eu refiz o que você citou acima, troquei o ; por , agora está dando outro erro na linha (depois da sequencia digitada da A4 até F4 normal, quando digito na célula B13 da esse erro) como se segue abaixo: ********** Erro em tempo de execução '9': Subscrito fora do intervalo A linha que aparece em amarelo depois de clicar em depurar: If IsNumeric(Valores(Lin, Col)) And IsNumeric(Target.Value) Then **********

Bom dia, DJunqueira Agradeço a sua resposta, mas tentei este método acima que citou (não funcionou), continuou com o erro que expus e agora quando redefino após este erro, aparece um novo com o código "1004" e salienta a linha que fiz a alteração que sugeriu, conforme a seguir: Set Interv = Range("A4:F4;B13:B14;F13:F39"). Estou tentando ver o que pode ter ocorrido este erro, mas como sou novato estou com dificuldades nesta análise, aguardarei mais sugestões. Obrigado pela resposta e a sua sugestão, é muito importante para mim, pois vou aprendendo cada vez mais, valeu.

Boa Noite, Edson Luiz Branco Agora a noite estudei os links e a programação e com as planilhas do meu projeto, tirei a programação anterior que eu tinha feito (que era muito extensa), pela a que você indicou (pequena e eficiente) com as alterações das células que precisava. Funcionou, mas a primeira vez da um erro como se segue: ******* Erro em tempo de execução '5': Argumento ou chamada de procedimento inválida ******** E quando clico para depurar informa este trecho em negrito abaixo: ********** Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Lin As Long, Col As Long If Not Intersect(Target, Interv) Is Nothing Then ********** Colocando em redefinir e volto a planilha funciona normal como eu queria, não sei o que pode ter acontecido para aparecer este erro. Não atrapalha esse erro (só incomoda), pois quando redefino ele funciona bem, mesmo salvando e fechando a planilha, mas gostaria de um luz para este erro para o meu aprendizado. Como tinha falado abaixo incluindo a programação com a minha alteração na minha planilha: ********** Option Explicit Public Valores As Variant, Interv As Range Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Set Interv = Range("A4:B4:C4:D4:E4:F4:B13:B14:F13:F14:F15:F16:F17:F18:F19:F20:F21:F22:F23:F24:F25:F26:F27:F28:F29:F30:F31:F32:F33:F34:F35:F36:F37:F38:F39") If Not Intersect(Target, Interv) Is Nothing Then Valores = Interv End If End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Lin As Long, Col As Long If Not Intersect(Target, Interv) Is Nothing Then If Target.Cells.Count > 1 Then MsgBox "Selecione e altere apenas uma célula de cada vez", vbExclamation, "Atenção" Exit Sub End If Lin = Target.Row - Interv.Cells(1, 1).Row + 1 Col = Target.Column - Interv.Cells(1, 1).Column + 1 If IsNumeric(Valores(Lin, Col)) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + Valores(Lin, Col) Application.EnableEvents = True End If End If End Sub ************ Agradeço muito e aguardo se puder me esclarecer deste erro que não sei o porque ocorre na primeira vez e nas demais não (pode ser que eu fiz algo errado). Obrigado.

Boa tarde, Edson Luiz Obrigado pela resposta, vou verificar estes links que informou, espero encontrar a solução. Quando tiver visto lhe informarei aqui se consegui arrumar e colocarei a programação correta para que outros possam tirar como exemplo ou modificá-la para o projeto que estiverem realizando. Se ainda alguém quiser informar uma maneira mais fácil de uma macro menos extensa, terá toda a minha atenção. valeu. ____________ Abri os links e estarei analisando-os (ainda sou iniciante preciso assimilar o conteúdo rsrsrs), vou ter que olhar mais no final da noite que terei mais tempo, e quando tiver uma resposta colocarei aqui, quero agradece-lo desde já. Valeu.

Boa tarde! Desculpem a minha dúvida, pois sou iniciante em VBA no excel, bem a minha dúvida é que estou tentando fazer com que várias células somem valores que forem colocadas dentro delas mesmas.. exemplo: na célula A4 digito 10 e digito novamente na A4 um outro valor como 5, ele somará automaticamente para 15. Quando volto nela que está com o valor de 15 digito mais 8 e a A4 ficará com 23.. e assim por diante. Até aí eu fiz no VBA tirando exemplos na internet como se segue abaixo: **** Public Sub Worksheet_Change(ByVal Target As Excel.Range) 'Este código acrescenta valores para a celula nao atendido Static valorcel As Integer Application.EnableEvents = False If Target.Address = "$A$4" Then valorcel = Target.Value + valorcel If Target.Value = 0 Then valorcel = 0 Target.Value = valorcel End If Application.EnableEvents = True End Sub ********* Só que eu quero que se faço em outras células diferentes o mesmo procedimento, algumas em linha outras em coluna... nas células B4 - C4 - D4 - E4 - F4 - B13 - B14 e da F13 até F39, mas só funciona na primeira vez e quando eu salvo e fecho, abrindo novamente esta planilha não volta a somar mais na própria célula. Abaixo como está esta programação que está dando este problema: ***** Public Sub Worksheet_Change(ByVal Target As Excel.Range) 'Este código acrescenta valores para a celula nao atendido Static valorcel As Integer Application.EnableEvents = False If Target.Address = "$A$4" Then valorcel = Target.Value + valorcel If Target.Value = 0 Then valorcel = 0 Target.Value = valorcel End If Application.EnableEvents = True 'Este código acrescenta valores para a celula nao chegou na unidade Static valorcel2 As Integer Application.EnableEvents = False If Target.Address = "$B$4" Then valorcel2 = Target.Value + valorcel2 If Target.Value = 0 Then valorcel2 = 0 Target.Value = valorcel2 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula nao localizado no fluxo postal Static valorcel3 As Integer Application.EnableEvents = False If Target.Address = "$C$4" Then valorcel3 = Target.Value + valorcel3 If Target.Value = 0 Then valorcel3 = 0 Target.Value = valorcel3 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula nao roubado Static valorcel4 As Integer Application.EnableEvents = False If Target.Address = "$D$4" Then valorcel4 = Target.Value + valorcel4 If Target.Value = 0 Then valorcel4 = 0 Target.Value = valorcel4 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula nao aguardando retirada Static valorcel5 As Integer Application.EnableEvents = False If Target.Address = "$E$4" Then valorcel5 = Target.Value + valorcel5 If Target.Value = 0 Then valorcel5 = 0 Target.Value = valorcel5 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula nao retirada em caixa postal Static valorcel6 As Integer Application.EnableEvents = False If Target.Address = "$F$4" Then valorcel6 = Target.Value + valorcel6 If Target.Value = 0 Then valorcel6 = 0 Target.Value = valorcel6 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula sexo masculino Static valorcel7 As Integer Application.EnableEvents = False If Target.Address = "$B$13" Then valorcel7 = Target.Value + valorcel7 If Target.Value = 0 Then valorcel7 = 0 Target.Value = valorcel7 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula sexo feminino Static valorcel8 As Integer Application.EnableEvents = False If Target.Address = "$B$14" Then valorcel8 = Target.Value + valorcel8 If Target.Value = 0 Then valorcel8 = 0 Target.Value = valorcel8 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado AC Static valorcel9 As Integer Application.EnableEvents = False If Target.Address = "$F$13" Then valorcel9 = Target.Value + valorcel9 If Target.Value = 0 Then valorcel9 = 0 Target.Value = valorcel9 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado AL Static valorcel10 As Integer Application.EnableEvents = False If Target.Address = "$F$14" Then valorcel10 = Target.Value + valorcel10 If Target.Value = 0 Then valorcel10 = 0 Target.Value = valorcel10 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado AP Static valorcel11 As Integer Application.EnableEvents = False If Target.Address = "$F$15" Then valorcel11 = Target.Value + valorcel11 If Target.Value = 0 Then valorcel11 = 0 Target.Value = valorcel11 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado AM Static valorcel12 As Integer Application.EnableEvents = False If Target.Address = "$F$16" Then valorcel12 = Target.Value + valorcel12 If Target.Value = 0 Then valorcel12 = 0 Target.Value = valorcel12 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado BA Static valorcel13 As Integer Application.EnableEvents = False If Target.Address = "$F$17" Then valorcel13 = Target.Value + valorcel13 If Target.Value = 0 Then valorcel13 = 0 Target.Value = valorcel13 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado CE Static valorcel14 As Integer Application.EnableEvents = False If Target.Address = "$F$18" Then valorcel14 = Target.Value + valorcel14 If Target.Value = 0 Then valorcel14 = 0 Target.Value = valorcel14 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado DF Static valorcel15 As Integer Application.EnableEvents = False If Target.Address = "$F$19" Then valorcel15 = Target.Value + valorcel15 If Target.Value = 0 Then valorcel15 = 0 Target.Value = valorcel15 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado ES Static valorcel16 As Integer Application.EnableEvents = False If Target.Address = "$F$20" Then valorcel16 = Target.Value + valorcel16 If Target.Value = 0 Then valorcel16 = 0 Target.Value = valorcel16 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado GO Static valorcel17 As Integer Application.EnableEvents = False If Target.Address = "$F$21" Then valorcel17 = Target.Value + valorcel17 If Target.Value = 0 Then valorcel17 = 0 Target.Value = valorcel17 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado MA Static valorcel18 As Integer Application.EnableEvents = False If Target.Address = "$F$22" Then valorcel18 = Target.Value + valorcel18 If Target.Value = 0 Then valorcel18 = 0 Target.Value = valorcel18 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado MT Static valorcel19 As Integer Application.EnableEvents = False If Target.Address = "$F$23" Then valorcel19 = Target.Value + valorcel19 If Target.Value = 0 Then valorcel19 = 0 Target.Value = valorcel19 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado MS Static valorcel20 As Integer Application.EnableEvents = False If Target.Address = "$F$24" Then valorcel20 = Target.Value + valorcel20 If Target.Value = 0 Then valorcel20 = 0 Target.Value = valorcel20 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado MG Static valorcel21 As Integer Application.EnableEvents = False If Target.Address = "$F$25" Then valorcel21 = Target.Value + valorcel21 If Target.Value = 0 Then valorcel21 = 0 Target.Value = valorcel21 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado PA Static valorcel22 As Integer Application.EnableEvents = False If Target.Address = "$F$26" Then valorcel22 = Target.Value + valorcel22 If Target.Value = 0 Then valorcel22 = 0 Target.Value = valorcel22 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado PB Static valorcel23 As Integer Application.EnableEvents = False If Target.Address = "$F$27" Then valorcel23 = Target.Value + valorcel23 If Target.Value = 0 Then valorcel23 = 0 Target.Value = valorcel23 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado PR Static valorcel24 As Integer Application.EnableEvents = False If Target.Address = "$F$28" Then valorcel24 = Target.Value + valorcel24 If Target.Value = 0 Then valorcel24 = 0 Target.Value = valorcel24 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado PE Static valorcel25 As Integer Application.EnableEvents = False If Target.Address = "$F$29" Then valorcel25 = Target.Value + valorcel25 If Target.Value = 0 Then valorcel25 = 0 Target.Value = valorcel25 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado PI Static valorcel26 As Integer Application.EnableEvents = False If Target.Address = "$F$30" Then valorcel26 = Target.Value + valorcel26 If Target.Value = 0 Then valorcel26 = 0 Target.Value = valorcel26 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado RJ Static valorcel27 As Integer Application.EnableEvents = False If Target.Address = "$F$31" Then valorcel27 = Target.Value + valorcel27 If Target.Value = 0 Then valorcel27 = 0 Target.Value = valorcel27 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado RN Static valorcel28 As Integer Application.EnableEvents = False If Target.Address = "$F$32" Then valorcel28 = Target.Value + valorcel28 If Target.Value = 0 Then valorcel28 = 0 Target.Value = valorcel28 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado RS Static valorcel29 As Integer Application.EnableEvents = False If Target.Address = "$F$33" Then valorcel29 = Target.Value + valorcel29 If Target.Value = 0 Then valorcel29 = 0 Target.Value = valorcel29 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado RO Static valorcel30 As Integer Application.EnableEvents = False If Target.Address = "$F$34" Then valorcel30 = Target.Value + valorcel30 If Target.Value = 0 Then valorcel30 = 0 Target.Value = valorcel30 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado RR Static valorcel31 As Integer Application.EnableEvents = False If Target.Address = "$F$35" Then valorcel31 = Target.Value + valorcel31 If Target.Value = 0 Then valorcel31 = 0 Target.Value = valorcel31 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado SC Static valorcel32 As Integer Application.EnableEvents = False If Target.Address = "$F$36" Then valorcel32 = Target.Value + valorcel32 If Target.Value = 0 Then valorcel32 = 0 Target.Value = valorcel32 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado SP Static valorcel33 As Integer Application.EnableEvents = False If Target.Address = "$F$37" Then valorcel33 = Target.Value + valorcel33 If Target.Value = 0 Then valorcel33 = 0 Target.Value = valorcel33 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado SE Static valorcel34 As Integer Application.EnableEvents = False If Target.Address = "$F$38" Then valorcel34 = Target.Value + valorcel34 If Target.Value = 0 Then valorcel34 = 0 Target.Value = valorcel34 End If Application.EnableEvents = True 'Este código acrescenta valores para a celula estado TO Static valorcel35 As Integer Application.EnableEvents = False If Target.Address = "$F$39" Then valorcel35 = Target.Value + valorcel35 If Target.Value = 0 Then valorcel35 = 0 Target.Value = valorcel35 End If Application.EnableEvents = True End Sub Gostaria muito de uma luz para resolver este problema, agradeço muito desde já as respostas que virão e espero que ajude outras pessoas com o mesmo problema. Obrigado