Visual Basic copiar e colar atividade na proxima celula excel vba

[eduardobbrasilia]

nao consigo fazer funcionar: preciso que a mesma atividade funcione na em todas as células da coluna:

 

 Private Sub Worksheet_Change(ByVal Target As Range)
    If IsNumeric([B5]) And [B5] <> "" Then
       Application.EnableEvents = False
        [F5] = [F5] + [B5]
        [B5] = ""
         Application.EnableEvents = True
         
  
    ElseIf IsNumeric([C5]) And [C5] <> "" Then
       Application.EnableEvents = False
        [J5] = [J5] + [C5]
        [C5] = ""
        Application.EnableEvents = True
   
        
        End If
        End Su

--------------------------------------------------------------------------------

Sub Colunas1()
   'Copia fórmula
    Range("b5").Select
    Selection.Copy
    
'Cola fórmulas
    Range("b6:b" & var).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

End Sub

[Patropi]

Boa tarde, @eduardobbrasilia

 

O código abaixo faz o que você deseja:

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Intersect(Range("B5:C367"), Target) Is Nothing Then Exit Sub
 If Target.Value = "" Then Exit Sub
 On Error Resume Next
 Cells(Target.Row, Target.Column + 4 - 3 * (Target.Column = 3) + 0) = _
 Cells(Target.Row, Target.Column + 4 - 3 * (Target.Column = 3) + 0) + Target.Value
 Target.Value = ""
End Sub

 

Se foi útil, clique em Curtir.

 

Se a resposta solucionou a dúvida, marque como Solução.

 

[]s

[eduardobbrasilia]

ainda não funcionou... vou enviar a planilha...

segue a planilha que estou fazendo... tipo na primeira linha da celula funciona, nas seguintes não. estou lutando e nao sei onde estou errando queria que a mesma atividade que acontece na B5 e na C5, acontecesse nas seguintes, B6, B7 ... C6, C7,..... 

CONTAGEM MES OUTUBRO macro.rar

[Patropi]

Boa noite, @eduardobbrasilia

 

Eu nem baixei a tua planilha, pois não estou em casa, mas o código que eu postei faz exatamente o que você deseja, testei várias vezes e funcionou perfeitamente.

 

[]s

[eduardobbrasilia]

hummm!!! quando eu faço aqui ela nao executa,... lanço a  quantidade na b5 ele executa, quando faço na b6, b7, endiante não acontece nada..

hummm!!! quando eu faço aqui ela nao executa,... lanço a  quantidade na b5 ele executa, quando faço na b6, b7, endiante não acontece nada..

[Patropi]

@eduardobbrasilia

 

Deve ser algum Bug da tua planilha, pois aqui funciona perfeitamente.

Segue anexado, uma planilha que estava em branco, colei o código e lancei dados na coluna B a partir da Célula B5 e ocorreu o lançamento na células da coluna F a partir de F5.

 

Se foi útil, clique em Curtir nas minhas respostas.

 

Se a resposta solucionou a dúvida, marque como Solução.

 

[]s

 

[eduardobbrasilia]

como faço pra baixar a planilha que você enviou??? nao localizo!?

[Patropi]

Boa noite, @eduardobbrasilia

 

Como estava com pressa, acabei me esquecendo de anexá-la.

 

Confira agora e dê retorno.

 

[]s

20_11_20_Somar dados lançados e excluir_Patropi.rar

[eduardobbrasilia]

16 horas atrás, Patropi disse:

Boa noite, @eduardobbrasilia

 

Como estava com pressa, acabei me esquecendo de anexá-la.

 

Confira agora e dê retorno.

 

[]s

20_11_20_Somar dados lançados e excluir_Patropi.rar 11 kB · 0 downloads

realmente... minha planilha ta bbugada... mas funciona perfeitamente... era isso mesmo... top de mais cara... valeeeeeuuuuu!!!!!