jcgmcs

Wendell boa tde meu querido!! Blzz Cara ficou perfeito, maravilha.. muito obrigado mesmo!!! Há muito tempo q queria algo pra fazer isso e nada. agora meu projeto deslancha.. kkk Só uma obs... é mesmo necessário este acento .. 'ABR/23 .. ?? Abç e todo de bao ae....

Como automatizar no VBA, que sempre ao digitar datas variadas na coluna "M" como dessa maneira 25/03/23 a partir de "M5" ou em qualquer outra linha, que pegue somente o ano 2023 e os cole em "BP" na mesma referida linha. Preciso tbém de outro código que faça a mesma função mas que pegue Mês e Ano MAR/23 e os cole em "BQ" obrigado!!

Midori beleza! Então, erro foi eliminado mas parece q isso impede a execução do código porque nada acontece, a data não é corrigida (Invertida) tdeu...

Midori, A inserção é manual e anterior a linha 5 não vae informações e tbém não é formatação pois já tentei de todo aqui. Porisso to apelando por VBA pra forçar a inversão... Uma obs... há colunas em q as datas digitadas ficam corretas e em outras colunas como a "L" não.. mesmo fazendo a formatação dentro dos conformes..

Boa noite! Alguém com uma solução pra esse erro...?

Basole boa tde amigo... Coloquei o código no início da Plan1 (Clientes) e deu este o erro... Erro em tempo de execução '28' Espaço insuficiente para pilha Ficou amarelo nessas linhas: If Not Application.Intersect(Target, _ Range("L5:L" & Cells(Rows.Count, 12).End(xlUp).Row)) _ Is Nothing Then

Patropi bom dia amigo! Não entendi seu código... pode explicar... o que é esse... FormulaR1C1 ?? R1C1...? Ele irá atuar somente na coluna "L" ?

Basole bom dia amigo! obrigado pela resposta mas ainda não funcionando.. O caso é o seguinte, nessa coluna "L" a partir da linha 5, sempre que insiro uma data como "dd/mm/aa" são invertidas o "dd e mm" e toda vez, preciso teclar o F2+Enter tndeu... Seu código após dar "Enter" fica uns 10 segundos calculando e não corrige a data. Por favor, se puder dar uma revisada ae agradeço muito porque já to biruta com isso, de tantas tentativas q já fiz aqui.. rsrs valeu!!

Poxa... Ninguém mesmo vae me ajudar com isso....?!

Olá, boa tde! Encontrei o codigo abaixo pra executar F2+Enter em toda a coluna... Minha necessidade é pra que ele execute somente na coluna "L" e na célula em que eu alterar ou seja, somente na celula ativa. Alguém pode me ajudar nesse código...? 'Criando função para automatizar F2+Enter no Excel via VBA Sub atualizaCelula() lin = 2 col = 2 Do While Cells(lin, col).Value <> "" Cells(lin, col).Select ulinha = Selection.End(xlDown).Row For lin = 2 To ulinha Cells(lin, col).Value = Cells(lin, col).Value * 1 Next lin col = col + 1 lin = 2 Loop End Sub

Me ajudae pessoal...!!

Midori bom dia amigo! obrigado por seu retorno.. Olha só, vejae os códigos q tenho... Onde eu colocaria essa sua função? Sub Alterar_Registro_Cliente() Dim cod As String Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Clientes") With ws Linha = 5 cod = UserForm1.Pesquisa_Codigo.Text Do Until Sheets("Clientes").Cells(Linha, 2) = "" 'Coluna If Sheets("Clientes").Cells(Linha, "B") = cod Then Sheets("Clientes").Cells(Linha, "C") = UserForm1.cbCadEmpresaCliente.Text Sheets("Clientes").Cells(Linha, "D") = UserForm1.cbCadNomeContato.Text Sheets("Clientes").Cells(Linha, "E") = UserForm1.txtCadFixoCelular.Text Sheets("Clientes").Cells(Linha, "F") = UserForm1.txtCadCelularWhatsApp.Text Sheets("Clientes").Cells(Linha, "G") = UserForm1.cbCadCidade.Text Sheets("Clientes").Cells(Linha, "H") = UserForm1.cbCadBairro.Text 'Sheets("Clientes").Cells(Linha, "I") = UserForm1.cbCadContatoHáDias.Text Sheets("Clientes").Cells(Linha, "J") = CDate(UserForm1.cbCadContatoDia.Text) Sheets("Clientes").Cells(Linha, "K") = UserForm1.cbCadObservações.Text Sheets("Clientes").Cells(Linha, "L") = UserForm1.cbCadContatoPor.Text Sheets("Clientes").Cells(Linha, "M") = CDate(UserForm1.cbCadComprouDia.Text) Sheets("Clientes").Cells(Linha, "N") = UserForm1.cbCadStatusWhatsApp.Text Sheets("Clientes").Cells(Linha, "O") = UserForm1.cbCadCompraCom.Text 'Sheets("Clientes").Cells(Linha, "P") = UserForm1.cbCadRetornouHáDias.Text 'Sheets("Clientes").Cells(Linha, "Q") = CDate(UserForm1.cbCadRetornouDia.Text) Sheets("Clientes").Cells(Linha, "R") = UserForm1.cbCadPretensãoCompraEm.Text Sheets("Clientes").Cells(Linha, "S") = UserForm1.cbCadAmostra.Text '13 Sheets("Clientes").Cells(Linha, "T") = UserForm1.cbCadEndereçoSN.Text Sheets("Clientes").Cells(Linha, "U") = UserForm1.cbCadRamo.Text Sheets("Clientes").Cells(Linha, "W") = UserForm1.cbCadListarTodos.Text Sheets("Clientes").Cells(Linha, "X") = UserForm1.cbCadEmail.Text '22 'Sheets("Clientes").Cells(Linha, "Y") = UserForm1.cbCadVendaMA.Text Sheets("Clientes").Cells(Linha, "Z") = UserForm1.cbCadVisitadoSN.Text Sheets("Clientes").Cells(Linha, "AA") = UserForm1.cbCadVisitadoDia.Text Sheets("Clientes").Cells(Linha, "AC") = UserForm1.cbCadTotalApresentação.Text Sheets("Clientes").Cells(Linha, "AD") = UserForm1.cbCadComprouNoConcorrenteEm.Text 'Sheets("Clientes").Cells(Linha, "AE") = CDate(UserForm1.cbCadVistoOnlineDia.Text) 'Sheets("Clientes").Cells(Linha, "AF") = UserForm1.cbCadContatoAno.Text 'Sheets("Clientes").Cells(Linha, "AG") = UserForm1.cbCadRetornouAno.Text 'Sheets("Clientes").Cells(Linha, "AH") = UserForm1.cbCadContatoMA.Text 'Sheets("Clientes").Cells(Linha, "AJ") = UserForm1.cbCadRetornouMA.Text Sheets("Clientes").Cells(Linha, "AK") = UserForm1.cbCadTeste.Text Sheets("Clientes").Cells(Linha, "BL") = UserForm1.cbCadEndereço.Text MsgBox "Cadastro Alterado com Sucesso!", vbInformation, "ALTERADO" Exit Sub End If End If Linha = Linha + 1 Loop End With End Sub

Boa noite.. Utilizo esse código abaixo pra gravar alteração de data, mas quando não há data à ser colocada no ComboBox o código dá Erro '13' Tipos incompatíveis Sheets("Clientes").Cells(Linha, "M") = CDate(UserForm1.cbCadComprouDia.Text) Alguma solução pra isso..?

Osvaldo, bom dia amigo.. Entao seguinte.. testei digitando informações manualmente nas linhas da planilha e funcionou direitinho, porém, ao fazer isso no Form preenchendo as combos e clicando no botão "Alterar Cadastro" deu erro '13' nessa linha do código...

Ficou perfeito meu amigo... Melhor q o anterior..!!! Muito obrigado mesmo..!! Por hora vou fazer uns testes na planilha original e vamos ver se vae rodar tudo certinho... E a formula, agora é sim, de grande valia... Rss Parabéns pelo seu conhecimento.......... Abrç..

Osvaldo, boa tde amigo.. todo Bem! você é o cara mesmo!! Funcionou perfeitamente, quase q instantâneo... Rss Porém, na coluna "Q" tenho muitas linhas sem datas, poluindo a coluna "P" com estes valores: "44041".. Queria eliminar isso.. E esta é minha razão de não usar a formula tdeu.. Qto ao que está: &"" tbém não sei dizer.. foi me passado uma ajuda dessa maneira, funcionou... e até então estava usando assim... Rsss Obrigado amigo e aguardo a eliminação disso... valores: "44041"

Bom dia! Eu tinha essa formula =($D$1-Q5) &"" na coluna "P" a partir da linha 5 que me retornava a contagem de Dias. Com a ajuda de um amigo do Forum consegui este código abaixo: Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Application.EnableEvents = False If Target.Count > 1 Then Application.EnableEvents = True Exit Sub End If If Target.Address(False, False) = "D1" Then For i = 5 To 3000 Range("P" & i).Value = CDate(Range("D1").Value) - CDate(Range("Q" & i).Value) Next i ElseIf Target.Column = 17 And Target.Row > 4 Then Range("P" & Target.Row).Value = CDate(Range("D1").Value) - CDate(Range("Q" & Target.Row).Value) End If Application.EnableEvents = True End Sub Funciona.. porém ocorre que quando mudo o dia na "D1" pra uma outra data qualquer, o processo de atualização na coluna "P" que atualmente tenho mais de 2.000 linhas, está muito demorado, em torno de 4min +/- pra atualizar a recontagem... Será que teria uma maneira de deixar esse código de forma instantânea assim como ocorre com a formula =($D$1-Q5) &"" que mudando a data, instantâneamente é feito as atualizações em toda a coluna...?? obrigado.. Att, Carlos

Obrigado Marcio, é isso mesmo!! Abraço...

Boa noite pessoal!! Na planilha de exemplo, Como fazer pra que ao digitar o Código do Cliente, na ListBox mostre apenas os dados do referido cliente da planilha Historico? Total de caracteres em cada linha é de 253 Excel 2003 Grato a todos que puderem ajudar. ListBox - Listar Historicos (Exemplo).rar

Boa tarde Junqueira, e aos demais que puderem ajudar... Aeee, segue arquivo com alguns exemplos de resultados (Manual) que preciso ok!! Aguardo... valeu!! Copiar parte da palavra (Junqueira)-v2.xls

Me ajudaee pessoal!!!

Amémmm!!!

Brigadaummm Raul e Mantis. Funcionou perfeitamente!!!

Tarde Mantis!! Num tendi??? Veja só, abaixo as celulas: AP20 M20 AU20 1.543.540 x 60.000 = 92.612.400.000

Tenho o seguinte valor: 1.543.540 x 60.000 = 92.612.400.000 No excel 2003, qual fórmula utilizar pra ficar apenas 92.613 Grato...