Michelle Alves

Ahh, entendi agora. O que você deseja é que o TEXT exibe como valor financeiro, certo ? Se for isso mesmo coloque assim: Private Sub TextBox6_Change() TextBox6.Text = Format(TextBox6.Text, "R$ #,##0.00") End Sub

Não sei onde o resultado será exibido, mas para converter em Currency você deve fazer algo assim: CCur(Me."SEUTEXTBOX".Text)

Kuroi, Sem querer abusar, mas abusando... e para realizar essa mesma busca pelos dois TEXT. TEXTBOX1 E TEXTBOX11, mas ao invés de alterar eu copiar a linha localizada para outra planilha e deletar a linha selecionada. Como eu poderia fazer ? Obrigada

Ufa......agora sim, Kuroi... nem acredito...rs. Isso já tava me deixando preocupada, muitíssimo obrigada !!!

Kuroi, te enviei novamente no teu email, ok. Tente fazer como expliquei no email, por favor. Aqui não roda de jeito nenhum. Obrigada.

Então Kuroi, pior que estou com o problema até hoje. Tentei exatamente como você falou... e deu o mesmo erro. Coloquei o Val do mesmo jeito. O valor exibido no Textbox1 é puxado da planilha e ele não sofre alteração. Só lembrando, a busca seria:o TExtbox1 na coluna F e Textbox11 na coluna L. Ai uma vez que encontrou promove nessa linha a alteração. Compreendeu ? Obrigado, viu.

Boa noite, O quintelab tem toda razão, no entanto se quiser copiar e colar um dado de um objeto para outro pode utilizar o procedimento abaixo: Dim dados As DataObject 'variável que vai receber os dados a serem copiados Set dados = New DataObject dados.SetText TextBox1.Text 'pegando o texto do text box dados.PutInClipboard 'colocando na área de transferência TextBox2.Paste

Boa noite, Veja se te ajuda: Clicando no espaço entre a coluna A e a linha 1 você consegue selecionar todas as linhas e alterar simultaneamente todas as linhas.

Então, vou repetir a mensagem aqui: Erro em tempo de execução '13': Tipos incompatíveis Inclusive com a nova versão deu o mesmo erro. Obrigada Kuroi

Então kuroi, deu incompatibilidade na linha abaixo: Set x = Worksheets("CREC").Range("F:F").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) Abaixo coloco o procedimento completo que utilizei: Private Sub CMDalterar_Click() Dim x As Range, i As Integer Set x = Worksheets("CREC").Range("F:F").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) Do While Not x Is Nothing i = x.Row If Worksheets("CREC").Cells(i, 12) = TextBox11.Text Then Exit Do x = Worksheets("CREC").Range("F:F").FindNext(x) Loop If Not x Is Nothing Then With Worksheets("CREC") .Cells(i, 13) = TextBox15.Text .Cells(i, 14) = TextBox14.Text End With End If End Sub

É Kuroi... em princípio parece isso...rs. Mas o problema é que podem ter valores iguais na coluna F, então ele precisa verificar em duas colunas, na F e na L, TEXT1 e TEXT11, compreendeu ?

Enviei agora Kuroi. Obrigada e boa noite

Tá feito então, qualquer dúvida fique à vontade pra me perguntar: http://www.4shared.com/account/file/103227...EC_alterao.html Obrigada novamente

Boa noite Jhonas, Obrigada por sua ajuda, eu ouvi dizer que existe um XP próprio para o HD Sata, saberia me informar ?

É complicado mesmo Kuroi, mas te mando sim. Prefere que te mande por email ou coloque num HD virtual ?

Teoricamente sim, Kuroi. A alteração procede ao dar um duplo click no item do List e ecaminhar para as TEXT. Porém, a maioria dos dados são iguais, e na hora de efetuar a alteração, o primeiro item com dados iguais ao que selecionei é alterado, ou seja, como lido com dados praticamente iguais, nem sempre aquele que selecionei é o que será alterado, mas sim um que venha primeiro e tenha dados iguais ao que eu selecionei.

Bom dia, Tentei utilizar um procedimento que executo em diversos locais do meu projeto, porém dessa vez ele falhou. Ao invés de alterar, ele tá substituindo os dados errados. Por exemplo: Se a linha que deveria ser substituída era a linha 10, ele substitue a linha 5. Penso que seria porque praticamente todas os dados são iguais, exceto pela data. Posto abaixo o procedimento, quem souber me informar qual seria o problema, ficarei muito grata. Private Sub CMDalterar_Click() Dim Resposta Dim i As Double i = (ListBox1.ListIndex + 5) Resposta = MsgBox("Tem certeza que deseja efetuar essa alteração?", vbYesNo) If Resposta = vbYes And i >= 5 Then With Sheets("CREC") .Cells(i, 2) = CDate(TextBox2.Text) .Cells(i, 3) = TextBox3.Text .Cells(i, 4) = TextBox4.Text .Cells(i, 5) = TextBox5.Text .Cells(i, 6) = TextBox1.Text .Cells(i, 7) = TextBox8.Text .Cells(i, 8) = TextBox6.Text .Cells(i, 9) = TextBox7.Text .Cells(i, 10) = CCur(TextBox9.Text) .Cells(i, 11) = CCur(TextBox10.Text) .Cells(i, 12) = CDate(TextBox11.Text) .Cells(i, 13) = CCur(TextBox14.Text) .Cells(i, 14) = CDate(TextBox15.Text) End With End If End Sub

Se for no Excel, não seria apenas formatar a coluna onde estão as datas como valor numérico ?

Vou dar uma analisada, mas estou um pouco apertada e posso demorar um pouco. De qualquer forma já pensou em usar o Rowsource no teu caso ??

Baixei Vitor, Alguns pontos para ressaltar: - Você colocou o procedimento num módulo e não fez associação nenhuma dele com o Listbox. Esse procedimento deve ser associado ao evento Initialize do Form. - Na planilha Graf-Geral, só tem gráficos.... quais os dados você precisa que sejam exibidos no Listbox afinal ??

Vitor, Disponibilize o arquivo num HD virtual como o 4shared.com

Bom dia Vitor, Aparentemente seu código não tem erro. E esse que ocorre é referente a essa linha: Me.ListBox1.AddItem , ListIndex O nome do seu List é esse mesmo?? Poderia disponibilizar um exemplo do seu arquivo para podermos analisar melhor ??

Certinho Kuroi, com essa modificação agora rodou corretamente. Obrigada por mais essa !!!!!!!!!!

Qual erro está acontecendo ?? e o que você quis dizer com intervalo crescer e diminuir ??

Boa Noite HYBC, Você poderia enviar os seus livros por gentileza? Meu e-mail é: siqueiramichellea@yahoo.com.br Muito obrigada.