Porem não vale para células coloridas via formatação condicional

Experimente assim: Sub atualizar_resultado() Dim data_ini As Date Dim data_fin As Date data_ini = Format(Range("B4"), "mm/dd/yyyy&quo...

ericks, Boa tarde! Tente adaptar esse código: Sub Filtro() Plan1.Range("A1:H100").ClearContents DataIni = Inpu...

Boa tarde!! Sim!!! Use a pesquisa do fórum!!! Att

Boa tarde!!! Eu não entendi muito bem, seria as células com formatação do excel ao usar tal UDF a mesma contar a cor da formatação? Att

Boa tarde!! Veja se ajuda. Att

Boa tarde!! Já tentou usar ? Selection.SpecialCells(xlCellTypeVisible).Select Selection.copy Att

Bom dia!! Tem como mandar um arquivo modelo para verificarmos a disposição dos dados de ambos os arquivos? Att

Bom dia!! Leia:

Uma possibilidade

Bom dia!! Tente com a desloc. =SOMA(DESLOC($I$2:$I$293;(LINS($I$2:I2)-1)*2;;2)) Att

Troque sua rotina pela a abaixo : Sub Preenche_ListBox() Dim linha As Integer Dim conta_Presentes As Integer Dim textocelula As String ...

Boa noite silva_jmp Fiz o que vc pediu usando Validação de Dados. 08_07_14_RESTRINGIR DADOS com Validação de Dados-Patropi.zip Dê retorno. []s

Boa noite!! Eu não baixei seu anexo. Tente algo assim.. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, r As Range, msg As...