Jump to content
Fórum Script Brasil

mrfg2000

Membros
  • Content Count

    40
  • Joined

  • Last visited

Community Reputation

0 Neutro

About mrfg2000

Recent Profile Visitors

1944 profile views
  1. olá amigo. vou tentar ajudar . segue abaixo um código que utilizo ... pelo que eu vi em seu print ... você não esta fazendo uma busca no seu banco de dados para validar se o usuário digitado existe no banco. no exemplo abaixo minha aplicação é dentro do excel mas meu banco de dados é em access .. veja o que você consegue aproveitar e adaptar em seu código. 'Carregar o furmulário de login assim que abre o arquivo Private Sub Workbook_Open() ULogin.Show End If após
  2. mrfg2000

    SomarProdutos em VBA

    Saudações amigos deste maravilhoso fórum. Primeiramente obrigado por ler esse tópico. Preciso de uma ajuda , pois me deparei com a seguinte situação. Existe uma função no excel chamada subtotal(9;xxx:xxx) , para fazer a soma apenas dos valores que as linhas não estejam ocultas por Filtro. já a função somarprodutos(xxx:xxx) ele faz a multiplicação de uma coluna com a outra coluna ... não precisando multiplicar linha por linha coluna por coluna. porem ele faz a multiplicação das linhas filtradas também incluindo as linha ocultas por filtro. Teria como fazer u
  3. Bom dia amigos gostaria de uma ajudinha Gostaria de imprimir o conteúdo do meu listview para impressora. Esta dando erro no comando Printer.Print estou tentando utilizar o código abaixo ... mas esta dando erro ... alguém poderia me ajudar por favor: For i = 1 To ListView4.ColumnHeaders.Count Printer.Print Tab(20); ListView4.ColumnHeaders(i).Text; Next Printer.Print Printer.Print Dim item As ListItem For Each item In ListView1.ListItems Printer.Print Tab(20); item.Text; For i = 1 To ListView1.ColumnHeaders.Count - 1 P
  4. olá amigos ... fica aqui como solucionei o problema ... desta forma todos poderão compartilhar os conhecimentos. meu muito obrigado a todos. obs: minha aplicação esta em excel e meu banco esta em access eu rodo uma macro do excel , que executa uma macro do access... o nome da macro dentro do acess neste caso chamava "Mortalidade" obs: tem que habilitar dentro do VBA > Ferramentas > Referência > microsoft Access 14.0 object library. Sub ChamarMacroAccess() Dim sCaminho As String Dim obj As Object Dim appObj As Object sCaminho = "ActiveWorkbook.Path & "\BANCO.MDB"" Set appObj
  5. bom dia amigos deste respeitado forum. Estou tentando utlizar essa macro de dentro do excel para rodar uma macro de dentro do access mas não esta dando certo... alguém poderia me ajudar a desvendar esse problema... Sub AccessMacro() Dim A As Object Set A = CreateObject("Access.Application") A.Visible = False A.OpenCurrentDatabase (ActiveWorkbook.Path & "\BANCO.MDB") A.DoCmd.RunMacro "RelMortalidade", 0 End Sub obs: "RelMortalidade" é o nome da macro que eu tenho dentro do access que estou tentando excultar...
  6. bom dia amigos Estou criando uma rotina para copiar o arquivo mscomct2.ocx da pasta atual para pasta \windows\system32 até aqui tudo beleza funciona perfeitamente. porém quando vou registar ele com o CMD como administrador , ele esta dando um erro .. e não registra o componente ActiveX ... alguém poderia por favor me ajudar neste problema... desde já antecipo agradecimentos. o problemas esta na seguinte linha >> Call Shell("C:\WINDOWS\system32\regsvr32.exe mscomct2.ocx /user:administrator cmd.exe") Sub CopiarArquivos_Registrar() Dim fso Dim origem As String, destino As String o
  7. Boa noite amigo Benzadeus ... Agradeço novamente pelo seu empenho e ajuda na solução desta dúvida ... Agraço-lhe imensamente. Abraços
  8. Boa noite aos estimados amigos deste forum. preciso de uma ajuda de vocês. tenho um Userform com vários componentes + ou - uns 50 (Textbox,Combobox,buttonoptions) gostaria de mudar a cor de fundo (background) do componente ao receber o foco, e ao sair voltar a cor original (branco) porém não gostaria de fazer isso individualmente em cada textbox, combobox, buttonoptions. Existe alguma maneira de saber o nome do componente ativo para fazer isso? ou alguma outra solução para este problema ? Sem mais agradeço a todos antecipadamente.
  9. Resolvido ... Muito Obrigado amigo.
  10. Bom dia amigos. Preciso de uma ajuda novamente em VBA em A1 tenho DATA INICIAL 03/06/2012 em B1 tenho HORA SAÍDA 09:50:00 em C1 tenho DATA CHEGADA 04/06/2012 em D1 Tenho HORA CHEGADA 22:10:00 a questão é quantas horas demorou essa viagem visto que a data e hora estão em campos separados... Antecipo respeitosamente agradecimentos.
  11. Bom dia amigo ... Muito obrigado pela sua ajuda ... Deu certinho aqui.. atendendo minha necessidade...
  12. Boa tarde Amigos deste Respeitado Forum. Peço as vocês uma ajuda. Preciso descobir qual a quantidade de dias de um determinado mes, porém não estou conseguindo obeter esse número, pois estou tentando da seguinte forma. sub Dias mes = 2 DiasNoMes = DateSerial(Year(CInt(2012)), CInt(Month(mes)) + 1, 1) - DateSerial(Year(CInt(2012)), CInt(Month(mes)), 1) msgbox Diasnomes end sub esta me retornando que "Fevereiro de 2012" tem 31 dias ... Esta errado ... Poderiam por favor me ajudarem nessa questão ... Antecipo cordialmente agradecimentos aos amigos da casa.
  13. Olá amigo Benzadeus... Obrigado pela sugestão acima mencionado.... este atendeu exatamente minha necessidade. Muito obrigado mesmo.
  14. Olá amigo Benzadeus... Agradeço-lhe pelos prestimos em solucionar este problema ... Obrigado pela ajuda, deu certinho , atendendo minha necessidade. Espero que outros amigos colaboladores/Membros possas ler e tirar proveito desse tópico, pois um dia poderá ser útil. Sem mais muito obrigado.
  15. Olá amigos desse forum... Antecipo a todos agradecimentos por ler este tópico. Preciso de uma ajuda de vocês. na coluna A da linha 1 a linha 500 tenho vários valores referente a várias notas fiscais de compra de um determinado fornecedor Exemplo: A1 = 125.35 A2 = 33.50 A3 = 1550.35 A4 = 78.89 A5 = 54.66 A6 = 99.35 A7 = 78.99 E assim por diante... a questão é ... tenho um boleto a pagar com um valor de r$ 258.90 quero saber dentro desta lista , quais valores somados dá esse total de 258.90... e pintar esses valores de vermelho. no exemplo acima seria : A1 + A4 + A5 OU 125.3
×
×
  • Create New...