Notifications

Clear all

SELECT EM VBA SELECIONANDO COLUNAS

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

6 Posts

2 Usuários

0 Reactions

1,728 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Boa noite, tenho uma duvida:
No SQL quando temos varias colunas, damos um select atribuindo X condições, e retormos somente a coluna desejada como mostra meu exemplo:

SELECT * FROM Persons WHERE City='Sandnes'

Onde vai me retornar 1 coluna PERSONS onde o a coluna CITY for Sandnes

Gostaria de fazer o mesmo em VBA

eu consegui fazer somente um fltro onde traz todas as colunas:

Sub FILTRAR()
Range("BASE!A:J").AdvancedFilter Action:=xlFilterCopy, criteriarange:=Range("RElATORIO!Criterios2"), copytorange:=Range("RElATORIO!A8"), unique:=False
End Sub

Neste caso vem todas as colunas dentro dos critérios que eu especifiquei.

Resumindo.

Gostaria de trazer somente as colunas q eu desejar dentro de uma pasta na minha worksheet.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/07/2012 8:22 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Bom dia!!

Que tal usar o Gravador de Macro ....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 18/07/2012 5:52 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Desculpa mais eu realmente não entendi o que vc disse.. eu sei usar macro.. mais como eu faria isso??

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 20/07/2012 11:17 pm

Robert

(@robert)

Posts: 561

Honorable Member

Hector,
Bom dia !

Veja se este LINK pode te ajudar ?

http://guiadoexcel.com.br/como-gravar-macro-no-excel

Até mais,

VlW !

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

Postado : 21/07/2012 6:49 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Boa tarde!!

Tente...

Sub Copiar_AleVBA()
    Set rd = Worksheets("BASE")
    Set wd = Worksheets("RELATORIO")
     
    For i = 1 To rd.Range("J65536").End(xlUp).Row
        If Cells(i, 10) = "Sandnes" Then
            wd.Cells(wd.Range("A65536").End(xlUp).Row + 1, 1) = rd.Cells(i, 10)
        End If
    Next i
End Sub