alberto_acm

Bom dia a todos, preciso de ajuda deste fórum, fiz uma agenda e estou usando um datagrid para carregar os dados, 1º fiz um "carrega dados" para carregar os dados do banco que é em access, no datagrid, beleza 2º fiz um "carrega campos" para carregar os dados do grid nos texts, tudo certo 3º coloque um consulta usando um textbox, ao digitar no text e vai filtrando no datagrid, quando crico na linha filtrada e selecionada, não me retorna os dados nos campos dos textboxs, ex: filtrou maria, mais no grid mostra Pedro, não sincroniza. como faço para corrigir, ou é melhor usar um lisbox, e como ficaria o código da consulta, aguando

boa tarde, estou com um problema e gostaria que alguém me ajudasse, fiz uma agenda no visual basic 2010 , ao clicar no grid e carrega os dado nos campos, até ai tudo bem, mais eu criei uma consulta, quando digito no text um nome ele vai fazendo a filtragem, digamos que ficou cinco linhas no grid, mais ao clicar umas das linha ele não retorna a consulta correta ex. clico na linha que tem roberto, e ele me da outra linha que tem outro nome( maria) como se o grid não estivesse sinconnizado com os campos,como resolver?

Boa tarde, tenho uma planilha com campos de data e queria uma formatação o codigo vba para que se ele estiver conteudo( data ) então ele pinte a celular de azul ou outra cor. valeu

BOM DIA, ESTOU PRECISANDO DO GODIGO PARA CALCULAR DIFENÇA DE DATAS EM TEXTBOX, SEI QUE É FEITO DE DATEDIFF, MAIS MÃO ESTOU CONSEGUINDO FAZER O GODIGO; EXEMPLO: TENHO UMA PLANILHA COM DATAS, E QUERIA QUE ELAS ME RETORNA-SE EM UM TEXTBOX. TEXBOX_DATAENTRADA TEXBOX_DATA VISTORIA TEXBOX_RESULTADO COMO FICARIA O CODIGO NO TEXBOX RESUTADO? AGRADEÇO A AJUDA

Sou iniciante em excel vba, estou aprendendo desta ferramenta maravilhosa, mais ainda estou apanhando um pouco. bom deixa eu explicar: quero que ao selecionar um item no combobox, e pinte uma label ou textbox de acondo com a confiçao. exemplo. se veiculo esta en serviço, então( label azul) senão (label) em vermelho. isto selecionado uma linha no listbox, pois ao clicar na linha e de acordo com a opcao no combo selecionada ele pinte uma label ou text. ficaria imensamente agradecido aos amigos que me ajudarem. Alberto

Bom dia, estou fazendo um programinha,mais não estou conseguindo fazer o seguinte codigo: quero mudar a cor da fonte em uma linha no lisbox, uwsando uma condição; exemplo: se o veiculo esta com o serviço parado, então ( formatar linha para cor vermelha) se veiculos estiver com serviço pronto em ( formatasr fonte linha azul) acho que da pra entender, mais vou citar um exemplo; o veiculo de placa HTU-1563 ESTA PARADO POR FALTA DE PEÇAS, ENTÃO QUERO QUE ELE FIQUE A A COR DA LINHA NO LISTBOX VERMELHA, OU SE O SERVIÇO ESTA NORMAL EM COR AZUL NA LINHA. AGRADEÇO A QUEM POSSA ME AJUDAR, É QUE ESTOU INICIANDO E NÃO TENHO AINDA MUITO CONHECIMENTO. VALEU

Muito obrigado pela ajuda, foi muito util, deu tudo certo, valeu

BOA TARDE, TENHO QUE LIMPAR O CARACTER ( ' ) QUE VEM ANTES DA DATA QUANDA DA IMCLUSAO DE DATA, PARA PODER FAZER PESQUISA POR DATA. ESTOU USANDO O SEGUINTE CODIGO: PARA LIMPAR CELULAR DA LINHA 2 COLUNA 9 .... MAIS ME RETORNA ERRO ( ERRO EM TEMPO DE EXECUÇÃO '1004' O METODO RANGE DO OBJETO ' WORKSHEET' FALHOU. FAÇO A DEPURAÇÃO E A PRIMEIRA LINHA ABAIXO FICA EM AMARELO. AGRADEÇO A AJUDA, POIS ESTOU INICIANDO NO VBA DO EXCEL E AINDA NÃO CONSIGO INDENTIFICAR TAIS ERROS. OBRIGADO For Each cel In Plan3.Range(Cells(2, 9), Cells(65536, 9).End(xlUp)) cel = Application.Clean(cel) Next cel For Each cel In Plan3.Range(Cells(2, 10), Cells(65536, 10).End(xlUp)) cel = Application.Clean(cel) Next cel For Each cel In Plan3.Range(Cells(2, 11), Cells(65536, 11).End(xlUp)) cel = Application.Clean(cel)

Bom dia, estou com um problema, vou relatar e peço a ajuda dos amigos. fiZ uma agenda no em vba do excel, faço os lançamentos normalmente, mais quando faço a pesquisa pelo listbox, me dá um erro de list, mais isto só acontece quando eu deixo algum campo sem colocar dados. como faço pra resolver isto? ( erro); não foi possivel definir a propriedade do list. tipo não correspondente o codigo usado esta abaixo: Private Sub Combo_emp_Click() If Me.Option_empresa.Value = True Then Set BANCO = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "Excel 8.0") Set TABELA = BANCO.OpenRecordset("select * from [contatos$] where empresa = '" & Me.Combo_emp & "';") Me.ListBox_pesquisausuarios.Clear Do Until TABELA.EOF Me.ListBox_pesquisausuarios.AddItem TABELA("NOME") Me.ListBox_pesquisausuarios.List(i, 1) = TABELA("NOME") Me.ListBox_pesquisausuarios.List(i, 2) = TABELA("RAMAL") Me.ListBox_pesquisausuarios.List(i, 3) = TABELA("TELEFONE_RESIDENCIAL") Me.ListBox_pesquisausuarios.List(i, 4) = TABELA("CELULAR") Me.ListBox_pesquisausuarios.List(i, 5) = TABELA("EMAIL") i = i + 1 TABELA.MoveNext Loop BANCO.Close End If End Sub