Este fórum está sendo desativado

Boa tarde Precisava de fazer um gráfico de Donut como o da figura, mas que a meta, a vermelho, estivesse do lado de fora. Não queria que a solução passasse por fazer dois gráficos e depois sobrepô-los, ou seja, queria igual ao da imagem com a meta do lado de fora. https://i.imgur.com/WlDcrTW.png É p...

Veja se ajuda:

=SOMARPRODUTO(--(NÃO(ÉERRO(LOCALIZAR("*azul*";A:A))));B:B)

babdallas escreveu: ↑26 Abr 2022 às 17:06 Qual o motivo de não usar o objeto Tabela?

@babdallas,

Muito obrigado, vou tentar com essa solução ver se dá para não trabalhar com o objeto tabela.

@babdallas,

Obrigado pela sua solução.
O Office é o 365, quando diz que a complexidade diminuiria um pouco, está a dizer que não teria que usar o objecto tabela? Seria fantástico.

Se for possível gostaria dessa solução do Office365.

Obrigado
Jorge

Veja se resulta assim: Sub MovePhoneNumber() Dim StartLin As Long Dim iRow As Long Dim lRow As Long Dim WsD As Worksheet Set WsD = Worksheets("Planilha1") lRow = WsD.Cells(Rows.Count, 1).End(xlUp).Row \ 2 + 2 StartLin = 3 For iRow = StartLin To lRow WsD.Cells(iRow - 1, 9) = WsD.Cells(iRow,...

@babdallas , Obrigado pela sua solução, mas a minha duvida não é relativamente ao calculo dos dias trabalhados na aba BD, mas sim calcular os valores que estão na aba CALCULOS, ou seja o total de dias uteis nas ausências e por mês, o total de dias uteis nas campanhas e por mês e o mesmo para as ava...

Boa tarde Gostaria de ter a vossa ajuda para o calculo de dias uteis, por cada mês, atendendo a determinados intervalos de datas. Assim, na aba "BD" tenho AUSENCIAS e respetiva data [AL], CAMPANHAS e respetivas datas [AP:AQ] e AVARIAS e respetivas datas [AX:AY]. Na aba "CALCULOS"...

@babdallas, @osvaldomp,

Muito obrigado a ambos,
Ambas as soluções funcionam na perfeição.

Obrigado

@babdallas , Dá-me erro em .Range("F1").Activate O que estou a fazer de errado? Código completo: Private Sub CopyCalendario_babdallas() Delete_CAL_babdallas WsCAL.Range("M17:U24").Copy With WsT .Range("F1").Activate With .Pictures.Paste(Link:=True) .Formula = "=CA...

@babdallas,

Obrigado pelo seu rearranjo da macro, contudo ela só copia o calendário para uma folha que esteja ativa, como refiro acima.
É possível eu estar com a folha "A" ativa e mandar copiar o calendário para a folha "B"?

Verifiquei agora que esta macro só corre sem erro se a Planilha "WsT" estiver ativa, é possível correr esta macro sem que a planilha "WsT" esteja ativa?

Agradeço desde já a ajuda.

Jorge

Veja se é isto que pretende

Não sei se entendi correctamente, mas tente:

=SOMA.SE.S(Tabela1[VALOR];Tabela1[VENCIMENTO];"<=" & HOJE()+E1)

Veja se é isso que pretende

@CAMILOALVES01 , Experimente assim If Application.WorksheetFunction.CountIf(Reg.Range("B8:B" & lUltimaLinhaAtiva), Ins.Cells(5, 3).Value) > 0 Then MsgBox "Este Código já existe , Digite Outro" Ins.Cells(5, 3).Select lsLimpaMovimento91 Exit Sub Else Reg.Cells(lUltimaLinhaAtiv...

@CAMILOALVES01,

Julgo que o erro se deve à tentativa de selecionar uma célula numa planilha que está invisível.
Em "Sub lsIncluir_FUNÇÃO" desabilite a instrução "Ins.Cells(5, 3).Select" e veja se resolve

Deixo aqui um arquivo com o que se pretende

@Inovacao, coloque um ficheiro exemplo, fica mais fácil para ajudar

Boa tarde Pedindo ajuda para tentar melhorar código gerado pelo gravador de macros, então é assim: Fiz a macro em baixo com recurso ao gravador de macros, sendo que ela serve para copiar um range de uma tab para outra tab, de forma a ficar dinâmico, ou seja, como se trata de um calendário sempre que...