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