Este fórum está sendo desativado

[IvanPi]

Olá pessoal!!

Estou usando o seguinte código abaixo:

Public Sub Imprimir_Geral()

Dim lRow As Long, lLop As Long


If MsgBox("Deseja imprimir todos os boletins?", vbYesNo + vbQuestion + vbDefaultButton2, "BOLETINS") = vbYes Then

lRow = shtBase.Cells(Cells.Rows.Count, "EK").End(xlUp).Row
shtBoletim.Activate

For lLop = 2 To lRow
shtBoletim.Range("W3").Value = shtBase.Cells(lLop, 1) <--------- ACHO QUE É AQUI QUE PRECISO ADEQUAR E NÃO ESTOU CONSEGUINDO
GerarPDF 'CHAMA UMA ROTINA QUE GERA OS PDF'S
Next
End If
End Sub

As linhas da coluna "EK" acima, contém números, mas que nem sempre vem em sequência, através de uma consulta do Power Query, exemplo: 1, 2, 4, 5, 7, 9, 10. No loop acima gostaria que essa sequência(1, 2, 4, 5, 7, 9, 10) fosse sendo preenchida até chegar o final, mas o que a rotina está fazendo somente é contar as linhas e jogar essa contagem de forma sequencial na célula "W3" do shtBoletim (1, 2, 3, 4, 5, 6, 7) e termina.

Poderiam me dar uma luz?

Desde já muito agradecido.

At.te,

Ivan Jpi

[laennder]

Acredito que a função GerarPDF imprime o boletim. A falha está provavelmente na planilha onde o boletim sendo gerado, e no VBA, pois suspeito que essa célula W3 é utilizada para buscar os dados do boletim de alguma lista ou tabela. Talvez seja necessário uma adaptação na planilha shtBoletim.

Para dar uma resposta mais acertiva é necessário anexar o seu arquivo para vermos o que realmente está acontecendo.

[osvaldomp]

Se o seu objetivo for replicar em shtBoletim W3 os valores contidos em shtBase EK então substitua
shtBase.Cells(lLop, 1) por shtBase.Cells(lLop, "EK") ou por shtBase.Cells(lLop, 141)

[IvanPi]

osvaldomp, deu certinho, muito obrigado!!