OreiaG

É que o seu comentário não foi preciso e assim permite duas interpretações: uma "aparecer o nome apenas na tabela B" e a outra é "aparecer o esporte apenas na tabela B". Eu interpretei pela primeira condição. Para o que você quis dizer, melhor seria: "Assim não retorna o esporte no caso de o esporte aparecer apenas na tabela B".

Sim, retorna!

Sim, retorna!

=seerro(procv(g4;a3:d13;4;0);seerro(procv(g4;k3:n13;4;0);""))

Exemplos do uso de vídeos manipulados no link abaixo deep obama

atual year(today()-1) correto year(today())-1

=substituir(pri.maiúscula(texto(a1;"dddd"));"F";"f")

@Isabela_Carvalho Veja se este atende. Sub DeletaLinhas() Sheets("Plan3").Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub

A macro só limpa a coluna F se F3 não estiver vazia. Possivelmente F3 está vazia e abaixo dela existem dados, e nesse caso a macro não limpa. Se for esse o caso, no lugar destas 3 linhas If Sheets("Principal").Range("F3").Value <> "" Then Sheets("Principal").Range("F3:F" & Sheets("Principal").Cells(Rows.Count, 6).End(xlUp).Row).Value = "" End If coloque esta Sheets("Principal").Range("F3:F500") = ""

Sub CopiarConteúdoDeColuna() Dim d As Range, k As Long, x As Long If Sheets("Principal").Range("F3").Value <> "" Then Sheets("Principal").Range("F3:F" & Sheets("Principal").Cells(Rows.Count, 6).End(xlUp).Row).Value = "" End If With Sheets("Dados") For Each d In .Range("U2:U" & .Cells(Rows.Count, 21).End(xlUp).Row) k = InStr(d.Value, "C") x = InStr(k, d.Value, "|") Sheets("Principal").Cells(Rows.Count, 6).End(xlUp).Offset(1).Value = Mid(d.Value, k, x - k) Next d End With End Sub

Veja se é isso. Sub CopiarConteúdoDeColuna() Dim d As Range, k As Long, x As Long With Sheets("Dados") For Each d In .Range("U2:U" & .Cells(Rows.Count, 21).End(xlUp).Row) k = InStr(d.Value, "C") x = InStr(k, d.Value, "|") Sheets("Principal").Cells(Rows.Count, 6).End(xlUp).Offset(1).Value = Mid(d.Value, k, x - k) Next d End With End Sub

veja se ajuda. =se(ou(e(e3>=$b7;e3=$b7;e4

Veja se ajuda. Sub InsereQuebrasDePágs() Dim k As Long ActiveSheet.ResetAllPageBreaks Do While Application.CountA(Cells(k + 1, 1).Resize(54)) > 0 ActiveSheet.HPageBreaks.Add Cells(k + 1 + 54, 1) k = k + 54 Loop End Sub

veja se esta ajuda. =se(ou(b7="";j7="");"";se(diatrabalho(j7;1)>diatrabalho(b7;-3);diatrabalho(b7;-3);diatrabalho(j7;1)))

veja se esta ajuda. =SE(E($G7-$F7<J$6;DATAM($G7-$F7;$I7)>=J$6);$H7/$I7;"")