Victor Comparini

@Rangel Salomé, Faça o seguinte: Sub SalvarPDF() Dim MyDate Dim valor As Integer 'ou As String se tiver letras, 'As Double se tiver casa decimal Dim Arquivo As String valor = Range("B10").Value Arquivo = valor & "." & _ Format(MyDate, "dd") & "." & Format(MyDate, "mm") & "." & Format(MyDate, "yyyy") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= valor + Arquivo, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True ActiveWorkbook.Close End Sub

Queria Adicionar uma sugestão já que todo nome do arquivo tem que ser diferente. Você poderia salvar o arquivo com a Data e Hora atual, assim, só vai ficar igual se acontecer de salvar dois arquivos no mesmo segundo. Sub SalvarPDF() Dim Dir, Nome As String Dim MyTime Dim MyDate Dim Arquivo As String Dir = "Desktop" Nome = "Relatório" MyTime = Now MyDate = Date Arquivo = Nome & "." & _ Format(MyDate, "dd") & "." & Format(MyDate, "mm") & "." & Format(MyDate, "yyyy") & "." & _ Format(MyTime, "hh") & "." & Format(MyTime, "nn") & "." & Format(MyTime, "ss") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dir + Nome + Arquivo, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True ActiveWorkbook.Close End Sub

Olá amigo, Criei uma planilha com duas opções, e deixei em anexo aqui, você vê o que é mais viável para você. Parece que o que você quis dizer, é que a macro não está executando, ao você modificar a célula, para isso acontecer, você teria que ter a macro rodando na aba específica, colocando seu código aqui: Além disso, deve especificar a cima que é pra executar quando algum valor na planilha for modificado, selecionando aqui: para executar somente quando certas células específicas forem alteradas, deve haver o seguinte: If Not Intersect(target, Range("célula1", célula2")) Is Nothing Then GoTo executar 'Sendo executar o nome da macro, ou onde se inicia com " executar: " Espero ter ajudado! Executar ao modificar - Vics.zip

Olá, Já faz um tempo que você pediu, não sei se conseguiu ou não, mas está aí, basta dar uma olhada no código VBA em EstaPastaDeTrabalho. Navegar na planilha atraves da validação de dados - Vics.zip

Olá! Use esse código em "EstaPastaDeTrabalho". Planilha em Anexo. Private Sub Workbook_Open() ' Dim carteira As Double carteira = Range("B2").Value Range("B2").Value = carteira + Range("B1").Value End Sub Carteira - Vics.zip

Olá, Eu acho que consegui desvendar o seu mistério, trava-se das variáveis i e j que sempre recebiam valores de 1 a 4. a variável j recebendo valores de 1 a 4 ele ira preencher os dados nas 4 primeiras colunas. eu comentei o código, faz algumas modificações, e espero que dê pra entender o que é preciso fazer. Ressalto que só alterei a macro EditAdd, há uma pesquisar para preencher o formulário automaticamente, essa eu não alterei nada, devolvo o desafio para você. Qualquer dúvida estou a disposição. Simples - Vics.zip

Olá Amigo, Tente isso: =DATADIF(C2;MÁXIMO(D2:J2);"M")

@Bikke Muito bem observado, obrigado! adicionado 10 minutos depois @YasminNET, Como foi dito, tem algo errado com o seu excel, é preciso configura-lo corretamente, talvez a versão não estava reconhecendo a função Concat dentro do VBA, eu removi essa função do código. use a planilha atualizada em anexo dessa resposta e tente novamente para ver se há algum outro erro para pensarmos em outra for de resolver. Bingo_Atualizado.zip

Boa tarde, Segue sua planilha! Qualquer dúvida estou a disposição. Filtrar - Vics.zip

@YasminNET Aqui funciona perfeitamente, Esse erro é algo no seu excel, tente a seguinte solução: Vá ao menu Arquivo->Opções Aqui, acesse a última opção na lista da esquerda chamada “Central de Confiabilidade”. Clique agora no único botão da tela à direita com o texto “Configurações da Central de Confiabilidade”. Você verá uma tela com várias opções à esquerda. Nela, selecione a opção “Configuração do ActiveX”: Para resolver o problema, é preciso selecionar uma opção de contexto confiável. Para meu caso, mantive opção “Avisar antes de habilitar todos os controles com restrições mínimas“, que é a mensagem que aparece quando se abre o Excel (ativação de Macros). Lembre também de ativar as macros. Ou essa mesma opção de habilitar aparece próximo a barra de fórmulas. Fonte: https://www.tomasvasquez.com.br/blog/microsoft-office/excel/vba-resolvendo-o-problema-do-erro-1004-nao-e-possivel-obter-a-propriedade-object-da-classe-oleobject/ adicionado 15 minutos depois De qualquer forma, Tire essa Função da Macro, porém há outras. Segue arquivo atualizado. Bingo_Atualizado.zip

Bom dia, Segue sua planilha. Qualquer dúvida estou a disposição. Bingo.zip

@anderson pafune Bom dia, Desculpe-me pela falha. Descer_linha - Vics.zip

Bom dia, Foi isso que eu tentei explicar e talvez acabei te confundindo. Desenvolvi uma planilha de exemplo e vou deixar em anexo para você ver como o while funciona, assim pode executar o código com F8 e ver como ele segue. Descer_linha - Vics.zip

Boa tarde, Pelo que deu pra entender, você vai ter que ter esses nomes de planilhas como variáveis dentro de um código de programação no VBA Por exemplo: plan_nome = "plan" plan_num = 1 selecao_letra = "A" selecao_num = 1 Depois concatenar inicio = WorksheetFunction.Concat(plan_nome, plan_num) depois terá que ter algo pra fazer dar o loop e acrescentar 1 na variável plan_num. While plan_num < 5 Recortar a seleção Range(inicio).activate Colar seleção plan_num = plan_num +1 Wend Porém terá que aplicar as coisas conforme a necessidade. Espero ter ajudado, qualquer dúvida estou a disposição

Bom dia amigo, Há uma maneira sim. Sempre que você faz uma atividade repetitiva, que é sempre selecionar dados, colar no mesmo lugar, remover duplicatas e etc. Você pode usufruir das Macros do Excel, não é necessário saber programação, uma simples macro gravada com suas atividades pode ser armazenada no código e transferida para um botão onde você só clica e ele faz tudo por você. Segue exemplo. e sua planilha com as duplicatas removidas. Planilhas_Macros_Vics.zip

Bom dia amigo. Para fazer esse tipo de análise, você vai precisar de mais informações além dessas, pois não há uma forma de analisar como mapa para calcular a distância entre um CEP e outro. Há algumas coisas que é possível fazer, por exemplo, ver qual motorista possui o mesmo CEP que o cliente, mesma cidade e mesmo bairro. O PROCV é um pouco falho nisso, pois sempre considera o nome do primeiro motorista e comparar por cidade. Uma coisa importante que observei, é que para fazer análises, é importante que as informações sejam idênticas nas tabelas, por exemplo, na sua coluna CIDADE, na aba Motoristas, cada cidade tinha um espaço " " antes da palavra, e na outro não tinha, então o PROCV nunca encontraria esse valor, o mesmo acontece para coluna Bairro e outras. Segue a planilha, qualquer dúvida, estou a disposição. Endereço motoristas 12-2019_vs03 - Vics.xlsx

Boa tarde, Fiz uma macro com Vetores, caso uma empresa seja adicionada futuramente. Segue em anexo. Qualquer dúvida estou a disposição. Planilhas_Vics.zip

Bom dia, não consegui acessar o seu arquivo, então fiz de algumas formas, e você vê o que é melhor para atender sua necessidade, qualquer dúvida, estou a disposição. O arquivo está em anexo. 1. Primeiramente, um vínculo deve ser colocado na seleção. 2. Após isso, basta fazer algumas formatações condicionais, especificando uma fórmula. 3. As formatações condicionais devem ficar organizadas dessa forma: Resultado: OBS: Fórmula para manter fundo branco: selecao-e-opcao.xlsx

Olá, Basole. Obrigado por sua resposta, mas isso não funcionou. Acrescentando essas linhas ao código sem configurar manualmente, todas as páginas saem em apenas um lado. Segue código abaixo:

@Fernando Expedito Leal Olá. Talvez a fórmula =TEXTO(A1;"DD/MM/AAAA") resolva, porém acho que continuaria dando problema no filtro. Eu enfrento um problema parecido quando exporto arquivos do SAP, os números vem em formato de texto. a unica forma que eu consegui resolver foi fazendo uma macro pra pegar o valor, colocar numa variável e colocar de volta na célula, fazendo isso para a coluna toda.

@CasaDoHardware minha planilha é uma macro que coloca a data na célula e imprime a página frente e verso, logo após isso, a macro acrescenta 1 dia na célula e imprime de novo, assim faz para todos os dias do mês selecionado. A ideia dessa planilha é que seja automática, pois não sou o único que imprime, e os outros usuários nem sempre sabem configurar a impressora pra isso e acaba imprimindo tudo em só lado e desperdiça as folhas impressas, ou tem o trabalho e colocar as folhas impressas na impressora viradas para baixo e imprimir novamente, aí é mais trabalho manual ainda. Por isso minha necessidade seria configurar isso automaticamente. Mas muito obrigado pela sua sugestão e prestatividade em responder o post.

Olá, Bom dia. Mais uma vez venho pedir uma ajuda em algo não consegui encontrar uma solução pesquisando, porém várias cabeças pensam melhor do que uma, e sei que tem vários aqui que tem muito mais conhecimento do que eu. Meu problema é o seguinte: Tenho uma impressora Samsung K7600LX. Criei uma planilha que vai imprimir um caderno com páginas frente e verso, porém, não sei qual é o código para que o VBA configure isso automaticamente. Tentei a opção de iniciar a gravação da macro e fazer isso, porém na gravação não retorna nenhum código.

Muito obrigado Patropi, consegui fazer funcionar na planilha que eu pesquisava.

Olá, Amigo, veja se isso te ajuda: =TEXTO(A1;"DD/MM/AAAA")&B1

Olá, Não consigo pensar em uma solução para o seguinte problema: Tenho uma planilha como esta abaixo: Preciso aplicar uma formatação condicional que deixe em destaque os valores duplicados como abaixo: Porém, ficaria muito inviável fazer isso em linha por linha, sendo que, eu tenho mais de 2500 linhas nessa planilha. Como fazer em isso em apenas uma regra? *OBS: tentando fazer em uma única formatação condicional, sempre paro no seguinte problema: Espero que eu tenha conseguido explicar claramente meu problema!