Ir ao conteúdo
  • Cadastre-se

macro - excel


Aldeir jr

Posts recomendados

A macro é essa, ela abre um banco de dados, filtra e recorta volta a planilha principal e cola, só que não esta colando só o que esta filtrando. Se alguem puder me ajudar??

esta condição de erro que eu cito é caso não haja o criterio do fitro, a macro continua, não sei se ela esta correta, mas funciona. Gosto muito de mexer com macro mas aprendi sozinho, fuçando macros já protas.

Valeu

Dim I, J, LINHAC

On Error GoTo sair

Selection.AutoFilter Field:=3, Criteria1:="8321"

If Criteria1 = "" Then

On Error GoTo 0

On Error Resume Next

End If

If Range("A65536").End(xlUp).Row > 5 Then

I = Range("B65536").End(xlUp).Row

J = Range("A1").End(xlDown).Row

Range(Cells(J, 2), Cells(I, 103)).Cut

Windows("8321.xls").Activate

Sheets("LANÇAMENTO").Select

REEXIBIR

LINHAC = Range("G65536").End(xlUp).Offset(1, 0).Row

Cells(LINHAC, 7).Select

ActiveSheet.Paste

Windows("BANCO DE DADOS.xls").Activate

sair:

End If

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...