Wendell Menezes

Olá Nocte, Não tenho certeza se o código abaixo funciona em versões anterioriores ao Excel 2010, mas deu acerto na minha máquina: Sub Group()Dim Color As Long, r As Long, x As LongColor = 13369344For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(r, 1).DisplayFormat.Font.Color = Color And Cells(r - 1, 1).DisplayFormat.Font.Color = 0 Then x = r If Cells(r, 1).DisplayFormat.Font.Color = Color And Cells(r + 1, 1).DisplayFormat.Font.Color = 0 Then Rows(x & ":" & r).Group End IfNextEnd Sub Caso não funcione sugiro que nos diga exatamente qual é o critério aplicado na sua planilha para formatar a cor da fonte. Com base no seu seu segundo exemplo o código ficaria assim: Sub Group_2()Dim r As Long, x As LongFor r = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(r, 3) = "s" And Cells(r - 1, 3) = "" Then x = r If Cells(r, 3) = "s" And Cells(r + 1, 3) = "" Then Rows(x & ":" & r).Group End IfNextEnd Sub Abraço

Olá, Experimente esse código: Sub Group()Dim Color As Long, r As Long, x As LongColor = 16711680For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(r, 1).Font.Color = Color And Cells(r - 1, 1).Font.Color = 0 Then x = r If Cells(r, 1).Font.Color = Color And Cells(r + 1, 1).Font.Color = 0 Then Rows(x & ":" & r).Group End IfNextEnd Sub Abraço

Olá, Pode postar a sua planilha ou um exemplo similar para trabalharmos nela? Obrigado

Olá, Substituí as letras por números e funcionou da mesma maneira. Se ainda assim não funcionar no seu arquivo sugiro postar ele aqui e apontar onde exatamente gostaria que a fórmula estivesse. Abraço Mauro Silva_730544 - W20150915.xlsx

Olá, Editei a resposta anterior para especificar como a cor é selecionada. Se for de seu interesse sugiro pesquisar sobre formatação condicional, há várias outras coisas que podem ser feitas com essa funcionalidade. Abraço

Olá, A coluna H repete os valores da tabela que o PROCV faz a busca e adiciona o número de vezes que o ele aparece nas células acima dele mesmo. Dessa forma, se sua tabela tiver: JoãoMariaJoão A coluna H será: João1Maria1João2 Com isso não temos mais valores repitidos e o PROCV pode encontrar exatamente o valor procurado. Abraço

Olá, Veja se um desses dois exemplos atendem a sua necessidade. Abraço Mauro Silva_730544 - W20150914.xlsx

Olá @ffilgueira1000 Veja se consegue seguir esse passo a passo: 1) Crie um módulo na sua planilha e cole o código da função abaixo: Public Function IsSelected(ByVal Target As Range) As Boolean Application.Volatile If Target.Row = ActiveCell.Row Or Target.Column = ActiveCell.Column Then IsSelected = True End IfEnd Function 2) Clique botão direito no nome da aba que você quer aplicar essa formatação (Como se fosse renomeá-la) e depois clique em Exibir Código. Em seguida cole o código abaixo: Private Sub Worksheet_SelectionChange(ByVal Target As Range) IsSelected Target CalculateEnd Sub 3) Clique no intervalo de células que deseja aplicar essa formatação (no meu exemplo B10:H30), clique no botão Formatação Condicional (Disponível na guia Página Inicial) e depois em Nova Regra. Agora selecione a opção Usar uma fórmula para determinar quais células devem ser formatadas e forneça o seguinte valor: =IsSelected(B10) Obs: Substitua B10 pela primeira célula do seu intervalo 4) Clique em formatar e na janela que abrir navegue até a guia Preenchimento para selecionar a cor desejada.

Olá, Veja se era algo mais ou menos assim que precisava. Abraço 13_09_15_Destacar linhas e colunas da céula selecionada_Wendell.zip

Olá, Experimente esse código: Sub Dany_Cardoso_504333()Dim FSO As Object, File As ObjectDim Folder As String, NewName As StringSet FSO = CreateObject("Scripting.FileSystemObject")Folder = "C:\Users\Wendell\Desktop\New folder\"NewName = "iad_062015.xlsx"For Each File In FSO.GetFolder(Folder).Files If Left(LCase(Mid(File, InStrRev(File, "\") + 1)), 3) = "iad" Then Name File As Folder & NewName Exit For End IfNextEnd Sub Atualize as variáveis Folder e NewName conforme desejar. Abraço

Olá, Veja se é isso que está procurando. Abraço excemplo jackson.xlsx

Olá, Veja se é isso que precisa. Abraço Pasta1.zip

Olá Felipe, Veja se consegue adaptar esse exemplo de formatação condicinal que coloquei na sua planilha. Ele pinta de amarelo as datas que estão vencidas ou que irão vencer dentro de 10 dias corridos. Abraço TESTE (1).rar

Oi Felippe, Você poderia postar o seu arquivo word e a macro que você está utilizando? Isso nos ajuda a dar uma resposta mais próxima do que você precisa. Obrigado

Boa tarde, Experimente pressionar CTRL + SHIFT + ( ou Clique no botão circulado em vermelho da imagem anexa. Abraço

Boa tarde MooM, Se você ocultar o form com o comando abaixo os dados que estiverem preenchidos serão guardados no formulário. SeuUserFormAqui.Hide Nesse case você pode: 1. Fechar o formulário sempre pelo botão "X" no canto superior direito da janela. 2. Incluir uma rotina que limpe o form quando ele é inicializado, como por exemplo: Private Sub UserForm_Initialize() TextBox1.Value = "" TextBox2.Value = ""End Sub Se isso não ajudar poste a sua planilnha aqui e forneça mais detalhes do problema. Abraços

Olá, Acredito que seria mais fácil substituir o código por esse: If Target.Row > 2 And Target.Column = 10 Then Target.Offset(0, 1).Formula = Replace(Cells(2, 11).Formula, "2", Target.Row)End If Se alguma célula da coluna de número 10 for alterada a fórmula da coluna 11 será replicada na linha em questão.

Selection.Delete Shift:=xlUp Windows("Pasta1").Activate ActiveWindow.Close False Range("F15").Select End Sub

Boa tarde Grazi, Poste sua planilha em algum site como o Sendspace por exemplo, e escreva nela mais detalhes do que o loop deverá fazer para você. Abraços

Boa noite xxjonesxx, Seja bem vindo ao fórum. Apenas como recomendação. Veja que este tópico é de anos atrás, a probabilidade dos usuários desta época responderam sua pergunta é baixa. É muito melhor você criar um tópico para você mesmo. ------------------------------------------------------------- Quanto a sua pergunta. Tente colocar em D1 da Plan1: e E1 da Plan1: Depos arraste as fórmulas e veja se atende sua necessidade. Abraços

Boa noite, Em "Esta Pasta de Trabalho" coloque o seguinte código: Em cada planilha Teste, coloque este código: Você só conseguirá acessar as planilhas com VBA agora, então talvez seja melhor substituir os hiperlinks por códigos como este: Abraços