none
IMPRIMIR APENAS CÓDIGO SELECIONADO EM VBA RRS feed

  • 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

    terça-feira, 19 de maio de 2015 11:44

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


    • Editado Ko0kiE terça-feira, 19 de maio de 2015 16:33
    • Marcado como Resposta Marcos SJ quinta-feira, 31 de março de 2016 15:22
    terça-feira, 19 de maio de 2015 16:25

Todas as Respostas

  • podes postar o codigo ?
    terça-feira, 19 de maio de 2015 11:54
  • 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

    terça-feira, 19 de maio de 2015 12:31
  • olá Ko0Kie, consegui visualizar o código que postei?

    Consegui me ajudar a resolver esse problema?

    terça-feira, 19 de maio de 2015 13:36
  • posta print do resultado so para ter uma ideia

    consigo, mas posta isso ;)

    terça-feira, 19 de maio de 2015 13:47
  • posso te mandar meu programinha pra você olhar melhor?
    terça-feira, 19 de maio de 2015 13:49
  • pode pois ;)
    terça-feira, 19 de maio de 2015 14:30
  • como quer fazer isso?
    terça-feira, 19 de maio de 2015 14:31
  • me passa seu emai-l que eu mando em anexo para visualizar
    terça-feira, 19 de maio de 2015 14:31
  • meu mail()
    • Editado Ko0kiE terça-feira, 19 de maio de 2015 15:01
    terça-feira, 19 de maio de 2015 14:32
  • PROTINHO, ACABEI DE ENVIAR
    terça-feira, 19 de maio de 2015 14:44
  • 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

    terça-feira, 19 de maio de 2015 15:05
  • 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

    terça-feira, 19 de maio de 2015 15:08
  • ATÉ AÍ TUDO BEM, MAS É SE EU QUISER PESQUISAR E IMPRIMIR OUTRO CÓDIGO, TENHO QUE ALTERAR A CÉLULA TODA VEZ?
    terça-feira, 19 de maio de 2015 15:08
  • 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


    • Editado Ko0kiE terça-feira, 19 de maio de 2015 16:33
    • Marcado como Resposta Marcos SJ quinta-feira, 31 de março de 2016 15:22
    terça-feira, 19 de maio de 2015 16:25
  • resultou?
    quarta-feira, 20 de maio de 2015 11:07