Luiz Mauricio de Almeida

Prezados, Boa tarde. Não sei se este é o tópico correto para a minha dúvida, mas gostaria de saber o seguinte: Como faço pra deslocar uma célula para a direita que contém um filtro? Parte do meu código está assim: ActiveSheet.Range("$A$1:$Microsoft862").AutoFilter Field:=4, Criteria1:="K156" Range("D1").Select Dim CONTADOR1 As Long For CONTADOR1 = 1 To 439000 ActiveCell.Offset(1, 0).Select If Not ActiveCell.Rows.EntireRow.Hidden Then Exit For Next ActiveCell.Offset(0, 3).Select Eu quero deslocar a 3 célula para a direita. Não sei se tem como fazer isso. Desde já, agradeço.

O modelo é o seguinte: |C100|1|0||65|00|1|67590|52180602709992000156650010000675901099520367|01062018|01062018|4623,12|0|0|0|4623,12|9|0|0|0|2120,18|343,36|0|0|0|68,34|314,67|0|0| Quero separar e deixar tudo em formato de texto. Sem desconfigurar o código de acesso da nota fiscal que é o valor que está em negrito. Obrigado.

Boa tarde. Estou trabalhando com o txt da EFD-Contribuições, e gostaria de separar o texto por colunas de acordo com cada pipe. Ocorre que em um dos campos existe o código de acesso da nota fiscal, e eu gostaria que ele ficasse inteiro e não em notação científica. Tem como eu manter esse código de acesso da NF como texto? Obrigado.

Boa tarde! Aproveitando o tópico, gostaria de saber como faço um "CountIf" em uma determinada coluna cujo valor esteja diferente de vazio, para assim eu poder fazer as fórmulas... Segue o exemplo que estou desenvolvendo: Range("I1").Select Dim CONTADOR10 As Long For CONTADOR10 = 1 To 48900 ActiveCell.Offset(1, 0).Select If Not ActiveCell.Rows.EntireRow.Hidden Then Exit For Next If Application.CountIf([G:G], IsNull) Then ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-2],'J100'!R3C6:R1048576C7,2,FALSE)" ActiveCell.Select Selection.Copy Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Application.CutCopyMode = False End If Desde já Agradeço.

@osvaldomp , Bom dia! Muito Obrigado pela ajuda! Deu certo aqui! Feliz Ano Novo para você e sua família!

@osvaldomp , Então, vou tentar explicar a ideia da planilha pra ver se fica melhor...rs Essa Planilha que tô elaborando é para verificar a apuração do IRPJ que extraio do arquivo "txt" da ECF. Funciona assim: a) Eu copio o "txt" para uma planilha denominada como "Base"; b) Depois de ter colado a informação, vou para outra planilha denominada como "PARTE A - LALUR". Nessa planilha, eu fiz uma macro padrão para pegar o Registro M300, M305 e M310 e colocá-los nos seus devidos campos; c) Após esse processo, eu gero uma macro mestre para colocar nomes em colunas, separar os períodos e tratar ela de uma maneira que fique visual. É ai nessa segunda parte (item c) que pode existir, ou não, os Registros M305 e M310. Isso porque, existem alguns clientes que geram esses registros e outros não geram. E eu gostaria de fazer uma planilha que abarcasse tanto as situações que ocorrem os Registros M305 e M310, quanto as que não ocorrem esses registros. De toda forma, a planilha está anexada para melhor compreensão. Obrigado. LALUR - PARTE A.rar

@osvaldomp , Boa tarde. Obrigado pelo retorno. Então, estou trabalhando com uma planilha que contém os Registros "M300", "M305" e "M310" , porém existe ocasiões que não existe os Registros "M305" e "M310". Dessa forma, gostaria de uma macro que fizesse o loop na coluna "D" e que se for encontrado o Reg. "M305" ou Reg. "M310", o filtro será ativado para eu poder excluir alguns valores constantes em outras linhas da planilha. Não sei se consegui ser claro. Obrigado, mais uma vez!

Pessoal, bom dia. Sou novo no fórum e nas aventuras do VBA. Gostaria de saber como faço um "loop" de maneira que ele fique limitado até a última linha visível preenchida. Veja abaixo como fiz o código: ActiveSheet.Range("$A$1:$L$10276").AutoFilter Field:=4, Criteria1:="<>" Do Until ActiveCell.Value = "M305" Or _ ActiveCell.Value = "M310" Dim BUSCA As Long For BUSCA = 1 To 48900 ActiveCell.Offset(1, 0).Select If Not ActiveCell.Rows.EntireRow.Hidden Then Exit For Next Loop Desde já agradeço.