Leandro Lamin

Legal! vou testar!! Obrigado

CONSEGUI CHEGAR NESSE CÓDIGO porém ELE COPIA IMAGEM. alguém SABE RETIRAR A IMAGEM? Sub Excel_to_WhatsApp() Dim r As Long Dim Linha As Integer Dim strip As String Dim Numero_Telefone As String Dim Mensagem As String Dim Enviar As String Dim Object As Object r = Range("A" & Rows.Count).End(xlUp).Row For Linha = 2 To r Numero_Telefone = Planilha1.Cells(Linha, 1).Value Mensagem = Planilha1.Cells(Linha, 2).Value 'ActiveSheet.Shapes(1).Copy Enviar = "whatsapp://send?phone=" & Numero_Telefone & "&text=" & Mensagem Set Object = CreateObject("InternetExplorer.Application") Object.navigate Enviar Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys("^v") Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys("{Enter}", True) 'Application.Wait Now() + TimeSerial(0, 0, 5) 'SendKeys "~" Next Linha End Sub WATZAP - tipo 1 .rar

Boa Noite, Caros amigos estou com mais uma dúvida, estou aprendendo Vba. Estou escrevendo um código juntando partes para utilizar VBA para automatizar mensagens do WATZAP. estou compartilhando com o arquivo para quem poder dar uma olhada. Creio que é simples mas ainda não consegui. Obrigado! WATZAP.rar

@Patropi Show! Espetacular! obrigado!!!!!

Bom Dia Pessoal! Olha essa, Como podemos aumentar um intervalo nomeado? nesse caso o intervalo é Empresas e está associado a uma combobox. lá em propriedades da combobox na RowSource " Empresas" Eu tentei assim =DESLOC(Apoio!B1:B15;0;0;CONT.VALORES(Apoio!B1:B15);1) mas sempre retorna #VALOR! ou só a primeira empresa tentei também aplicando a formula lá no gerenciador de nomes mas também da erro Alguém conhece uma maneira? Obrigado!! teste.rar

@paulocezarpicos Bom Dia, sim ótima ideia! Obrigado pela ajuda!

@paulocezarpicos consegui arrumar, só exclui a coluna e escrevi novamente! show!

Boa Noite pessoal, Então criei uma condição =SE() para definir 3 turnos ex 1 turno está no intervalo 05:20 as 14:40 2 turno está no intervalo 14:20 as 22:40 3 turno está no intervalo 22:20 as 05:40 =SE([@HORA]="";"";SE(E([@HORA]>=TEMPO(5;20;0);[@HORA]<=TEMPO(14;40;0));"1º Turno";SE(E([@HORA]>=TEMPO(14;20;0);[@HORA]<=TEMPO(22;40;0));"2º Turno";SE(E([@HORA]>=TEMPO(22;20;0);[@HORA]<=TEMPO(5;40;0));"2º Turno";"3º Turno")))) em uma planilha funciona certinho na outra não, gostaria da ajuda dos senhores para mais essa coloquei os dois exemplos o que esta OK(intervalo de horas teste) e TURNOS_condição=SE() q não funcionou Obrigado! TURNOS_condição=SE().rar intervalo de horas teste OK.rar

@Patropi Boa noite, essa condição =SE() esta na coluna ///// "R" =SE(A3<>"";SE(N3="";"EXTERNO";"INTERNO");"") \\\\\ Quando digito na coluna "A" , la na coluna "R" aparece "EXTERNO" Depois digito na coluna N, la na coluna "R" aparece "INTERNO" a intenção é indicar de forma clara quando o veiculo esta fora da empresa, interno e externo. teste 34 chassi.rar

@Patropi ESPETACULAR!!!! está perfeito! obrigado! uma dúvida como poderia aplicar esse código apenas para uma coluna?

Espetacular!!! Nota 10! muito obrigado pela mais essa valorosa ajuda!!! @Basole Espetacular!!! Nota 10! muito obrigado pela mais essa valorosa ajuda!!!

Private Sub Worksheet_change(ByVal Target As Range) On Error GoTo Saída ' número 1(um) se refere a coluna "A" ao modificar uma celula, adiciona dados nas celulas da coluna 8(data) e 9(hora) If Target.Column = 1 Then If Cells(Target.Row, 8).Value = "" Then Cells(Target.Row, 8).Value = Date If Cells(Target.Row, 9).Value = "" Then Cells(Target.Row, 9).Value = Time End If End If End If Saída: Exit Sub End Sub olha será que esta certo? poderia verificar por favor

Public Tecla As String Private Sub CBEditar_Click() Bom Dia Pessoa! Venho ver com vcs um probleminha que tenho na minha criação de formulário de cadastro em VBA, tudo que fiz até agora foi acompanhando vídeo aulas na internet, entendo muito pouco, contudo já estou quase no fim Graças a Deus, acho que foi uns 4 meses...enfim vamos la, quando vamos add novo cadastro as linhas somam normal 1,2,3, (para cada linha de cadastro) e assim vai, porém quando puxo um cadastro já salvo para adicionar uma nova entrada, ele salva com ID do cadastro tipo, já estou na linha 10 p/Ex mas ele salva com o ID do cadastro 2 (linha 2), seria possível salvar seguindo o ultimo numero da linha cadastrada e assim por diante ? Obs: para abrir a planilha usar o botão Excel; senha "123" critério de busca é pelo numero do RG (campo RG) Desde já Agradeço a Valorosa ajuda dos senhores(as) 275237013_ControleEntrada_Bispo2_V2.0.rar

@Midori Show! Deu certo Obrigado!!! mas agora com ela bloqueada, o link não funciona será que fiz algo errado?

bom dia, esta show!. mais um duvida, tem como não exibir essa msg, (print) ela aparece quando clica em qualquer uma das células acima da clique p/ cadastro. Muito Obrigado pela valorosa ajuda Planilha TESTE_v2.rar

@Midori Sensacional!!!!!!!

Espetacular!!! Muito obrigado pela ajuda, para bloquear é muito complicado ? Aqui tem 4 pessoas que mechem nas planilhas e depois quando fazemos relatório sempre tem divergências nos cadastros. Quando alguém antera no número da placa. mais uma vez obrigado! vocês são super!

@Midori tudo bem? Poderia me dar um ajuda com um procv pelo VBA ao digitar na célula. no meu caso eu digito RG retorna o nome e a empresa. para item não encontrado esta "Clique p/ Cadastrar" que também seria uma ideia de linkar para aba de cadastro. obrigado!!! Planilha TESTE_v2.rar

Boa Noite, qual seria o código em vba para esse =SE(A7<>"";SE(N7="";"EXTERNO";"INTERNO");"") Obrigado!

@Patropi obrigado! , teve um erro que quando mudo o dado na coluna "a" o hora muda de novo. 22_09_21_teste 34 chassi_Patropi.zip

Boa noite, estou iniciando com vba, E já consegui construir rotina, mas tem alguns erros. minha intenção é, quando digitar em qualquer célula da coluna "A" e movimentar com Enter ou com as setas, apareça a data na coluna "H" e a hora na coluna "I" tenho também uma formatação condicional , que gostaria de ativar pelo vba. =SE(A7<>"";SE(N7="";"EXTERNO";"INTERNO");"") São para indicar os carros internos (Cor Verde) e carros Externos (Cor Vermelho). já tive vários problemas com a formatação, porque sempre alguém apaga. isso é terrível Agradeço pela ajuda! Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Erro Dim i As Double ' PARA PEGAR A LINHA Dim C As String ' PARA COLUNA SELECIONADA C = ActiveCell.Column If C = 1 Then i = ActiveCell.Row - 1 ' SES ESTIVER O CURSOR NA COLUNA 1 QUE A COLUNA CRITERIO QUE VOU DIGITAR Else i = ActiveCell.Row ' POSSO MUDAR O CURSOR PARA QUAL QUER LADO End If On Error Resume Next 'EM CASAO DE ERRO SEGUE EM FRENTE If Planilha1.Cells(i, 1).Value <> "" Then ' SE ESTIVER VAZIO NÃO FAZ NADA, PRECISO DIGITAR ALGO NA COLUNA 1 OU A If Planilha1.Cells(i, 9).Value = "" Then ' alterar If C <> 9 Then If i > 1 Then Planilha1.Cells(i, 9).Value = VBA.Time ' alterar 'COLOCAR HORA, 9 SE REFERE A COLUNA B Planilha1.Cells(i, 9).Value = VBA.Format(Planilha1.Cells(i, 9).Value, "hh:mm") ' alterar Planilha1.Cells(i, 8).Value = VBA.Date 'alterar COLOCAR DATA, 8 SE REFERE A COLUNA D, OU SEJA 1 É COLUNA A, 2 COLUNA B E ASSIM VAI End If End If End If End If If C = 1 Then If Planilha1.Cells(i, 1).Value = "" Then Planilha1.Cells(i, 9).Value = "" End If End If Exit Sub Erro: MsgBox "Erro!", vbCritical, "ERRO" End Sub teste 34 chassi.rar

BOA NOITE, Estou iniciando com VBA, cheguei nesse código, tem alguns erros, a intenção é digitar na coluna A e trazer a data na coluna "h" e hora na coluna "i" tem também uma formatação condicional '=SE(A3<>"";SE(N3="";"EXTERNO";"INTERNO");"") que al digitar os dados na coluna "a" inicia com externo de pois quando o carro retorna coloco a data e a formatação muda p/ interno. obrigado desde já Private Sub CommandButton1_Click() Application.EnableEvents = True Application.ScreenUpdating = True End Sub Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Erro Dim i As Double ' PARA PEGAR A LINHA Dim C As String ' PARA COLUNA SELECIONADA C = ActiveCell.Column If C = 1 Then i = ActiveCell.Row - 1 ' SES ESTIVER O CURSOR NA COLUNA 1 QUE A COLUNA CRITERIO QUE VOU DIGITAR Else i = ActiveCell.Row ' POSSO MUDAR O CURSOR PARA QUAL QUER LADO End If On Error Resume Next 'EM CASAO DE ERRO SEGUE EM FRENTE If Planilha1.Cells(i, 1).Value <> "" Then ' SE ESTIVER VAZIO NÃO FAZ NADA, PRECISO DIGITAR ALGO NA COLUNA 1 OU A If Planilha1.Cells(i, 9).Value = "" Then ' alterar If C <> 9 Then If i > 1 Then Planilha1.Cells(i, 9).Value = VBA.Time ' alterar 'COLOCAR HORA, 9 SE REFERE A COLUNA B Planilha1.Cells(i, 9).Value = VBA.Format(Planilha1.Cells(i, 9).Value, "hh:mm") ' alterar Planilha1.Cells(i, 8).Value = VBA.Date 'alterar COLOCAR DATA, 8 SE REFERE A COLUNA D, OU SEJA 1 É COLUNA A, 2 COLUNA B E ASSIM VAI End If End If End If End If If C = 1 Then If Planilha1.Cells(i, 1).Value = "" Then Planilha1.Cells(i, 9).Value = "" End If End If Exit Sub Erro: MsgBox "Erro!", vbCritical, "ERRO" End Sub teste 34 chassi.rar