Eu não sei se entendi muito bem a história do "dia fixo". Mas eu faria diferente. Deixaria duas linhas para cada dia do mês. Na linha super...

Dê uma testada nesta outra rotina, se quiser...

Só por curiosidade... As colunas desses dados não possuem títulos? Se possuem, quais seriam?

Se quiser, teste esta rotina.

Ou: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Cells(1, 1) = Replace(Target.Address, "$", &quo...

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Cells(1, 1) = Target.Address End Sub

Disponibilize um arquivo (xls/xlsx) do Excel com os dados desse balanço que vai facilitar a vida de quem se propuser a te ajudar...

Só por curiosidade... Os dados deste arquivo texto serão importados apenas uma vez ou serão importados várias vezes, rotineiramente?

guma, pelo que eu entendi o que vc quer é gerar um relatório parecido com esse da imagem em arquivo txt. É isso? Ou seria somente um arquivo com diver...

Você pode usar a instrução SELECT CASE ao invés de 15 IFs Copy A2:M2 SELECT CASE B2 CASE "exemplo" paste planilha "X" CA...

Só por curiosidade... quando você executa a macro pela segunda vez as linhas que já foram ocultas da primeira vez continuam ocultas? Ao rodar a macr...

E você esquecer de contar os arquivos e o diretório contiver mais de 30? Seriam excluídos apenas 10 ou tantos quantos fossem necessário até restarem s...

Últimas planilhas modificadas você quer dizer os últimos arquivos (*.xls, *.xlsx) que sofreram atualização? Os arquivos manipulados mais recentemente?...

Eu entendi que é importar o arquivo *.txt inteiro para uma célula. Se for isso, segue o código... Public Sub ImportarArqTextoGrandes() Dim Arqu...

Pelo que eu entendi, o que se quer é pintar de verde os dias de férias não coincidentes dos funcionários. E quando houver coincidência dos dias de fé...