frata

Funcionou PERFEITAMENTE.....muito obrigado!!!! Devo meu aprimoramento em VBA aos colegas deste Forum. É muito bom poder contar com pessoas competentes como você. Valeu mesmo...!!!!! Grande abraço. Frata

Meu caro robatsilva, o que está acontecendo é o seguinte: Caso ocorra um erro será carregado para o usuário um Userform informando um determinado procedimento. Então o problema é que mesmo sem ocorrer um erro ele está carregando esse Userform com a informação ao usuário. Ou seja; ele executa todo o código porque não hove erro e depois executa também o tratamento de erro; mesmo sem nenhum erro. Se você quiser te envio a PLnilha para dar uma olhada. Obrigado pela gentileza e grande abraço. Frata.

Desculpe, está realmente assim como você digitou, é que eu havia postado sem verificar. O código está exatamente assim como vc colocou, e mesmo assim está executando o trecho de código referente ao erro, mesmo quando não existe o erro. Ele faz todo o procedimento e no final abre a caixa de diálogo que seria para ser carregada caso hovesse erro. Obrigado. Frata

Ajudou muito, obrigado. Já estou usando.!!! Mas não funciona com grupo de células só individualmente. Outra coisa, será que haveria algo parecdo para no caso de se digitar - equivocadamente - em cima de uma célula já preenchida, tipo avisar sobre uma substituição..??? Grande abraço. Frata

Estou com um pequeno problema, a minha planilha tem um tratamento de erro, conforme o código postado abaixo. Acontece que ele sempre executa o trecho de código do tratamento de erro, mesmo que não tenha erro. Será que alguém pode me ajudar..?? Obrigado e grande abraço a todos. Frata. Private Sub CommandButton2_Click() On Error GoTo saida saida: MsgBox "Antes de excluir dados clique em LANÇAMENTOS", , "CADASTRO DE CHEQUES" Selection.Interior.ColorIndex = 6 UserForm4.Show End Sub

Prezado Kuroi: Acabei de ver as opções de controle de alterações (no menu Ferramentas), é exatamente o que eu precisava; porque caso apague acidentalmente o conteúdo de alguma célula eu vou saber qual era seu valor anteriormente. Ajudou muito, fico-lhe grato mais uma vez pela excelente dica. Grande abraço. Frata.

Prezado Kuroi: Obrigado uma vez mais pela sua gentileza. Vou pesquisar no Google e ver se encontro alguma coisa. Grande abraço. Frata

Acho oportuno lembrar que este Forum tem a finalidade de troca de informações sérias, objetivando ao aprimoramento individual na linguagem VB6, inclusive de apoio acadêmico; e não há espaço aqui para afetações particulares e discriminatórias. É importante que os colegas do Forum sejam todos respeitados com suas questões sejam elas de menor ou maior grau de complexidade. Caso a minha dúvida tenha sido motivo de aborrecimento, gostaria de deixar aqui patente as minhas desculpas, porque a minha verdadeira intenção foi tentar solucionar uma dúvida e não criar qualquer tipo de polêmica ou constrangimento aos caros colegas deste Forum. Um grande abraço a todos Frata

Será que é possível criar uma Macro que quando a Planilha for executada baixe automaticamente o nível de segurança do Excel...??? Isso seria importante porque algumas vezes enviamos planilhas para alguns clientes onde na máquina deles o nível do excel está alto, e então sempre vai aparcecer uma mensagem perguntado se as macros vão ser executadas. Isso é péssimo porque algumas vezes as macros têm a função de proteger a Planilha do cliente. Outa opção seria assinar as Macros, mas não sei exatamente como fazer isso. Obrigado antecipadamente, e um abração a todos os colegas do Forum. Frata

Prezados colegas: Desenvolvi uma planilha que é bastante sofisticada, com várias Macros, etc. Bem, acontece que eu a uso como banco de dados, onde estão cadastrados todos os clientes da empresa. Gostaria de saber como colocar uma proteção na qual me avisasse antes de deletar alguma informação na planilha, como acontece quando se vai mover uma célula. Imagino que seria apenas abrir uma mensagem pedindo confirmação para depois deletar alguma informação de alguma célula. Será que alguém sabe como faço isso..??? Obrigado a todos. Frata

Prezados colegas: Desenvolvi uma planilha que é bastante sofisticada, com várias Macros, etc. Bem, acontece que eu a uso como banco de dados, onde estão cadastrados todos os clientes da empresa. Gostaria de saber como colocar uma proteção na qual me avisasse antes de deletar alguma informação na planilha, como acontece quando se vai mover uma célula. Imagino que seria apenas abrir uma mensagem pedindo confirmação para depois deletar alguma informação de alguma célula. Será que alguém sabe como faço isso..??? Obrigado a todos. Frata

Prezado Densyy: Acabei de baixar a sua Demo; parabéns, está realmente excelente. Obrigado, ajudou muito. Posts como esse, é que tornam este Forum tão especial. Mais uma vez parabéns. Grande abraço. Frata.

Prezado Danleonhart: Peço desculpas aos colegas do Forum, por ter quebrado as regras de Ética; essa não foi a minha intenção. Obrigado pelas dicas. Grande abraço a todos. Frata

Prezados colegas. Consegui baixar o VB 6.0 fazendo uso do Ares; porém o grande problema que se revelou agora é o número de serial; será que alguém sabe como resolver este problema. Um grande abraço a todos. Frata

Bem, estou desenvolvendo um pequeno aplicativo que avisa ao usuário de computador, para corrigir a postura, visando justamente melhorar a qualidade dos usuários de computador que ficam muitas hotras sentados na frente do monitor. Bem, acontece que gostaria que ele iniciasse junto com o Windows, eu estava vendo no programa Ares, que basta marca uma determinada caixa para habilitar essa opção de iniciar com o Windows. Bem, agora vem minha pergunta: como faço para colocar essa opção no meu programa ? será que isso é viável ? ou vai complicar muito..?? Antecipadamente agradeço pela gentileza dos usuários deste Forum. Frata

Prezado Raphael: Primeiramente obrigado pela gentileza de responder ao meu post. Abaixo estou colando o código original da pasta Class Modules. Caso você necessite do projeto completo posso te enviar por e-mail. Grande abraço. Frata. Sub Solicita_Novo() On Error GoTo erro frmCad.Caption = "Adicionando novo cadastro..." frmCad.Show 1, frmCli Exit Sub erro: MsgBox "Erro ao solicitar novo registro! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Atualiza_Acoes() On Error GoTo erro With frmCli.tbr If Dir(Dados) = "" Then .Buttons(3).Enabled = False .Buttons(5).Enabled = False .Buttons(7).Enabled = False Else .Buttons(3).Enabled = True .Buttons(5).Enabled = True .Buttons(7).Enabled = True End If Me.Mostrar If frmCli.lst.ListItems.Count < 1 Then .Buttons(3).Enabled = False .Buttons(5).Enabled = False .Buttons(7).Enabled = False Else .Buttons(3).Enabled = True .Buttons(5).Enabled = True .Buttons(7).Enabled = True End If End With Exit Sub erro: MsgBox "Erro ao atualizar ações! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Gravar() On Error GoTo erro Open Dados For Append As 1 With frmCad Print #1, .txtNome.Text & "//" & .txtTel.Text End With Close #1 Unload frmCad Me.Atualiza_Acoes MsgBox "Registro gravado com sucesso!", vbInformation, "Informação" Exit Sub erro: MsgBox "Erro ao gravar registro! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Alterar() On Error GoTo erro With frmCli .lst.SelectedItem = frmCad.txtNome.Text .lst.SelectedItem.SubItems(1) = frmCad.txtTel.Text Unload frmCad .pbr.Max = .lst.ListItems.Count .pbr.Value = 0 Open Dados For Output As 1 Do While .pbr.Value < .pbr.Max .pbr.Value = .pbr.Value + 1 .lst.ListItems.Item(.pbr.Value).Selected = True Print #1, .lst.SelectedItem.Text & "//" & .lst.SelectedItem.SubItems(1) Loop Close #1 .pbr.Value = 0 MsgBox "Registro alterado com sucesso!", vbInformation, "Informação" End With Exit Sub erro: MsgBox "Erro ao alterar registro! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Excluir() On Error GoTo erro With frmCli If MsgBox("Deseja realmente excluir o registro selecionado?", 4 + 32, "Exclusão") <> 6 Then Exit Sub .lst.ListItems.Remove (.lst.SelectedItem.Index) If .lst.ListItems.Count < 1 Then Kill Dados Me.Atualiza_Acoes Exit Sub End If .pbr.Max = .lst.ListItems.Count .pbr.Value = 0 Open Dados For Output As 1 Do While .pbr.Value < .pbr.Max .pbr.Value = .pbr.Value + 1 .lst.ListItems.Item(.pbr.Value).Selected = True Print #1, .lst.SelectedItem.Text & "//" & .lst.SelectedItem.SubItems(1) Loop Close #1 .pbr.Value = 0 End With Exit Sub erro: MsgBox "Erro ao excluir registro! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Mostrar() On Error GoTo erro With frmCli If Dir(Dados) = "" Then 'não há dados Else Dim Texto, ls As ListItem, Ch, Num Ch = 0 Texto = "" Num = 0 .lst.ListItems.Clear Open Dados For Input As 1 Do While EOF(1) = False Line Input #1, Texto Num = Num + 1 Loop Close #1 .pbr.Value = 0 .pbr.Max = Num Open Dados For Input As 1 Do While EOF(1) = False Ch = Ch + 1 .pbr.Value = Ch Line Input #1, Texto Texto = Split(Texto, "//") Set ls = .lst.ListItems.Add(, Ch & "chave", Texto(0)) ls.SubItems(1) = Texto(1) Loop Close #1 End If .pbr.Value = 0 End With Exit Sub erro: MsgBox "Erro ao listar dados! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Carregar() On Error GoTo erro With frmCli If .tbr.Buttons(3).Enabled = False Then Exit Sub frmCad.txtNome.Text = .lst.SelectedItem frmCad.txtTel.Text = .lst.SelectedItem.SubItems(1) frmCad.cmdGRavar.Enabled = False frmCad.Caption = "Alterando cadastro selecionado..." frmCad.Show 1 End With Exit Sub erro: MsgBox "Erro ao solicitar alteração dos dados! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub

Bem, voltando à agenda TXT, que é o que realmente importa; eu modifiquei o código, como segue abaixo, e já entendi como colocar outros dados na agenda, como e-mail, endereço, etc. Observei que ele salva no arquivo txt, porém não sei como fazer para carregar os dados no formulário e para modificá-los. Obrigado mais uma vez antecipadamente aos amigos deste Forum. Frata Sub Solicita_Novo() On Error GoTo erro frmCad.Caption = "Adicionando novo cadastro..." frmCad.Show 1, frmCli Exit Sub erro: MsgBox "Erro ao solicitar novo registro! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Atualiza_Acoes() On Error GoTo erro With frmCli.tbr If Dir(Dados) = "" Then .Buttons(3).Enabled = False .Buttons(5).Enabled = False .Buttons(7).Enabled = False Else .Buttons(3).Enabled = True .Buttons(5).Enabled = True .Buttons(7).Enabled = True End If Me.Mostrar If frmCli.lst.ListItems.Count < 1 Then .Buttons(3).Enabled = False .Buttons(5).Enabled = False .Buttons(7).Enabled = False Else .Buttons(3).Enabled = True .Buttons(5).Enabled = True .Buttons(7).Enabled = True End If End With Exit Sub erro: MsgBox "Erro ao atualizar ações! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Gravar() On Error GoTo erro Open Dados For Append As 1 With frmCad Print #1, .txtNome.Text & "//" & .txtTel.Text; "//" & .txtEmail.Text End With Close #1 Unload frmCad Me.Atualiza_Acoes MsgBox "Registro gravado com sucesso!", vbInformation, "Informação" Exit Sub erro: MsgBox "Erro ao gravar registro! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Alterar() On Error GoTo erro With frmCli .lst.SelectedItem = frmCad.txtNome.Text .lst.SelectedItem = frmCad.txtEmail.Text .lst.SelectedItem.SubItems(1) = frmCad.txtTel.Text Unload frmCad .pbr.Max = .lst.ListItems.Count .pbr.Value = 0 Open Dados For Output As 1 Do While .pbr.Value < .pbr.Max .pbr.Value = .pbr.Value + 1 .lst.ListItems.Item(.pbr.Value).Selected = True Print #1, .lst.SelectedItem.Text & "//" & .lst.SelectedItem.SubItems(1) Loop Close #1 .pbr.Value = 0 MsgBox "Registro alterado com sucesso!", vbInformation, "Informação" End With Exit Sub erro: MsgBox "Erro ao alterar registro! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Excluir() On Error GoTo erro With frmCli If MsgBox("Deseja realmente excluir o registro selecionado?", 4 + 32, "Exclusão") <> 6 Then Exit Sub .lst.ListItems.Remove (.lst.SelectedItem.Index) If .lst.ListItems.Count < 1 Then Kill Dados Me.Atualiza_Acoes Exit Sub End If .pbr.Max = .lst.ListItems.Count .pbr.Value = 0 Open Dados For Output As 1 Do While .pbr.Value < .pbr.Max .pbr.Value = .pbr.Value + 1 .lst.ListItems.Item(.pbr.Value).Selected = True Print #1, .lst.SelectedItem.Text & "//" & .lst.SelectedItem.SubItems(1) Loop Close #1 .pbr.Value = 0 End With Exit Sub erro: MsgBox "Erro ao excluir registro! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Mostrar() On Error GoTo erro With frmCli If Dir(Dados) = "" Then 'não há dados Else Dim Texto, ls As ListItem, Ch, Num Ch = 0 Texto = "" Num = 0 .lst.ListItems.Clear Open Dados For Input As 1 Do While EOF(1) = False Line Input #1, Texto Num = Num + 1 Loop Close #1 .pbr.Value = 0 .pbr.Max = Num Open Dados For Input As 1 Do While EOF(1) = False Ch = Ch + 1 .pbr.Value = Ch Line Input #1, Texto Texto = Split(Texto, "//") Set ls = .lst.ListItems.Add(, Ch & "chave", Texto(0)) ls.SubItems(1) = Texto(1) Loop Close #1 End If .pbr.Value = 0 End With Exit Sub erro: MsgBox "Erro ao listar dados! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub Sub Carregar() On Error GoTo erro With frmCli If .tbr.Buttons(3).Enabled = False Then Exit Sub frmCad.txtNome.Text = .lst.SelectedItem frmCad.txtTel.Text = .lst.SelectedItem.SubItems(1) frmCad.cmdGRavar.Enabled = False frmCad.Caption = "Alterando cadastro selecionado..." frmCad.Show 1 End With Exit Sub erro: MsgBox "Erro ao solicitar alteração dos dados! " & Err.Description, vbCritical, "Erro n.º " & Err.Number End Sub

Prezados amigo: Procurei e encontrei, uma agenda ótima e simples que salva os dados em TXT e com todos os recursos de alterar buscar, etc. Abaixo segue o link. Gostaria de saber como colocar mais ítens nessa agenda, ou seja, melhorá-la para ficar mais completa, com e-mail endereço, celular, local para observações,etc. Grande abraço a todos. Frata. http://www.vbmania.com.br/pages/index.php?...&varID=3248

Estou tentando desenvolver um aplicativo que faça combinações da Loteria Esportiva. Basicamente o usuário escolhe um determinado número de tríplos e duplos e o programa faz as demais combinações. Será que alguém já tem isso mais ou menos pronto que possa me dar uma dicas..??? Antecipadamente agradeço as todos. Grande abraço. Frata

Bem, amigos, estou participando deste forum há mais de um ano, e agora, derrepente me deparo com o seguinte problema: não tenho mais na minha máquina o vb 6.0 porque ela foi formatada e não tive como salvar o programa. E o que é pior ainda, não sei onde baixar o programa, e pelo visto, acho que ninguém sabe me informar como proceder. Por isso recorro mais uma vez aos amigo aqui do Forum para me darem uma ajuda: COMO CONSEGUIR O VB 6.0 ...?????? Conto mais uma vez com a valiosa ajuda deste Forum. Obrigado e Grande abraço a todos Frata.

Gostaria de desenvolver uma aplicação que procurasse na Internet apenas por arquivos no formato MP3 , e os baixassem para uma determinada pasta. Será que isso é viável ? Grande abraço a todos. Frata

Bem estou tentando desenvolver uma aplicação que baixa arquivos com extensão MP3 diretamente do Google. É basicamente o seguinte: Abre um navegador, tudo em VB, e ao clicar num botão ele acessa o Google. Até aí tudo bem; Agora sim começa o problema, teria que digitar no google o seguinte: intitle:index.of +"last modified" +"parent directory" +(mp3 wma ogg) +"nome da banda ou música" -html -htm -asp -php Então são duas questões a serem resolvidas: 1 - Clicar num botão do programa de forma que digite essa consulta no Google automaticamente - apenas num clique; 2 - Ter a opção de abrir uma caixa de diálogo onde o usuário digite o nome da banda ou da música; Ou seja, onde diz na consulta "nome da banda ou música" ter a opção de ser inserido nomes de bandas ou músicas. Resumindo; o usuário só digita o nome da banda ou música e clica num botão para acessar. Será que isso é viável..??? Antecipadamente agradeço aos colegas do Forum. Grande abraço. Frata

Oi, Matheus; não faço a menor idéia...risos. grande abraço. Frata.

A parte do código que fica amarela para identificar o erro é: Private Sub wbrDesiredURL_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) Obrigado . Frata

oi, Matheus, está me retornando o seguinte: Compile error Variable not defined Eu coloquei o código assim: Private Sub wbrDesiredURL_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) On Error Resume Next If Progress = ProgressMax Then pb.Visible = False Else pb.Visible = True pb.Max = Progress pb.Value = Progress End If End Sub Obrigado, e desulpe pelo incômodo. Frata