Ir ao conteúdo
  • Cadastre-se

Eri França

Membros Plenos
  • Total de itens

    43
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. @Midori Tentei desta forma, porém não consegui que ele reconhece-se as duas abas. funciona perfeitamente se eu estiver trabalhando só com uma variável, com duas não consegui, alguma dica?
  2. Bom dia! eu tenho o código abaixo para realizar a função de PROCV na aba "Historia" no entanto da forma que fiz o código não reconhece o intervalo onde deveria estar as variáveis "GIBIS ou LIVROS, como posso fazer para selecionar o intervalo de "G" que tenha informação e que reconheça o valor em cada célula? exemplo; G2 = GIBIS, G3= LIVROS, G4 GIBIS etc.
  3. @Midori porque no arquivo final eu tenho outras duas abas referentes as vendas de Revistas e Livros que jogam os dados para Histórico. quanto ao meu problema eu percebi que posso contornar ao gerar identificações diferentes para os numerais repetidos, por exemplo se eu tiver um código de produto 1 em revistas, e 1 em livros, ao ir para o relatório ele deveria ficar como 1 e 1A. como eu posso fazer com que o código identifique a repetição e inclua esse diferencial?
  4. @Midori como posso contornar isso?
  5. Boa tarde! o VBA em anexo utiliza a macro F_relatorio1 para gerar um relatório na aba "Relatório, as colunas F,G e I estão puxando a informação corretamente, porém a descrição dos produtos estão repetindo os da venda 1 para venda 2, PODERIAM ME AJUDARRELATORIO.rar adicionado 1 minuto depois @osvaldomp@Basole
  6. @Osvaldomp, perfeito man, muitíssimo obrigado
  7. @osvaldompO código que você me sugeriu funciona, porém somente no primeiro cadastro, quando tento cadastrar mais um usuário ele substitui a linha 1 e 5, alguma ideia do que pode ser?
  8. Agradeço muito man, deu certo sem utilizar a variável adicionado 15 minutos depois @osvaldompAproveitando a ajuda amigo, o código que você me passou ficou da forma abaixo. isso para 2 Textbox e 5 Checkbox, minha dúvida é como eu poderia fazer que ao selecionar as 5 Checkbox o código repetisse o conteúdo das txtNome (Coluna A) e do txtSenha(Coluna B) e inclui-se a sequencia dos Checkbox? With Worksheets("Senha") .Cells(totalregistro, 1) = txtNome .Cells(totalregistro, 2) = txtSenha If CheckBox1.Value = True Then .Cells(totalregistro, 3) = "Senha" End If If CheckBox2.Value = True Then .Cells(totalregistro, 3) = "Gibis" End If If CheckBox3.Value = True Then .Cells(totalregistro, 3) = "Livros" End If If CheckBox4.Value = True Then .Cells(totalregistro, 3) = "Relatorio" End If If CheckBox5.Value = True Then .Cells(totalregistro, 3) = "Historia" End If End With
  9. Agradeço a Dica @osvaldomp porém ao incluir o meu form, ele envia as informações do usuário e da senha, mas não dos checkbox, pode me dizer o que fiz de errado 'Aqui está o botão responsável por salvar os dados na Planilha de Login lembram da mesma no topico anterior? Private Sub Salvar_Click() 'Tomada de Decisão Sim e Não Dim Resposta As String Resposta = MsgBox("Deseja Salvar Este Usuário Agora?", vbYesNo, "Novo usuário") If Resposta = vbYes Then 'Nossa pasta renomeada no post anterior e onde gravaremos os novos usuários e senhas totalregistro = Worksheets("Senha").UsedRange.Rows.Count + 1 'Campo Obrigatório If txtNome.Text = "" Then MsgBox "Necessito De Um Nome Para Continuar. " txtNome.SetFocus Exit Sub End If Dim NomePlan As String With Worksheets("Senha") .Cells(totalregistro, 1) = txtNome .Cells(totalregistro, 2) = txtSenha If CheckBox1.Value = xlOn Then .Cells(totalregistro, 3) = NomePlan = "Plan1" End If End With 'Mensagem apos a gravação de dados MsgBox ("Gravado Com Sucesso"), vbInformation, ("Novo usuário") txtNome = "" txtSenha = "" 'txtAcesso = "" txtNome.SetFocus End If 'Resposta Não aqui If Reposta = vbNo Then 'Mensagem caso sua resposta seja não MsgBox ("Seus Dados Não Foram Gravados"), vbInformation, ("Novo usuário") txtNome = "" txtSenha = "" ' txtAcesso = "" txtNome.SetFocus End If 'Unload Me 'ActiveWorkbook.Close True 'Application.Quit End Sub
  10. Pasta1.rar Bom dia! no exemplo em anexo eu tenho um formulário de cadastro de usuário, que salva o nome e senha na aba "Senha", e 5 checkbox que se referem as abas que o usuário quer ter acesso, porém ao salvar o Checkbox salva o valor "VERDADEIRO", como eu altero isso para uma String como Senha, Plan1,Plan2, etc.
  11. @Basole@olliver.soul
  12. Bom dia! estou tentando em um formulário com TextBox e Listview exibir uma imagem no Image1 até o momento consegui que o formulario descubra a imagem com o mesmo nome do txt_titulo e coloque o caminho na planilha, no entanto não exibe a imagem no quadro Private Sub txt_titulo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If txt_titulo <> "" Then If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then retornaProduto CStr(txt_titulo) End If End If End Sub Function retornaProduto(ByVal vCodigo As String) 'Desabilitamos a atualização de tela Application.ScreenUpdating = False 'Selecionamos a Planilha que contém a base de dados With ThisWorkbook.Sheets("Gibis") .Activate 'Seleciona a Coluna onde os ID's estão cadastrados Columns(2).Select 'Se houver erro, vá para o tratamento On Error GoTo ND 'Pesquisamos pelo código informado Selection.Find(vCodigo, ActiveCell, xlValues, xlWhole, xlByRows, xlNext).Activate 'Gravamos ou atualizamos o caminho completo da Imagem na coluna D Cells(ActiveCell.Row, "K") = CStr(ThisWorkbook.Path & "\Imagens\" & vCodigo & ".jpg") 'Seleciona a célula onde o produto foi localizado Cells(ActiveCell.Row, "B").Select 'Preenchemos os campos do UserForm With BUSCA .txt_ID = Cells(ActiveCell.Row, "A") .txt_titulo = vCodigo .txt_numero = Cells(ActiveCell.Row, "C") .txt_ano = Cells(ActiveCell.Row, "D") .txt_licenciadora = Cells(ActiveCell.Row, "E") .txt_editora = Cells(ActiveCell.Row, "F") .txt_estado = Cells(ActiveCell.Row, "G") .txt_quantidade = Cells(ActiveCell.Row, "J") .Image1.PictureSizeMode = fmPictureSizeModeStretch .Image1.Picture = LoadPicture(Cells(ActiveCell.Row, "K")) End With ND: If Err = 91 Then 'Se o erro for 91 (não encontrado), informamos sobre o erro MsgBox "O produto " & vCodigo & " não existe ou não foi cadastrado!", vbCritical, "Erro" 'E limpamos o formulário BUSCA.txt_ID = "" BUSCA.txt_titulo = "" BUSCA.txt_numero = "" BUSCA.txt_ano = "" BUSCA.txt_licenciadora = "" BUSCA.txt_editora = "" BUSCA.txt_estado = "" BUSCA.txt_quantidade = "" BUSCA.Image1.Picture = Nothing End If End With 'Habilitamos a atualização de tela Application.ScreenUpdating = True End Function adicionado 49 minutos depois Exemplificando: ao digitar o nome 100 BALAS no textbox Titulo, o caminho para o arquivo jpg aparece na celula K, porém não aparece a imagem no Image ao lado. PROJETO VÉSPER V8.rar
  13. Olá a todos! Consegue esta planilha no blog do "Excel Soluções", estou tentando ajustar para minhas necessidades, já consegui ajustar quase tudo, porém estou com problemas no formulário de Vendas.alterei da célula CJ para A, porém ao tentar dar saída através da venda os valores estão saindo errados. Exemplo: com um estoque de 100, uma venda de 10 não altera o estoque e gera um valor de -100 na saída. Alguém poderia me ajudar? Sistema de Vendas - 01.rar
  14. Boa tarde! Eu tenho o código abaixo para gerar um número ID ao cadastrar itens em um formulário através de TextBox. No momento estou com um formulário com 10 linhas de TextBox, sendo que nem sempre eu utilizo as dez linhas, isso gera o ID porém sem nenhuma informação no resto da linha. Alguma ideia que possa me ajudar? Agradeço desde já. i = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 10 For j = 2 To i If IsNumeric(Plan1.Cells(j - 1, 1)) Then Plan1.Cells(j, 1) = Plan1.Cells(j - 1, 1) + 1 Else Plan1.Cells(j, 1) = 1 End If Next End Sub
  15. Bom dia! analisando melhor verifiquei que o erro está no Userform_initialize, alguma dica parta corrigir? Private Sub UserForm_Initialize() With ListView1 '.BorderStyle = ccFixedSingle .Gridlines = True .View = lvwReport .FullRowSelect = True .MultiSelect = True .ColumnHeaders.Add Text:="ID:", Width:=1 'COLUNA ENDEREÇO DA IDENTIFICAÇÃO .ColumnHeaders.Add Text:="TÍTULO:", Width:=220 'COLUNA ENDEREÇO DA TITULO .ColumnHeaders.Add Text:="NÚMERO:", Width:=58, Alignment:=0 'COLUNA ENDEREÇO DA NUMERAÇÃO .ColumnHeaders.Add Text:="ANO:", Width:=40, Alignment:=2 'COLUNA ENDEREÇO DO ANO .ColumnHeaders.Add Text:="LICENCIADORA:", Width:=140, Alignment:=0 'COLUNA ENDEREÇO DA LICENCIADORA .ColumnHeaders.Add Text:="EDITORA:", Width:=120, Alignment:=0 'COLUNA ENDEREÇO DA editora .ColumnHeaders.Add Text:="QUANT:", Width:=70, Alignment:=0 'COLUNA ENDEREÇO DA estado '.ColumnHeaders.Add Text:="Imagem:", Width:=1, Alignment:=2 'COLUNA ENDEREÇO DA IMAGEM (OCULTA) End With ListView1.ListItems.Clear Sheets("Gibis").Select lin = 2 Do Until Sheets("Gibis").Cells(lin, 1) = "" Set li = ListView1.ListItems.Add(Text:=Sheets("Gibis").Cells(lin, 1).Value) li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 2).Value li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 3).Value li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 4).Value li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 5).Value li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 6).Value li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 7).Value li.ListSubItems.Add Text:=Sheets("Gibis").Cells(lin, 8).Value lin = lin + 1 Loop With ListView2 '.BorderStyle = ccFixedSingle '.Gridlines = True '.View = lvwReport '.FullRowSelect = True '.MultiSelect = True .ColumnHeaders.Add Text:="ID:", Width:=1 'COLUNA ENDEREÇO DA IDENTIFICAÇÃO .ColumnHeaders.Add Text:="TÍTULO:", Width:=221 'COLUNA ENDEREÇO DA TITULO .ColumnHeaders.Add Text:="AUTOR:", Width:=201, Alignment:=0 'COLUNA ENDEREÇO DO AUTOR .ColumnHeaders.Add Text:="ANO:", Width:=35, Alignment:=0 'COLUNA ENDEREÇO DO ANO .ColumnHeaders.Add Text:="EDITORA:", Width:=188, Alignment:=0 'COLUNA ENDEREÇO DA EDITORA End With ListView2.ListItems.Clear Sheets("Livros").Select lin = 2 Do Until Sheets("Livros").Cells(lin, 1) = "" Set li = ListView2.ListItems.Add(Text:=Sheets("Livros").Cells(lin, 1).Value) li.ListSubItems.Add Text:=Sheets("Livros").Cells(lin, 2).Value li.ListSubItems.Add Text:=Sheets("Livros").Cells(lin, 3).Value li.ListSubItems.Add Text:=Sheets("Livros").Cells(lin, 4).Value li.ListSubItems.Add Text:=Sheets("Livros").Cells(lin, 5).Value lin = lin + 1 Loop MultiPage1.Style = 1 MultiPage1.ForeColor = RGB(28, 28, 28) MultiPage1.BackColor = RGB(0, 0, 0) End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!