Como Alterar Célula com Base Em Outra Célula com VBA

[@MrBicholino]

Excelente qualidade de aula. Objetiva, clara e muito útil!

[@rubensrosa7964]

Procurava algo parecido e me ajudou muito. Simples e funcional

[@joaomarcosoliveira3586]

Era exatamente esse conteúdo que eu estava procurando... Obrigado!

[@italocardoso8075]

Muito bom, parabéns. Você poderia disponibilizar essa planilha ela vai mim ajudar de mais😅.

[@MundoOfficecomJoabeSouza]

Bom dia, Italo Cardoso! Mando sim, envia um e-mail para [e-mail]

[@GUSTAVOMESKO]

Bom dia, queria saber como eu faço para preencher uma data e na outra coluna ela me trazer uma data com 40 dias de diferença, por exemplo eu preencher hoje e na outra coluna trazer 40 dias depois

[@vilsonsouzaoliveira5712]

Problema para exclusão de linhas, devido aos vinculos e está com evento change ativo, ele le os códigos. Alguém para ajudar?

[@GUSTAVOMESKO]

consegui configurar, ai ele me tras a data de hoje, mais como eu faço para preencher e ele me trazer uma data com 1 mes depois, por exemplo visitei o cliente dia 20/04 e eu quero preencher e que ele me retorno em outra coluna uma data de retorno que seria 20/05 1 mes depois, para eu saber quando tenho que visitar aquele cliente,.

[@renataguedes2616]

Ganhou mais uma inscrita.. obrigado.

[@MundoOfficecomJoabeSouza]

Obrigado🤝

[@servo-fiel]

Joabe, qnd deleto varias de uma vez ele quebra o Código, poderia me ajudar como faço para isso nao acontecer? é pq estou fazendo o seguinte, na coluna A tenho os precos q vou preenchendo, e qnd coloco um preco quero preencher na coluna C (de data) a data daquela compra. (é bem semehante ao q vc fez na real) vou deixar o codigo vba aqui embaixo pra facilitar pra vc. Private Sub Worksheet_Change(ByVal Target As Range) Dim col As Double Dim lin As Double col = Target.Column lin = Target.Row If col = 1 And lin >= 2 Then If Range(Target.Address) = "" Then Cells(lin, "C") = "" ElseIf Cells(lin, "C") = "" Then Cells(lin, "C") = Now End If End If End Sub

[@FranchescoVirguline9430]

Private Sub Worksheet_Change(ByVal Target As Range) Dim col As Double Dim lin As Double Dim cel As Range For Each cel In Target col = cel.Column lin = cel.Row If col = 1 And lin >= 2 Then If cel.Value = "" Then Cells(lin, "C").Value = "" ElseIf Cells(lin, "C").Value = "" Then Cells(lin, "C").Value = Now End If End If Next cel End Sub

[@jaisonrodrigues4929]

Mas só funciona de eu alterar uma celula por vez? Como faço para funcionar alterarando várias célular de uma vez só (com ctrl v) por exemplo.

[@servo-fiel]

tambem tive problema parecido. qnd deleto varias de uma vez ele quebra o Código!!

[@vilsonsouzaoliveira5712]

Tive o mesmo problema, quebra o código, estou vendo uma forma de resolver, você conseguiu nestes 2 anos? kk

[@danilodagua2755]

Parabéns mais um video bom. voce pode enviar essa planilha

[@MundoOfficecomJoabeSouza]

Bom dia, Danilo! Mando sim, envia um e-mail para [e-mail]

[@ebertvalerio7141]

⚠⛔Help, Estou precisando de algo parecido, vou logo ao ponto. Tenho uma Base de Dados com n° de cartões e um Dashboard. Eu preciso de algo que busque as informaçãos na Base de Dados no meu Dashboard e eu consiga altera o STATUS do cartão de ATIVO para BLOQUEADO. Quero conseguir fazer essa alteração na tela de Dashboard e altomaticamente alterar na minha base de dados. ALGUEM SABE COMO EU CONSIGO FAZER? ⛔⚠

[@emersonluiz3525]

Qual o caractere especial usado para tornar o conteúdo que referencia o nome de outra célula sempre fixa(ou seja, caso seja copiado ou passada a alça auxiliar ele não vai mudar)? $ & = § < Alguém sabe responder prfvr?

[@MundoOfficecomJoabeSouza]

Boa noite! Emerson Luiz. Desta forma: =$A$1 ($) esse é o caractere especial.