Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
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.
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
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.