Usuário com melhor resposta
IMPRIMIR APENAS CÓDIGO SELECIONADO EM VBA

Pergunta
-
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
Respostas
-
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
Todas as Respostas
-
-
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 -
-
-
-
-
-
-
-
-
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
-
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
-
-
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
-