mrfg2000

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 abrir o formulário eu faço a validação no banco Private Sub Login_Click() If TextBox1.Value <> Empty And TextBox1.Value <> "" And TextBox2.Value <> Empty And TextBox2.Value <> "" Then 'Conectando banco de dados Dim cn As ADODB.Connection Set cn = New ADODB.Connection With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & ActiveWorkbook.Path & "\BANCO.MDB;" .Properties("Jet OLEDB:Database Password") = "123" .Open End With 'Abrindo a tabela do banco de dados Set rs = New ADODB.Recordset StrSql = "Select * from CadUsuarios where usuario = '" & UCase(TextBox1.Value) & "' and senha = " & TextBox2.Value rs.Open StrSql, cn, adOpenKeyset, adLockOptimistic ' Todos os registros da tabela" If Not rs.EOF Then 'se encontrou Unload Me Set ULogin = Nothing Dim CodUsuario As Integer Sheets("menu").Range("A1").Value = CInt(rs.Fields("Código")) Sheets("menu").Range("B1").Value = rs.Fields("Nome") rs.Close 'fecha a tabela Set rs = Nothing Else MsgBox "Usuário e Senha não localizado...", vbCritical, ":::..Aviso..:::" TextBox1.Value = Empty TextBox2.Value = Empty Sheets("menu").Range("A1").Value = Empty Sheets("menu").Range("B1").Value = Empty TextBox1.SetFocus rs.Close 'fecha a tabela Set rs = Nothing End If cn.Close Set cn = Nothing End If End Sub e o botão Sair 'Botao Sair Private Sub Sair_Click() Unload Me Set ULogin = Nothing ThisWorkbook.Saved = True ThisWorkbook.Close Application.Quit End Sub Estude o código acima e veja como pode ser útil em sua necessidade. Espero ter ajudado . Abraços.

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 uma função em VBA igual a função somarprodutos só que respeitando o filtro ???? ou seja multiplicando apenas as colunas visiveis e desconsiderando as linhas ocultas por filtro ? Para ajudar segue um arquivo em nexo como modelo veja que ele não respeita os filtro. Obrigado

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 Printer.Print Tab(20); item.SubItems(i); Next Printer.Print Next

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 = CreateObject("Access.Application") 'A linha de baixo é opcional appObj.Visible = True appObj.OpenCurrentDatabase sCaminho appObj.Run "Mortalidade" appObj.Quit End Sub Obrigado amigos.

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...

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 origem = ActiveWorkbook.Path 'mude para a pasta de origem destino = "C:\windows\system32\" 'mude para a pasta de destino Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next If Not fso.FolderExists(origem) Then MsgBox origem & " Não é uma pasta válida.", vbInformation, "Aviso" ElseIf Not fso.FolderExists(destino) Then MsgBox destino & " Não é uma pasta válida.", vbInformation, "Aviso" Else fso.CopyFile (origem & "\*.ocx"), destino ' Mude "\*.*" para "\*.xls" para mover somente arquivos Excel End If If Err.Number = 53 Then MsgBox "Arquivo não encontrado" Call Shell("C:\WINDOWS\system32\regsvr32.exe mscomct2.ocx /user:administrator cmd.exe") End Sub

Boa noite amigo Benzadeus ... Agradeço novamente pelo seu empenho e ajuda na solução desta dúvida ... Agraço-lhe imensamente. Abraços

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.

Resolvido ... Muito Obrigado amigo.

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.

Bom dia amigo ... Muito obrigado pela sua ajuda ... Deu certinho aqui.. atendendo minha necessidade...

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.

Olá amigo Benzadeus... Obrigado pela sugestão acima mencionado.... este atendeu exatamente minha necessidade. Muito obrigado mesmo.

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.

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.35 + 78.89 + 54.66 mas a macro que irá fazer a combinação entre esses valores e me mostrar quais valores são. eu informaria apenas o valor inicial. acho que é isso. Obrigado amigos se puderem me ajudar...

OLÁ AMIGOS deste forum. estou precisando de uma ajuda de vocês. tenho na coluna A NÚMEROS E NA COLUNA B CORES EXEMPLO A1 = 1 B1 = PRETO A2 = 2 B2 = VERMELHO A3 = 3 B3 = AMARELO A4 = 4 B4 = VERDE E ASSIM POR DIANTE. EM C5 VOU DIGITAR UM NÚMERO TIPO 2 E QUERO QUE EM D5 ME RETORNO A COR CORRESPONDENTE AO NÚMERO 2 OU SEJA VERMELHO. OBSERVAÇÃO É UM PROCV .. MAS não DE VALOR E SIM DA COR. EM D5 DEVERÁ FICAR EM VERMELHO ... OU SEJA RANGE("D5").INTERIOR.COLORINDEX = RED A COR EM D5 TEM QUE MUDAR CORRESPONDENTE AO VALOR QUE ESTIVER EM C5 acho que deu para explicar... abraço a todos amigos. e antecipo agradecimentos

OLÁ AMIGO Cifro 13, Gostaria de parabenizá-lo pela iniciativa em compartilhar seu conhecimento neste Tutorial de como controlar o estoque , esse é um assunto pouco falado na rede de internet ... , dificilmente você encontra uma planilha de controle de estoque que funcione bem, e que esteja bem estruturada, com entradas, saída , Custo médio Estoque do items X ... , Saldo do Item Y ... Fica como incentivo , e pedido, para você colocar aqui para download uma planilha desse porte ... para podermos compartilhar conhecimento. Um brande abraço.

Olá amigo .. é necessário sim , ter uma programação para o envio automático de e-mails. Segue abaixo um exemplo de como fazer isso, ele envia uma parte selecionada para um e-mail (Envia um ranger) esta comentada o que cada comando vai fazer ok. Copie o código abaixo e coloque em um módulo dentro do VBA (Visual Basic Application) abraços e espero ter ajudado. ^_^ Sub Mail_Range() Dim Source As Range Dim Destwb As Workbook Dim wb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim FileFormatNum As Long Set Source = Nothing On Error Resume Next Set Source = Range("A1:K50").SpecialCells(xlCellTypeVisible) On Error GoTo 0 If Source Is Nothing Then MsgBox "A celula para enviar esta protegida , ou a planilha esta protegida, apos resolver o problema, tente novamente .", vbOKOnly Exit Sub End If ' desabilita algunas funcoes With Application .ScreenUpdating = False .EnableEvents = False End With Set wb = ActiveWorkbook Set Destwb = Workbooks.Add(xlWBATWorksheet) Source.Copy ' Seleciona a regiao a ser enviada o e-mail With Destwb.Sheets(1) .Cells(1).PasteSpecial Paste:=8 .Cells(1).PasteSpecial Paste:=xlPasteValues .Cells(1).PasteSpecial Paste:=xlPasteFormats .Cells(1).Select Application.CutCopyMode = False End With ' verifica o local a salvar o arquivo TempFilePath = Environ$("temp") & "\" ' Da um nome para salvar o arquivo e a data TempFileName = "Selection of " & wb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") ' faz a Verificacao da versao do seu office If Val(Application.Version) < 12 Then ' Verifica se esta usando Excel 2000 ou Excel 2003. FileExtStr = ".xls": FileFormatNum = -4143 Else ' Verificar se esta usando Excel 2007. FileExtStr = ".xlsx": FileFormatNum = 51 End If ' salva e envia o e-mail With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next .SendMail "someone@example.com", "Titulo do e-mail" On Error GoTo 0 .Close SaveChanges:=False End With ' Deleta o arquivo temporario criado para envio. Kill TempFilePath & TempFileName & FileExtStr ' Ativa novamente funcoes With Application .ScreenUpdating = True .EnableEvents = True End With End Sub

Olá grande família de excel... Digo assim porque me sinto a vontade em expressar minhas dúvidas neste site e também responder a outros. Amigos estou precisando de uma ajuda em arredondar números.... mas não é o comando ARRED , e nem ARREDONDAR.PARA.CIMA / ARREDONDAR.PARA.BAIXO, vou explicar melhor para facilitar o entendimento quando o número do resultado de uma formula der : 2,21 , gostaria que arredondasse para : 2,20 2,22 , gostaria que arredondasse para : 2,20 2,23 , gostaria que arredondasse para : 2,25 2,24 , gostaria que arredondasse para : 2,25 2,26 , gostaria que arredondasse para : 2,25 2,27 , gostaria que arredondasse para : 2,25 2,28 , gostaria que arredondasse para : 2,30 2,29 , gostaria que arredondasse para : 2,30 essa é minha dificuldade amigos fazer isso no excel ... em visual Basic Application a solução esta abaixo ... mas em excel não estou conseguindo ... algum amigo poderia me ajudar por favor ... antecipo agradecimentos a todos deste forum. abraços Sub Arredondar() Dim inicio As String Dim valor As Double inicio = "E5" Range("K5:K21").ClearContents Range("K5:K21").NumberFormat = "#,##0.00" For i = 1 To 17 valor = Range(inicio).Value a = Right(valor * 100, 1) If a = 1 Or a = 6 Then valor = valor - 0.01 ElseIf a = 2 Or a = 7 Then valor = valor - 0.02 ElseIf a = 3 Or a = 8 Then valor = valor + 0.02 ElseIf a = 4 Or a = 9 Then valor = valor + 0.01 End If inicio = Range(inicio).Offset(1, 0).Address(False, False) Set colar = Range("K4:K30").Find("", , , xlWhole) colar.Value = valor Next i End Sub

Olá amigos Estou precisando de uma ajuda .. Grande Ajuda .. Na coluna A tenho varias data ... Na coluna B Valores Quero saber o seguinte Dentro de um período que vou buscar na coluna A , qual é o Primeiro Maior Valor Encontrado na coluna B , qual é o Segundo Maior Valor Encontrado na coluna B qual o terceiro .. e assim por diante ... Todos dentro do período obrigado obs: as data na coluna A não estão em ordem Desculpe-me ... segue o link do exemplo abaixo http://www.4shared.com/document/611LypGT/m...e_um_perio.html

Olá amigos. Preciso de uma ajuda de vocês em VBA Estou tentanto preencher um formulário da web com dados de uma planilha. Quando os campos da web são text , ou seja para ser digitados eu consigo fazer isso .. mas quando o campo é um dropdown ou o opption button , eu não estou conseguindo, aguém poderia me ajudar por favor no codigo. o endereço para preencher o formulário é : http://200.19.214.130/tax.Net/tax.net.emis...dar_normal.aspx Public Sub ConectaWeb_Dare() On Error Resume Next Dim endereço As String Dim mostra As Boolean Dim i, n, x As Integer endereço = Range("B1").Value Set ie = CreateObject("InternetExplorer.Application") ie.navigate (endereço) While ie.ReadyState <> 4 Wend ie.Visible = True ie.document.forms.Item(0).Item(1).Value = Range("B3") ' aqui consigo colocar quanto o campo é texto , a questão é e quanto for dropdown ou opption button ?? , como ficaria essa linha ??? ie.document.forms.Item(0).submit While ie.ReadyState <> 4 Wend End Sub alguém pode me ajudar por favor ... antecipo agradecimentos a todos.

Bom dia amigos . Solicito uma ajuda para fazer uma formula que some uma determinada coluna quando contiver a uma sequencia de palavras. Exemplo Coluna A Coluna B Abacaxi 10 Abacate 15 Abobora 05 Abobrinha 02 Ameixa 100 Melancia 50 Mamão 20 Melão 35 Quero fazer um total que some tudo na coluna A que começe com "Aba" , ou seja deverá somar os produtos "Abacaxi,Abacate" desconsiderando os outros produtos. Existe uma formulá para somar nessa condição ??? Contendo parte de uma palavra? No aguardo de uma ajuda Antecipo aos meus amigos desse Maravilhoso Forum meus sinceros AGRADECIMENTOS.

Boa noite Amigo Kuroi .. Agradeço d+ pela sua ajuda e disposição em ajudar a resolver essa questão .. deu certinho. Muito obrigado. Abraços.

boa tarde amigos gostaria de saber se tem algum comando que retorne apenas a LETRA da coluna atual ativa no excell. o comando activecell.address retorna Letra da Coluna e linha Ativa Exemplo ( $B$10 ) o comando activecell.column retorna a Coluna Ativa em número Exemplo ( 2 ) Queria saber se tem um comando que retorno apenas a Coluna Ativa "em letra" , sem a linha Exemplo ( B ). alguém poderia me ajudar ... antecipo agradecimentos.

Bom dia se fizer o que você falou acima em c1 ele retorna o valor plan2!b10 ... porém preciso que isso seja transformado em uma formula , ou seja quero saber qual é o valor que esta na plan2!b10 e que me retorne o valor que estiver lá. acho que agora consegui explicar melhor... obrigado pela ajuda