Relatório VB

[Brunolerin 0]

de tutorial em tutoria estou montando algo aqui no trabalho, mas gostaria de sanar as ultimas dúvida(espero)rs.. no código abaixo, pois nele q está citando as dúvidas:

 

 

Sub relatorio()
lin = 6
Linha = 2
Do Until Sheets("RCC").Cells(lin, 1) = ""
   If Sheets("RCC").Cells(lin, Gostaria de definir a coluna de acordo com uma célula na tabela) = "Aqui gostaria q fosse baseado em uma célula da tabela" Then
       Sheets("RCCPRINT").Cells(Linha, 1) = Sheets("RCC").Cells(lin, 1)

       Linha = Linha + 1
       End If
       lin = lin + 1


Loop
End Sub

[KhaosDoctor 242]

Use o

, por favor, para expressar códigos.

 

Não entendi sua dúvida, me explique o que o programa faz e o que ele tem que fazer.

[Brunolerin 0]

Ele extrai de uma base de dados formando uma lista baseada no q foi estipulado pelo critério.

Tirei esse tutorial daqui:

Quanto ao q quero está em vermelho no código.

[Brunolerin 0]

Deu certo!!!

 

Sub relatorio()

 

Dim lin As Integer

Dim Linha As Integer

Dim Col As Integer

 

lin = 6

Linha = 7

Col = Sheets("RCCPRINT").Cells(2, 16)

 

Do Until Sheets("RCC").Cells(lin, 4) = ""

If Sheets("RCC").Cells(lin, Col) <> "" Then

Sheets("RCCPRINT").Cells(Linha, 1) = Sheets("RCC").Cells(lin, 1)

Sheets("RCCPRINT").Cells(Linha, 2) = Sheets("RCC").Cells(lin, 2)

Sheets("RCCPRINT").Cells(Linha, 3) = Sheets("RCC").Cells(lin, 57)

Linha = Linha + 1

End If

 

lin = lin + 1

 

Loop

End Sub