na epoca tentei de tudo menos TintAndShade, teve outros padrões tbm mas dependendo da cor não funciona muito bem o processo principalmente as cores...

sim, por macro é possivel sim mas tem que ter mais detalhes da planilha, como vai ser feita a escolha ? seria algo como isso Sub ColunasAS(ByVal Va...

certo reinaldo entendi a macro ela troca entre as cores "pré" estabelecidas em intervalo de tempo eu não quero ter que usar sar cores fixa ...

ola ronaldo e issamu agradeço pela atenção issamu , matematica comum não funciona muito bem, as cores para ter uma tonalização correta tem que ser c...

concordo com o fernando, o certo seria mudar o modo de operação ou criar uma fatura unica e total de onde vai sendo subtraindo oq o cliente pagar, e...

Sim é o primeiro passo mas pela quantidade de informação a dar entrada e a pesquisar, não vejo como vc fugir muito de um formulario imagina em uma f...

dei uma olhada no arquivo achei um pouco confuso eu uso uma tabela em minha planilha para informar posição e tamanho de setores para a planilha ficar...

acredito que vc quer pegar a referecia de acordo com outra referencia tipo uma formula que implementei em minha planilha =SEERRO(ÍNDICE(INDIRETO(ÍND...

bem, vc pode usar a função find usar um for each na area onde tem os dados a serem pegos e com if analisar ou varias outras maneiras mas se vc já...

desculpa, eu não tinha entendido oq vc queria olha só a função que vc postou funciona sim, mas parece que somente é automatica com linhas nas colun...

pelo que entendi da função é pq vc colocou um if dentro do outro If cell.Rows.Hidden = False Then If cell.Columns.Hidden = False Then total = total ...

quando tentei usar o libre tbm reparei que as dependências não são atualizadas quando se faz mudanças é um programa muito bom, quando está tudo cert...

Dim rang As Range Set rang = Range("A1:A3") For Each Valor In rang if Valor = ano then ... Next cell For Each vai apenas varrer o local e...

pode tentar essa macro Sub SortALLSheets() 'Ordena as Abas Alfabeticamente Dim iSheet As Long, iBefore As Long For iSheet = 1 To ActiveWork...