Basole

Experimente desta forma: Sub maior() Dim valor As Double Dim Wsk As Worksheet Set Wsk = Worksheets("Plan1") valor = Excel.Evaluate("=MAX(IF(A1:A13=""Paulo"",B1:B13))") MsgBox valor End Sub

Bom agora aqui pra mim funcionou, após ajustes que fiz. Cep Por Endereço_v1.zip

De nada. Veja agora: Controle Financeiro mensal_JANEIRO 2018_CLUBE HARDWARE_v2.xls

Não sei se entendi direito de qualquer forma vejas é isso: Controle Financeiro mensal_JANEIRO 2018_CLUBE HARDWARE.xls

Olá, voce precisa compartilhar de forma publica o seu arquivo, para que possamos ter acesso. https://drive.google.com/open?id=1Hisv_tjawjMU7DQ9Cvg9RRpyQNNcgNxh

Sim agora eu acrescentei este recurso e independentemente do "ID de documento sequencial" ou seja na célula M6, quando o funcionário clicar no botão "Salvar como PDF" o código faz a checagem no files na pasta especificada, e verifica se já existe o file com o nº do ID, se existir, ele acrescenta +1 e faz uma nova checagem e assim sucessivamente ate encontrar um numero disponível e salva com o novo Id evitando assim que sobreponha algum arquivo, e em formato *.pdf. Ex. (PF00025.pdf) Eu alterei local do caminho da pasta de arquivos para o modulo1. (vide img1) E o botão Salvar como PDF esta na faixa de opções, aba Pro-Forma (vide img2). Img1 img2 Pró-Forma_v2.zip

Bom se o funcionário vai salvar o arquivo "Pro-Forma" para "PF00024", por exemplo, necessariamente ele terá que abrir o arquivo original, então o meu 1º exemplo atende a essa necessidade. Mas como tem outros funcionários envolvidos que utilizarão o mesmo modelo do arquivo, este exemplo em anexo atenderá esta demanda. Para testar, crie um arquivo com o nome, por exemplo PF00024.xlsx e salve em uma pasta qualquer, em seguida no vbe de EstaPasta_de_trabalho (vide img) do arquivo que enviei, altere o caminho (local), e o nome da pasta onde salvou o arquivo "PF00024.xlsx". Para finalizar, feche e abra o arquivo Pró-Forma_v1.xlsm. Pró-Forma_v1.zip

Por que não. Para nós que estamos fora do seu negocio fica difícil entender como o documento será usado, nos baseamos nos relatos dos solicitantes.. Sim, com o Excel e vba, quase tudo é possivel, o que eu acho mais difícil, é entender o que as pessoas precisam ou querem fazer. Mas enfim, deixa entender melhor .. apos o preenchimento voce salva o arquivo como, por exemplo PF00024.xls* e sempre em uma mesma pasta?

Desculpe, mas fiz o exemplo de acordo com que solicitou.

@Coruja Curiosa Bom voce pode copiar o codigo que esta no vbe da aba plan1 do meu exemplo, colar na sua planilha e com pequenos ajustes adaptar a sua demanda. Uns dos ajustes seria: Se a imagem é local, ou seja esta no Pc, altere esta linha do codigo abaixo: strFilePath = "https://www.clubedohardware.com.br/uploads/monthly_2017_01/Avatar-Forum.thumb.gif.a17c5aecc8371f1c4897ebec3d59d082.gif" por esta: strFilePath = "C:\users\NOME_DO_USUARIO\Pictures\NOME_DA_IMAGEM.jpg" E tambem o endereço da celula para clicar, se for o caso. adicionado 2 minutos depois @Walter C. Catelan acredito que seja pelos ajustes de janelas da aplicação que coloquei no exemplo. Experimente desabilitar essas linhas abaixo no código exemplo. With Application.ActiveWindow .WindowState = xlNormal .Top = 1 .Left = 505 .Height = Application.UsableHeight * 0.75 .Width = Application.UsableWidth * 0.55 End With With Application.Windows(2) .WindowState = xlNormal .Top = 0 .Left = 0 .Height = Application.UsableHeight .Width = Application.UsableWidth End With

Aqui pra mim abre, usando office 2010. Tem que estar conectado na net.

Amigo, veja se este exemplo em anexo pode lhe ajudar. Para testar, dê um duplo click na celula D4. Abrir_Foto_ao_Clicar.zip

Veja se é isso que deseja: Pró-Forma.zip

Sim eu acrescentei este intervalo, para ficar piscando. Sim já foram removidos. Agora, ao abrir o arquivo, o processo de monitoramento é iniciado automaticamente, * Aguarde por 10 segundos, após abrir a planilha, para o inicio da verificação. Modelo_Teste_Pisca_v1.zip

Se esta planilha é usada para inserir dados constantemente, este procedimento/macro de piscar a célula, pode interferir nesta atividade. De qualquer forma segue sugestão/exemplo em anexo. Modelo_Teste_Pisca.zip

Com imagens fica difícil.

Experimente assim: "C:\Users\Environ("USERPROFILE") & "\Desktop\PE Cost Estimate\Cost Estimate.csv"

Faça um loop nos controles checkbox p/ verificar quais estão selecionados: Dim i As Long For i = 1 To 10 With Me.Controls("Checkbox" & i) if Me.Controls("Checkbox" & i).value = True then .Caption closet, false end if End With Next i

Experimente usar CDate no find Set rng = Activesheet.Columns(1).Find(What:=CDate(01/01/2018), After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

Segue sugestão: Declare esta variável fora da sub Dim priTurn As Boolean Substitua o seu codigo, por: With Selection If priTurn = False Then .EndKey Unit:=wdStory End If With .Find .ClearFormatting .Text = "^pRELATÓRIO^p" .Forward = False .Format = True .MatchWholeWord = False If .Execute = True Then MsgBox "Relatório encontrado", vbInformation, "Item de verificação" priTurn = True Else MsgBox "Não encontrei o relatório na minuta que analisei. Se houver algum ajuste a ser feito, " & _ "lembre-se de modificar também no relatório!", vbInformation, "Item de verificação" priTurn = False End If Selection.Collapse wdCollapseStart .Forward = True .Execute End With End With

Veja essa sugestão em vba. A macro compara e altera a cor da letra do nome, se duplicado da lista, para vermelho. Aqui tambem => RE: DESTACAR NOMES REPETIDOS EM VARIAS ABAS DE UMA PLANILHA Teste consulta planilhas_1.zip

Existe varias formas, mas ficar no achismo e sugerindo opções sem analisar o cenário, fica difícil. Seria melhor enviar o arquivo ou um modelo bem próximo c/ alguns dados fictícios.

Sim formatação condicional. Bom não sei como esta o cenário da sua planilha, pois não enviou o arquivo nem maiores informações. Mas experimente, por exemplo se a lista de nomes estiverem na coluna B, selecione toda a lista, vá em formatação condicional>Nova Regra>Selecione: 'Usar formula pra determinar quais células devem ser formatadas', insira a fórmula abaixo, selecione formatar e click na aba 'Preenchimento' e escolha a cor desejada e Ok. * Altere o nº 20 da formula de exemplo, para o valor da ultima linha da sua lista =CONT.SE($B2:$B20;$B2)>1

@bigbossbr veja se é isso que deseja. Se apagar qualquer célula da coluna C ou D as demais células da mesma linha também apagarão preservando suas respectivas fórmulas. Private Sub Worksheet_Change(ByVal Target As Range) Dim LR! Dim J! Dim C! If Target.Count > 1 Then Exit Sub With ActiveSheet C = ActiveCell.Column LR = Excel.Application.WorksheetFunction.CountA(.Columns(C)) LR = LR + (Target.Row - LR) If Not Intersect(Target, Range("C8:D" & LR + 1)) Is Nothing And _ Target.Column = C Then .Unprotect If Not Target.Value = Empty Then .Cells(Target.Row, 2).Value = VBA.Date .Cells(Target.Row, 5).Value = VBA.Time Else For J = 2 To 10 If J <> Target.Column And J <> 7 Then .Cells(Target.Row, J).Value = Empty Next J End If .Protect End If End With End Sub

Sim, após fazer algumas alterações no codigo, pode-se digitar em uma unica célula, mas terá que acrescentar a "/" (barra), a cada parâmetro, ou seja, exemplo: SP/Rio de Janeiro/Avenida Atlantica Qual(s) cidade(s) ,por exemplo ?