-
Posts
46 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que Eri França postou
-
Excel formulário busca com foto
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
@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? -
Excel listview retornar a textbox com dblclick
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
Muito obrigado por toda a sua ajuda Basole, projeto concluído com êxito. -
Excel listview retornar a textbox com dblclick
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
@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 -
Excel listview retornar a textbox com dblclick
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
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? -
Excel listview retornar a textbox com dblclick
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
@Basole Alguma dica mestre? -
Excel listview retornar a textbox com dblclick
Eri França postou um tópico em Microsoft Office e similares
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 -
Excel formulário busca com foto
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
@olliver.soul @Basole Queiram me perdoar, localizei agora. Erro meu. Agradeço imensamente a ajuda. -
Excel formulário busca com foto
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
@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
-
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
Testei está última versão, porém não houve alteração, qual foi a mudança no código? aparentemente está igual. -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
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 -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
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. -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
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 -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
Bom dia! segue anexo copia com a quantidade que cabe em uma folha, no máximo 20 etiquetas Untitled_20180808_174147.pdf -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
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 -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
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 -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
Desculpe, é exatamente isso -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
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 -
Excel emissor de guia cega
Eri França respondeu ao tópico de Eri França em Microsoft Office e similares
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
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais