-
Posts
24 -
Cadastrado em
-
Última visita
Reputação
2-
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole posso te mandar todo o arquivo por e-mail ou algo parecido? -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole eu estava finalizando a montagem do arquivo. e tem um campo onde eu carrego dados através do listbox. (tabela parâmetros do bd). minha ideia era usar o busca access para que toda vez que um campo fosse carregado com um parâmetro, a unidade de medida fosse carregada na coluna posterior. bd_Garantia_Qualidade.rar -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole uma dúvida a função =Busca_Dados_Access só aceita números. é possível ela aceitar tb letras? obrigado -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole ficou excelente. Ajudou muito mesmo. Mais uma vez muito obrigado pela sua disposição em ajudar! -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole Estava ausente, por isso não consegui responder na terça. Olha, ficou perfeita a busca no banco, era exatamente isso. só acertei o range, pois no laudo somente 1 célula ira aceitar o dado buscado ("B3"). mas ficou show. Em relação a 2ª dúvida: para cada item que eu busco existe um fornecedor. porém nesse caso não tenho os códigos deles, por isso preciso buscar em um listbox pelo nome. a ideia era clicar em uma determinada célula e abrir um listbox com todos os fornecedores e eu selecionar um deles e o resultado preencher uma célula (no exemplo seria a "D3"). você ja fez isso para mim, porém abrindo o listbox de um banco excel, o que preciso é modificar para o listbox vir do access. conseguiu entender? -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole Segue o bd com as duas abas. Valeu pela força. bd_Garantia_Qualidade.rar -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole eu estou precisando fazer as duas rotinas que estou fazendo atualmente com o banco excel 1ª - hoje eu digito o código de um determinado item em uma célula (B3) e na outra célula carrega a descrição (C3) (PROCV). Eu queria fazer isso na minha planilha sem utilizar um useform (digitar o código em uma célula, ele fazer um procv no banco access e carregar na outra célula a descrição. 2ª Adaptar o código que você me fez pra mim no inicio do tópico para a busca ser no banco access (atualmente ele faz no banco excel) -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole anexei um exemplo simples, com a conexão com o banco de dados access e algumas rotinas. obrigado pela ajuda. Exemplo Basole.rar -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole beleza, vou preparar e te mando. -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole bom dia, Só uma pergunta, mas nada que irei fazer no momento. Essa rotina era possível com um banco no access? hoje já tenho uma conexão com o banco access, pois todo os resultados que são gerados no preenchimento dessa planilha são enviados para o banco. abraços -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole Obrigado mais uma vez. Ficou 100% -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@basole, só um ajuste que não estou conseguindo achar. eu adaptei o código para algumas abas. Para as que tem poucas linhas preenchidas dá um erro e depois abre o listbox. o erro é o seguinte: 94 Uso de Null inválido -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole Funcionou perfeitamente, só fiz um ajuste na ordem de busca da planilha conforme o código. Mas ficou Show. Obrigado novamente! With rs While rs.EOF = False TextoCelula = rs.Fields(1) 'Coluna 1 - ordem da aba na planilha If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then ListBox1.AddItem rs.Fields(1) 'Coluna 1 - ordem da aba na planilha End If rs.MoveNext Wend End With -
Listview em arquivo de servidor
Adriano Delvali respondeu ao tópico de Adriano Delvali em Microsoft Office e similares
@Basole,Primeiramente obrigado pela disposição em sempre ajudar! Sou grato por isso. você está correto, é um listbox. Sou muito leigo no assunto. consigo apenas fazer algumas coisas e adaptações para uso. Tentei utilizar o código que você passou, mas me retornou um erro. Pode ser que tenha feito algo errado. Não sei se expliquei minha necessidade corretamente, mas para você ver minha aplicação, anexei uma planilha com o código que uso. Hoje funciona bem, mas a ideia é como falei inicialmente, ter um arquivo no servidor com os dados que serão carregados quando o usuário clicar em determinada célula. Obrigado mais uma vez! EXEMPLO LISTBOX.xls -
Adriano Delvali alterou sua foto pessoal
-
Boa tarde pessoal do Clube! Preciso de uma pequena ajuda num comando aqui. tenho o código abaixo que faz referência/busca a uma sheet dentro do próprio arquivo. estou tentando fazer a busca em um outro arquivo que fica no servidor, porém não esta dando certo. alguém pode me ajudar? código atual (funcionando) Option Explicit Private TextoDigitado As String Private Sub ListBox1_Click() ActiveCell.Value = ListBox1.Value Unload Me End Sub Private Sub UserForm_Initialize() Call PreencheLista End Sub Private Sub PreencheLista() Dim ws As Worksheet Dim i As Integer Dim TextoCelula As String Set ws = ThisWorkbook.Worksheets(9) i = 1 ListBox1.Clear With ws While .Cells(i, 8).Value <> Empty TextoCelula = .Cells(i, 8).Value If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then ListBox1.AddItem .Cells(i, 8) End If i = i + 1 Wend End With End Sub código que estou tentando ajustar: Option Explicit Private TextoDigitado As String Private Sub ListBox1_Click() ActiveCell.Value = ListBox1.Value Unload Me End Sub Private Sub TextBox1_Change() TextoDigitado = TextBox1.Text Call PreencheLista End Sub Private Sub UserForm_Initialize() Call PreencheLista End Sub Private Sub PreencheLista() Dim wb As Workbook: Set wb = ActiveWorkbook Dim ws As Worksheet Dim strTemplate As String: strTemplate = "Z:\BANCO_DADOS\DADOS.xls" Set ws = wb.Sheets.Add(Type:=strTemplate)(9) i = 1 ListBox1.Clear With ws While .Cells(i, 2).Value <> Empty TextoCelula = .Cells(i, 2).Value If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then ListBox1.AddItem .Cells(i, 2) End If i = i + 1 Wend End With End Sub
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