Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#68012
Boa tarde. Amigos tenho uma dúvida quanto à programação no excel.

Possuo uma tabela com 3 colunas (Data, Atividade, Obs). Como fazer quando eu alterar a coluna Atividade ou a coluna Observação, fazer com que a linha inteira suba para a primeira posição e a célula com a Data receba a Data do dia?

Me solicitaram isso, para evitar que o usuário dessa planilha tenha que copiar e colar a linha sempre que houver alguma alteração em dos campos. Porque quando há alguma alteração, o registro deve assumir a primeira posição.

Espero ter sido claro..
Abs

Junior
#68013
@
Experimente:
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Or Target.Column > 3 Then Exit Sub
 Cells(Target.Row, 1).Resize(, 3).Copy
 Range("A2").Insert Shift:=xlDown
 [A2] = Date
End Sub
junior3d agradeceu por isso
#68024
Olá, @junior3d .
Desculpe, falha minha pois no título do tópico está claro que é para "mover os dados".

Para mover ao invés de copiar/colar substitua Copy por Cut.

___________________________________________________________________________________________________________

"Coloquei um botão para ligar e desligar a Macro também pois facilita dependendo da situação."
Segue abaixo um código alternativo que poderá ser executado via botão. Selecione qualquer célula da linha que deseja mover para a linha 2 e execute.
Instale uma cópia em um módulo comum (menu Inserir | Módulo); lembrando que caso você utilize este, o anterior deverá ser desativado.
Código: Selecionar todos
Sub MoveDados()
 Cells(ActiveCell.Row, 1).Resize(, 3).Cut
 Range("A2").Insert Shift:=xlDown
 [A2] = Date
End Sub
junior3d agradeceu por isso
#68052
Cara, nesse caso eu não consigo lhe ajudar.

Uma ideia seria gravar uma macro e então verificar a sintaxe no código gravado.

Outra seria buscar um fórum especializado em Excel para MAC.
junior3d agradeceu por isso

Bom dia Para saber o número de linhas com V[…]

Olha só, sem vc anexar uma planilha exemplo[…]

Pessoal, gostaria de uma ajuda de vocês se p[…]

[AJUDA]VBA Crashando

up

Fórmula para contagem

Segue abaixo um exemplo

SOMAR PRODUTOS

Junqueira, desculpa a demora . obrigado. perfeito

Boa tarde. Com a ajuda de um membro do fór[…]