Midori

@GENECIOFICIAL A célula D4 deve ficar no formato texto. E na primeira execução caso a célula já tenha uma data em outro formato que não seja texto, converta ou formate para texto antes. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$10" Then If TypeName([D4].Value) = "String" Or [D4].Value = "" Then [D4].Value = Sequencia([D4]) End If End If End Sub Function Sequencia(Celula As Range) As String Dim Contador As Long Dim Ano As Integer Dim Valor As Variant Dim Mes As String Dim MesAtual As String MesAtual = MonthName(Month(Date), True) If Celula.Value = "" Then Sequencia = "01/" & MesAtual & "/" & Year(Date) Else Valor = Split(Celula.Value, "/") Contador = Valor(0) Mes = Valor(1) Ano = Valor(2) If Year(Date) <> Ano Then Contador = 1 Mes = MesAtual Ano = Year(Date) Else If Mes <> MesAtual Then Mes = MesAtual End If Contador = Contador + 1 End If Sequencia = Format(Contador, "00") & "/" & Mes & "/" & Ano End If End Function

@William Medeiros O segundo parâmetro da fórmula é para isso, p.ex, =HIPERLINK(PROCV(C1;TABELA;2;0);"Arquivo")

@GENECIOFICIAL Para acontecer esse erro a célula deve estar em branco ou com um valor sem barras. Coloque um valor válido antes de testar. Outra coisa que eu devia ter perguntado antes, esse contador pode deixar a célula D4 com um formato de data inválido? Tipo 32/Jan/2023?

@GENECIOFICIAL Em qual linha acontece o erro? A célula D4 está no formato de data ou texto?

@Andressa Cristina da Silva Para exportar os dados de toda a base, a macro deve selecionar cada registro antes da exportação. Isso pode ser feito com os membros de MailMergeDataSource. Veja se assim resolve, Sub SalvaPDFsIndividuais() Const Caminho = "C:\Users\cm-co\Documents\Documentos greve\Nota Técnica\" Dim Conta As Long Dim Nome As String Dim Base As MailMergeDataSource Set Base = ThisDocument.MailMerge.DataSource Base.ActiveRecord = wdFirstRecord For Conta = 1 To Base.RecordCount Nome = Base.DataFields("Nome_do_recebedor").Value Call ThisDocument.ExportAsFixedFormat( _ OutputFileName:=Caminho & Nome & Conta, _ ExportFormat:=wdExportFormatPDF, _ Range:=wdExportAllDocument) Base.ActiveRecord = wdNextRecord Next Conta End Sub

Veja se assim resolve, Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$10" Then [D4].Value = Sequencia([D4]) End If End Sub Function Sequencia(Celula As Range) As String Dim Contador As Long Dim Ano As Integer Dim Valor As Variant Dim Mes As String Dim MesAtual As String MesAtual = MonthName(Month(Date), True) Valor = Split(Celula.Value, "/") Contador = Valor(0) Ano = Valor(2) Mes = MonthName(Month( _ DateSerial(Ano, Int(Valor(1)), 1)), True) If Year(Date) <> Ano Then Contador = 1 Mes = MesAtual Ano = Year(Date) Else If Mes <> MesAtual Then Mes = MesAtual End If Contador = Contador + 1 End If Sequencia = Format(Contador, "00") & "/" & Mes & "/" & Ano End Function

@RickJF1976 Outra forma de fazer é com macro, assim será compatível com qualquer versão do Excel. Para testar o código selecione a planilha do Acompanhamento e digite Alt+F11 para abrir o editar de macro. Crie um novo módulo no menu Inserir > Módulo e cole o código. Deve ficar assim, Selecione a sub Executa e F5 para rodar. Os ausentes vão aparecer na coluna AH. Se assim resolver, a macro pode ser usada para criar a capa e processar todas as outras colunas, aí é só passar os argumentos para a sub. Sub Executa() Call Ausentes([B6:B34], [AH6]) End Sub Sub Ausentes(Area As Range, Destino As Range) Dim Minimo As Long Dim Maximo As Long Dim Numero As Long Minimo = WorksheetFunction.Min(Area) + 1 Maximo = WorksheetFunction.Max(Area) - 1 For Numero = Minimo To Maximo If Area.Find( _ What:=Numero, _ LookIn:=xlValues, _ LookAt:=xlWhole) _ Is Nothing Then Destino.Value = Numero Set Destino = Destino(2) End If Next Numero End Sub

@William Medeiros A fórmula é como comentei no primeiro post. E a tabela onde PROCV faz busca deve ter o link completo na coluna. Porém lá na coluna LINK só tem o texto IMAGEM, então você deve editar a tabela para ficar com o endereço. Por exemplo, para buscar uma imagem aqui do fórum, a fórmula ficaria assim, =HIPERLINK("https://www.clubedohardware.com.br/uploads/logos/logo-cdh-1x.png") No seu caso em vez de HIPERLINK receber o endereço direito é o PROCV que vai retornar.

@William Medeiros Assim não vai abir mesmo já que seu PROCV só está retornando o texto IMAGEM e não o endereço completo do arquivo. A fórmula HIPERLINK deve receber o endereço completo https://www.mundoboaforma... etc.

Essa é uma fórmula matricial e em algumas versões do excel é necessário editar e entrar com o comando CTRL+SHIFT+ENTER.

@lcscabral Para a média você pode usar a fórmula MÉDIASE com o critério diferente de zero. No mínimo também pode ter a condição, =MÉDIASE(G7:G37;"<>0") =MÍNIMO(SE(G7:G37<>0;G7:G37))

Assim vai passar para Range a string local_teste e não o valor da variável. O que quer dizer com "localizar um intervalo"? Se possível anexe a planilha, pode ser com dados fictícios.

@batista_fb Seria possível com a fórmula CONT.SE se o formato fosse texto em vez de data. Assim fica no formato texto para pegar as que terminam com 54, =SOMA(--ÉNÚM(LOCALIZAR("*54";TEXTO(A5:C37;"HH:MM"))))

@Matheus Patrick Se a string começa sempre com dois caracteres como no exemplo, você pode usar as fórmulas de string para começar a partir do terceiro. Depois é só identificar a posição da vírgula ou remover os três últimos dígitos caso o número esteja sempre no mesmo padrão.

@William Medeiros Para abrir um link web comece com http, ou o Excel pode mostrar uma mensagem de endereço inválido. Caso não tenha é só concatenar, p.ex, =HIPERLINK("http://"&PROCV(C1;TABELA;2;0)) Se ainda não conseguiu resolver favor anexar um exemplo da planilha aqui no fórum.

O arquivo é outra planilha salva no seu computador?

Aí está salvado sempre o arquivo com o mesmo nome, veja que a macro só busca os valores de Cells(2, 1) e Cells(2, 2).

@William Medeiros Não abri o vídeo, mas se entendi o que quer fazer é buscar um link com PROCV e deixá-lo ativo. Se for isso aplique a fórmula HIPERLINK, p.ex, =HIPERLINK(PROCV(C1;TABELA;2;0))

@RickJF1976 Veja se assim resolve, a fórmula é compatível com as versões de Excel que comentei. =CLASSIFICAR(SE(CONT.SE(B6:B34;SEQUÊNCIA(MÁXIMO(B6:B34)-MÍNIMO(B6:B34)-1;;MÍNIMO(B6:B34)+1))=0;SEQUÊNCIA(MÁXIMO(B6:B34)-MÍNIMO(B6:B34)-1;;MÍNIMO(B6:B34)+1);""))

@RickJF1976 No caso da coluna #001 a sequencia que deve ser gerada seria assim? Se for isso essas fórmulas funcionam no Excel 365 e 2021.

@Lucas Furlaneto A coluna A está no formato texto. Em vez de concatenar você pode converter para data e aplicar a formatação, =TEXTO(DATA.VALOR(A3);"DD/MM")

@welingtonclube Veja se assim resolve, A fórmula para a primeira tabela ficaria assim, =CONTANUMERO(B3:K12;'Banco De Dados'!B2:K2;P2) Function ContaNumero( _ Parte As Range, LinhaBD As Range, Numero As Long) As Long Dim Area As Range Dim Conta As Long Dim Valor As Long For Each Area In Parte.Rows Valor = Evaluate("SUM(COUNTIF('" & _ Area.Worksheet.Name & "'!" & Area.Address & _ " ,'" & LinhaBD.Worksheet.Name & _ "'!" & LinhaBD.Address & "))") If Valor = Numero Then Conta = Conta + 1 End If Next Area ContaNumero = Conta End Function

@Fabricio4965 Modifique o título das colunas. Em vez de "0 a 17 anos", "18 a 29 anos", etc, coloque: 0, 18, 30, 50, 70 e 76. Cole a fórmula em F16 e arraste, =PROCH(E16;$J$8:$O$12;CORRESP(D16;$I$9:$I$12)+1)

@UmAmigo O valor vem como [List] porque é referente a um conjunto de valores ou outra tabela. Modifiquei o código para criar uma tabela com esses registros, veja se resolve, Sub ImportaMinhaReceita(CNPJ As String) Dim FormulaCNPJ As String Dim FormulaCNAES As String Dim PlanCNPJ As Worksheet Dim PlanCNAES As Worksheet CNPJ = Format(CNPJ, """""00"".""000"".""000""/""0000-00") FormulaCNPJ = "let" & Chr(13) & "" & Chr(10) & _ "Source = Json.Document(Web.Contents(""https://minhareceita.org/" & CNPJ & """))," & _ Chr(13) & "" & Chr(10) & "#""Converted to Table"" = Record.ToTable(Source)" & Chr(13) & _ "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "#""Converted to Table""" FormulaCNAES = "let" & Chr(13) & "" & Chr(10) & _ "Source = Json.Document(Web.Contents(""https://minhareceita.org/" & CNPJ & """))," & _ Chr(13) & "" & Chr(10) & "#""Converted to Table"" = Record.ToTable(Source)," & Chr(13) & _ "" & Chr(10) & "Value1 = #""Converted to Table""{24}[Value]," & Chr(13) & "" & Chr(10) & _ "#""Converted to Table1"" = Table.FromList(Value1, Splitter.SplitByNothing(), null, null, ExtraValues.Error)," & _ Chr(13) & "" & Chr(10) & "#""Expanded Column1"" = Table.ExpandRecordColumn" & _ "(#""Converted to Table1"", ""Column1"", {""codigo"", ""descricao""}, {""Column1.codigo"", ""Column1.descricao""})" & _ Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "#""Expanded Column1""" On Error Resume Next ThisWorkbook.Queries("ConsultaCNPJ").Delete ThisWorkbook.Queries("ConsultaCNAES").Delete Application.DisplayAlerts = False ThisWorkbook.Sheets("TBL_CNPJ").Delete ThisWorkbook.Sheets("TBL_CNAES").Delete Application.DisplayAlerts = True On Error GoTo 0 Set PlanCNPJ = ThisWorkbook.Sheets.Add PlanCNPJ.Name = "TBL_CNPJ" Set PlanCNAES = ThisWorkbook.Sheets.Add PlanCNAES.Name = "TBL_CNAES" Call ThisWorkbook.Queries.Add(Name:="ConsultaCNPJ", Formula:=FormulaCNPJ) Call ThisWorkbook.Queries.Add(Name:="ConsultaCNAES", Formula:=FormulaCNAES) With PlanCNPJ.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;" & _ " Data Source=$Workbook$;Location=ConsultaCNPJ;Extended Properties=""""" _ , Destination:=PlanCNPJ.[A1]).QueryTable .CommandType = xlCmdSql .CommandText = Array("SELECT * FROM [ConsultaCNPJ]") .ListObject.DisplayName = "ConsultaCNPJ" .Refresh BackgroundQuery:=False End With With PlanCNAES.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;" & _ "Data Source=$Workbook$;Location=ConsultaCNAES;Extended Properties=""""" _ , Destination:=PlanCNAES.[A1]).QueryTable .CommandType = xlCmdSql .CommandText = Array("SELECT * FROM [ConsultaCNAES]") .ListObject.DisplayName = "ConsultaCNAES" .Refresh BackgroundQuery:=False End With End Sub

@Martti Se a outra solução também serve então ela é melhor. Achei que gostaria de criar uma tabela com os dados em cada coluna: Bairro, Rua, etc. Mas como era algo mais simples então acho que não devia usar o meu código que perde em processamento com um loop que coloquei só pra isso.