Este fórum está sendo desativado

Cole em B2 e arraste para baixo.

=-PROC(1;-DIREITA(A2;{1;2;3;4;5;6;7;8;9}))

Veja se ajuda. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 2 Or Target.Value = "" Then Exit Sub If Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = "" Application.EnableEvents = True End...

Abaixo da última postagem do seu tópico clique em + Resposta / Adicionar um anexo / Selecione o arquivo

Sugestão - disponibilize uma amostra do seu arquivo Excel com o resultado desejado feito manualmente, com o que você conseguiu até agora e quais as tentativas que você fez para adaptar e que não funcionaram.

Tenho um pouco de conhecimento em VBA. Tente adaptar. O código abaixo insere uma figura no comentário da célula ativa e redimensiona o shape do comentário. O endereço do arquivo da figura deve estar na própria célula. [code]Sub FotoNoComentário() Dim rng As Range, shp As Comment Set rng = ActiveCel...

A fórmula abaixo retorna a data do domingo seguinte à data colocada em A1.

=A1-DIA.DA.SEMANA(A1)+8

Experimente esta: Function Conta3() Dim r As Range Application.Volatile For Each r In Range("A5:A" & Cells(Rows.Count, 1).End(3).Row) If r.Value = 3 And r.Interior.Color = 65535 Then Conta3 = Conta3 + 1 Next r End Function E em qualquer célula vazia coloque =conta3() Anexei uma cópia d...

Veja se ajuda. O código abaixo funciona para ajustar a altura somente da linha 10. Instale o código abaixo no módulo da planilha "Formulário", assim: 1. copie o código daqui 2. clique com o direito na guia daquela planilha e escolha 'Exibir código' 3. cole o código na janela em branco que ...

Olá, Marcelo. Segue uma alternativa sem utilizar Function . Coloque o código abaixo no lugar do código atual vinculado ao botão " limpar ". Private Sub CommandButton1_Click() Dim controle As Control For Each controle In Me.Controls If TypeName(controle) = "TextBox" Or TypeName(co...

sugestão - disponibilize uma amostra do seu arquivo Excel.

Como no intervalo (abril) há fórmulas que retornam vazio e o Excel considera essas células com valor zero, então fica 0/abril corresponde a 31/março , por isso a Formatação Condicional pinta as células "vazias". Para contornar, acrescente a condição célula>0 , assim: =E(H4>0;DATA($F$2;MÊS(...

Anexa outra opção.

Experimente esta, que considera dia, mês e ano.

=DATA($F$2;MÊS(1&$N$2);H4)=Calendário!$D$10

Solução via macro. Instale o código abaixo no módulo da planilha, assim: 1. copie o código daqui 2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código' 3. cole o código na janela em branco que vai se abrir 4. feito! 'Alt+Q' para retornar para a planilha e testar Funciona ...

1. na planilha Janeiro-Fevereiro selecione H4:N9
2. menu Formatação Condicional / Nova Regra / Usar uma fórmula ...
3. na caixa de fórmula cole esta fórmula ~~~> =H4=dia(Calendário!$D$10)
4. formate como desejar / OK / OK

Olá, Cabral.
Se você postou no tópico correto e está tentando aproveitar o código que passei, então sugiro que você disponibilize uma amostra do seu arquivo Excel com o código instalado, coloque manualmente e explique o resultado desejado.

Veja se ajuda. Coloque na matriz Array os nomes das planilhas nas quais você quer que o código CopiaOutraPlanilha2 seja executado. Sub RodarTodasV2() Dim sht As Worksheet For Each sht In Worksheets(Array("equipe1", "equipe2", "equipe3")) Call CopiaOutraPlanilha2 Next sh...

Experimente: Sub OrganizaDados() Dim col As Long, LC As Long, LR As Long LC = Cells(4, Columns.Count).End(1).Column For col = 1 To LC LR = Cells(Rows.Count, col).End(3).Row Sheets("Plan2").Cells(Rows.Count, 8).End(3)(2).Resize(LR - 3).Value = _ Cells(4, col).Resize(LR - 3).Value Next col E...