IMPRIMIR APENAS CÓDIGO SELECIONADO EM VBA

Question

BOM DIA!

ESTOU CRIANDO UM PROGRAMINHA EM VBA, FIZ UM CADASTRO DE PRODUTOS EM UMA PLANILHA, EM OUTRA PLANILHA CRIEI UMA ENTRADA DE PRODUTOS EM OUTRA CRIEI UMA SAÍDA E POR FIM EM OUTRA FICOU MEU SALDO EM OUTRA PLANILHA!

QUANDO FAÇO UMA CONSULTA DE SALDOS POR CÓDIGO ELE ME VEM A TELA, SÓ QUE QUANDO MANDO IMPRIMIR, ELE IMPRIME TODOS OS MEUS SALDOS, SENDO QUE EU QUERO APENAS QUE IMPRIMA APENAS AQUELE PRODUTO QUE BUSQUEI!

QUAL O CÓDIGO FAZER ESSE PROCEDIMENTO? E DETALHE ANTÉS DE IMPRIMI-LO QUERO VIZUALIZAR PARA VER SE ESTÁ DE ACORDO!

PODE ME AJUDAR? 

DESDE JÁ MEUS AGRADECIMENTO!

att : BRUNO RAFAEL

Answer 1

podes postar o codigo ?

Answer 2

Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim mensagem

CÓDIGO = txt_codigo_consulta
Sheets("Saldos").Select
Set intervalo = Range("A2:F500")

On Error GoTo ERRO

pesquisa = Application.WorksheetFunction.VLookup(CÓDIGO, intervalo, 2, False)
pesquisa1 = Application.WorksheetFunction.VLookup(CÓDIGO, intervalo, 3, False)
pesquisa2 = Application.WorksheetFunction.VLookup(CÓDIGO, intervalo, 4, False)
pesquisa3 = Application.WorksheetFunction.VLookup(CÓDIGO, intervalo, 5, False)
PESQUISA4 = Application.WorksheetFunction.VLookup(CÓDIGO, intervalo, 6, False)

txt_codigo_produto = pesquisa
txt_Unidadeconsulta = pesquisa1
txt_endereçoconsulta = pesquisa2
txt_armazemconsulta = pesquisa3
txt_quantidadesconsulta = PESQUISA4

Exit Sub

ERRO:

texto = "Não Foi Encontrado Nenhum Valor Correspondente ao Código..."
mensagem = MsgBox(texto, vbOKOnly + vbInformation)

txt_codigo_consulta = ""
txt_codigo_consulta.SetFocus

Worksheets("SALDOS").Select
Unload MIFARE
Application.Visible = True
ActiveWindow.SelectedSheets.PrintPreview
Application.Visible = False
MIFARE.Show

Answer 3

olá Ko0Kie, consegui visualizar o código que postei?

Consegui me ajudar a resolver esse problema?

Answer 4

posta print do resultado so para ter uma ideia

consigo, mas posta isso ;)

Answer 5

posso te mandar meu programinha pra você olhar melhor?

Answer 6

pode pois ;)

Answer 7

como quer fazer isso?

Answer 8

me passa seu emai-l que eu mando em anexo para visualizar

Answer 9

meu mail()

Answer 10

PROTINHO, ACABEI DE ENVIAR

Answer 11

ok, é o seguinte neste codigo:

Private Sub btn_visualizarconsultas_Click()
Worksheets("SALDOS").Select
Unload MIFARE
Application.Visible = True
ActiveWindow.SelectedSheets.PrintPreview
Application.Visible = False
MIFARE.Show
End Sub

voce seleciona o worksheet("SALDOS") , tem é que selecionar a celula com o dado escolhido

Answer 12

experimente atribuir uma variavel para cada campo que pode ser inserido para encontrar o dado por exemplo

dim cod as srting

dim unidade as string

dim endereco as string

dim aramazem as integer

dim quantidade as integer

if textbox_codigo<>"" then

cod=textbox_codigo.text

elseif textbox_unidade<>"" then

unidade=textbox_unidade.text

..

por ai adiante

e depois entao selecionar a row onde os dados da celula correspondem com isso

Answer 13

ATÉ AÍ TUDO BEM, MAS É SE EU QUISER PESQUISAR E IMPRIMIR OUTRO CÓDIGO, TENHO QUE ALTERAR A CÉLULA TODA VEZ?

Answer 14

na programaçao tera que fazer possivelmente um for para correr todas as celulas do worksheet

se  o texto que esta na celula for igual ao codigo entao seleciona aquela celula

é um exemplo o que vou fazer a seguir , pode nao funcionar, é so para lhe dar a entender o que e necessario fazer

for i=0 to worksheet("SALDOS").ROWS.COUNT -1

if cod = conteudo da celula then

seleciona a celula

end if

next 

mostra a celula a imprimir

Answer 15

resultou?