Guru do Excel + Power BI

Entendi.

Você poderia disponibilizar aqui no fórum uma amostra do seu arquivo Excel com a Validação instalada ?

Então coloque em B5 ~~~> =A2.

Não é necessária a Validação e nem macro.

Olá, Alex.

Com base na sua descrição podemos concluir que B5 sempre será igual a A2. É isso?

Antes de instalar o código no módulo da planilha de interesse formate o intervalo B13:K100 como Texto . Private Sub Worksheet_Change(ByVal Target As Range) Dim str As String, n As String If Target.Column <> 2 Or Len(Target.Value) <> 20 Then Exit Sub n = Target.Value str = Left(n, 7) & "-&qu...

osvaldomp escreveu: ↑31 Jan 2023 às 08:00 Retorne se houver interesse nessa solução e informe a(s) coluna(s) em que irá inserir os números.

luizmaglia escreveu: ↑31 Jan 2023 às 08:15 Eu quero retornar o numero da linha da coluna C (no caso a linha 5).
Sim, isso já sabemos e, como comentei antes, as sugestões que passei retornam 5.
Você precisa de mais ajuda?

Olá, Albino.

Talvez por formatação não seja possível devido a quantidade de dígitos ser superior a 15.

No entanto, é possível inserir o hífen e os pontos via macro.

Retorne se houver interesse nessa solução e informe a(s) coluna(s) em que irá inserir os números.

Ambos retornam 5.

MsgBox [C:C].SpecialCells(-4123, 16).Row - 1

MsgBox Cells(Rows.Count, 2).End(3).Row

Salve, Jorge. Veja se o código abaixo pode ajudar. Sub SeparaContatos() Dim cc As Range, i As Long, k As Long, LR As Long, x As Variant With Sheets("CONTATOS") .Cells.Clear .[A2] = 1: .[A2].AutoFill Destination:=.[A2].Resize((Application.CountA(Sheets("DADOS").[A:A]) - 1) * 5), T...

Desculpe, falha minha.

Remova também as duas ocorrências de sh #(mantenha o ponto que está à direita).

... redimensionar somente uma imagem ... que estiver selecionada ... Sub AjustaTamanho() With Selection .Top = sh.TopLeftCell.Top .Left = sh.TopLeftCell.Left .ShapeRange.Height = 130 .ShapeRange.Width = 130 End With End Sub Mantive no seu código somente as linhas de interesse. Selecione manualmente...

Olá, Luiz. Veja se este código lhe atende. Sub seqV2() Dim UL As Long, lin As Long, k As Long, i As Long, caminho As String, ShpImagem As Shape Application.ScreenUpdating = False Planilha1.DrawingObjects.delete With Sheets("LISTA") UL = .Cells(Rows.Rows.Count, 2).End(xlUp).Row Set ShpImage...

Olá, Luiz. Sugestão: anexe diretamente aqui no fórum uma amostra do seu arquivo Excel com as imagens e com o código instalado. Deixe de lado um momento o seu código e descreva com exatidão na própria planilha o que você deseja fazer via macro. obs. para facilitar a leitura, ao postar códigos VBA, se...

Olá, Patrícia.

Cole uma cópia da fórmula abaixo em D3 e arraste para baixo.

=SE(E(B2=B3;INT(C2)=INT(C3));C3-C2;"")

Olá, Vicente.

Ajustei as fórmulas no arquivo anexado.

Em F6 =CONT.SE(DESLOC(A$1;CORRESP(F5&"*";A:A;0)-1;;SEERRO(CORRESP(ESQUERDA(F5;3)&"*";INDIRETO("A"&CORRESP(F5&"*";A:A;0)+1&":A100");0);100-CORRESP(F5&"*";A:A;0)));200&"*") ## Em F7 =CONT.SE(DESLOC(A$1;CO...

Olá, Vicente.

"E nos casos de H16, K24 e N16, qual o retorno desejado ?" ~~~> me enganei, é K14 e não K24.
As células que citei acima se enquadram nas duas situações, então nesses casos, coloquei nas fórmulas para retornar REPETIDO/DUPLICADO.

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com 10 a 15 linhas com dados representativos. Coloque na própria planilha onde e como você deseja os resultados e na própria planilha explique como obteve os resultados. Explique por exemplo, de onde você tirou esses ...