Eri França

@olliver.soul Valeu man, era isso mesmo, após alterar os outros eventos ficou correto.

@olliver.soul Obrigado pela dica oliver, porém ao fazer a alteração proposta exibe a imagem, mais ele entende que estou procurando na coluna de "Editora"

@Basole @olliver.soulbom dia man, desculpe reavivar este tópico, porém me restou uma dúvida. Onde devo alterar para trocar o endereço da imagem da coluna "F" para a "G" por exemplo?

Muito obrigado por toda a sua ajuda Basole, projeto concluído com êxito.

@Basole Desculpe a ignorância Basole, coloquei o código que me indica-se no Alteração_Click, e me retorna erro de compilação: referência inválida ou não qualifica Pode apontar o meu erro? Private Sub Alteração_Click() Set Rng = .Range("A2:A13000").Find(What:=Me.txt_ID.Text, LookIn:=xlValues, LookAt:=xlWhole, _ MatchCase:=False, SearchFormat:=False) i = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1 i = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1 For j = 2 To i If CInt(txt_ID) = CInt(Plan1.Cells(i, 1)) Then Plan1.Cells(i, 2) = UCase(txt_titulo) Plan1.Cells(i, 3) = UCase(txt_numero) Plan1.Cells(i, 4) = UCase(txt_data) Plan1.Cells(i, 5) = UCase(txt_licenciadora) Plan1.Cells(i, 6) = UCase(txt_editora) Exit For End If Next For i = 1 To ListView1.ListItems.Count If ListView1.ListItems.Item(i) = txt_ID Then ListView1.ListItems.Item(i).SubItems(1) = UCase(txt_titulo) ListView1.ListItems.Item(i).SubItems(2) = UCase(txt_numero) ListView1.ListItems.Item(i).SubItems(3) = UCase(txt_data) ListView1.ListItems.Item(i).SubItems(4) = UCase(txt_licenciadora) ListView1.ListItems.Item(i).SubItems(5) = UCase(txt_editora) Exit For End If Next End Sub

Bom dia amigos! consegui uma certa evolução com o código abaixo 'Para carregar nos TextBoxs Private Sub ListView1_DblClick() 'Seleciona uma linha no listview, e os dados são carregados no textbox Dim Carregar Carregar = (ListView1.SelectedItem.Index) Me.txt_ID.Value = ListView1.ListItems(Carregar) Me.txt_titulo = ListView1.ListItems(Carregar).ListSubItems(1).Text Me.txt_numero = ListView1.ListItems(Carregar).ListSubItems(2).Text Me.txt_data = ListView1.ListItems(Carregar).ListSubItems(3).Text Me.txt_licenciadora = ListView1.ListItems(Carregar).ListSubItems(4).Text Me.txt_editora = ListView1.ListItems(Carregar).ListSubItems(5).Text Me.txt_titulo.SetFocus End Sub 'Para alterar a informação na ListView e na planilha Private Sub Alteração_Click() i = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1 For j = 2 To i If CInt(txt_ID) = CInt(Plan1.Cells(i, 1)) Then Plan1.Cells(i, 2) = UCase(txt_titulo) Plan1.Cells(i, 3) = UCase(txt_numero) Plan1.Cells(i, 4) = UCase(txt_data) Plan1.Cells(i, 5) = UCase(txt_licenciadora) Plan1.Cells(i, 6) = UCase(txt_editora) Exit For End If Next For i = 1 To ListView1.ListItems.Count If ListView1.ListItems.Item(i) = txt_ID Then ListView1.ListItems.Item(i).SubItems(1) = UCase(txt_titulo) ListView1.ListItems.Item(i).SubItems(2) = UCase(txt_numero) ListView1.ListItems.Item(i).SubItems(3) = UCase(txt_data) ListView1.ListItems.Item(i).SubItems(4) = UCase(txt_licenciadora) ListView1.ListItems.Item(i).SubItems(5) = UCase(txt_editora) Exit For End If Next End Sub Porém o código para alteração está alterando apenas o ListView, não salvando na planilha. Alguma sugestão?

@Basole Alguma dica mestre?

Olá a todos! Com base na planilha anexa solicito a ajuda dos senhores. Minha intenção é ao realizar um duplo clique no listview a planilha enviar os dados para os textbox equivalentes para poder alterar a informação e salvar Agradeço qualquer ajuda. BUSCA AVANÇADA COLEÇÃO V5.rar

@olliver.soul @Basole Queiram me perdoar, localizei agora. Erro meu. Agradeço imensamente a ajuda.

@Basole Minha dúvida persiste, como fazer para ao selecionar um dos resultados da busca na ListView e o mesmo apareça na Image? entendi que devo salvar na coluna F o caminho para a imagem, mais qual código devo colocar no espaço Image?

Saudações a todos! Eu tenho um projeto de formulário feito em VBA com o intuito de fazer uma busca de dados, no entanto estou tendo dificuldade em implementar o retorno de uma imagem para o item selecionado. Minha intenção é deixar a imagem salva em uma pasta a parte e tê-la como resultado quando selecionar o item da busca. agradeço qualquer ajuda. BUSCA AVANÇADA COLEÇÃO.rar

Testei está última versão, porém não houve alteração, qual foi a mudança no código? aparentemente está igual.

Eu me deparei com um erro quando tento imprimir uma guia com menos códigos, ela mantém os anteriores. Exemplo, uma guia com 10 itens seguida por uma com 9 itens, este ultimo vai continuar na guia, Como evito isto? Guia Cega.rar

Esse código de barras é gerado através da DLL code128, após instala-la é somente autorizar o uso na biblioteca do excel. Novamente agradeço a ajuda inestimável, a planilha ajustou-se exatamente as minhas necessidades.

Eu entendi como ajustar as quantidades, obrigado, porém verificando a aba DADOS, eu tenho 36 códigos, inclusive numerei-os para facilitar a visualização, no entanto só estou conseguindo imprimir as 20, que representa a primeira folha. Outra dúvida, se houver menos que 20 códigos a macro exibi a mensagem de impressa com sucesso, porém nada é impresso, tendo em vista que essa guia cega deve ter quantidades variadas de dados ( de 1 á 250..) como posso modificava para reconhecer isso?. Guia Cegar Lojas 031.rar

Bom dia! segue anexo copia com a quantidade que cabe em uma folha, no máximo 20 etiquetas Untitled_20180808_174147.pdf

A planilha funcionou perfeitamente, obrigado, porém me restou duas duvidas. Quando mando exportar a planilha gerada pelo SAP a macro cópia para a DADOS porém quando mando imprimir ela não sai na impressora, apesar de dar a mensagem de impressão com sucesso independente da quantidade de informação a folha impressa sai somente 3/4 impressa, tentei incluir diretamente, porém a macro gera uma nova folha da mesma forma. como posso corrigir isto? De toda forma, muito obrigado pela ajuda, já foi uma mão na roda incrível. export.rar Untitled_20180808_005752.pdf

Exatamente isso, Seria possível aumentar a formatação para aproveitar toda a folha?, Ppois da forma colocada por você está imprimindo cerca de 3/4 da folha

Desculpe, é exatamente isso

O numero 200117433 é referente ao agrupamento gerado pelo sistema para o coletor, o fornecedor é dado através da coluna K na aba DADOS, eles também são filtrados na hora da impressão

Veja se o arquivo em anexo cumpre sua solicitação, a minha intenção é copiar a formatação da célula A5 em sequencia conforme a necessidade, fazendo com que não haja necessidade de escolher quantas paginas devem ser impressas, em anexo a planilha conforme estou usando atualmente Guia Cegar Lojas 031.rar

Boa tarde, Gostaria da ajuda dos senhores, preciso de uma macro na planilha em anexo que identifique quantas linhas e colunas tem informação na aba DADOS e copie a quantidade necessária da formatação presente na célula A5 da aba CÓDIGOS EAN. Agradeço qualquer ajuda Guia Cegar Lojas.xlsx