Notifications
Clear all

Ajuda para criar VBA 2

8 Posts
2 Usuários
0 Reactions
2,092 Visualizações
(@daniel-fernandesss)
Posts: 16
Eminent Member
Topic starter
 

Amigos, saudações primeiro, e obrigado para quem me ajudou no topico anterior, o meu problema agora, é outro!
agora preciso, de uma VBA, para uma planilha de cobrança.
a planilha está disponibilizada abaixo.
Na coluna "A", quando eu digitar um "." queria que ele limpasse a coluna "A", "B", "C", "D" e "E", isso é uma coisa, agora..
se eu digitar na coluna "E", automaticamente ele irá calcular o novo valor, e colocará o novo valor na coluna "D", assim apagando a celula da coluna "E".

http://www.4shared.com/file/ER9iH4D5/cobranaPT_2.html
ps: essa planilha, ela copia o valor da linha que for inserido SIM para a plan2, no codigo da plan tem a vba.. se alguem poder ajudar =D

ou seja, se eu digitar um "." na coluna "A", a linha vai ser apagada, de "A até E",
se eu digitar um valor em "P/C" ele irá me gerar um novo valor, ou seja, o valor que me deve menos o valor do "P/C", apagando o P/C atual e só deixando a coluna B C D.

desculpa se eu compliquei, mais a plan ta ai, quem poder ajudar, obrigadão!
tem um codigo que ja consegui inserido nela, se ajudar.. podem usar ele, se nao criar outro hehe
obrigadissimo!
fiquem com Deus!

 
Postado : 10/12/2011 7:31 pm
(@daniel-fernandesss)
Posts: 16
Eminent Member
Topic starter
 

 
Postado : 10/12/2011 7:43 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

Creio que podes adicionar em um modulo esse código....
Fique ligado que poderá haver necessidade de adaptação...

Sub AlexandreVBA()

Dim startrow As Long
    'starting row number here
    startrow = 1
    ' Assuming data to check is in A Column
    Do Until startrow > Cells(Cells.Rows.Count, "A").End(xlUp).Row
        If Cells(startrow, 1).Value = "." Then
            Rows(startrow).Delete
        Else
            startrow = startrow + 1
        End If
    Loop
End Sub

Att...

 
Postado : 11/12/2011 6:42 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Consegui de outra forma veja o anexo...
Terá que colocar o "." na sua validação....

Não se esqueça da mãozinha .... :lol:

Att..

 
Postado : 11/12/2011 7:18 am
(@daniel-fernandesss)
Posts: 16
Eminent Member
Topic starter
 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Text = "." Then
Range("A" & Target.Row & ":" & "D" & Target.Row).ClearContents

End If
Application.MoveAfterReturnDirection = xlToRight
End Sub

usei esta formula para excluir os dados, agora so queria que quando eu digitasse um valor em P/C, ele automaticamente na mesma linha na coluna "Valor", gerasse o novo valor.. ou seja, quando eu digitar "P/C" é porque a pessoa só pagou uma parte do que devia.. dai o valor irá cair.. quando eu escrever em "P/C" queria que o valor que a pessoa deve, fosse atualizado para a formula, ("Valor" - "P/C") assim gerando um valor novo..

 
Postado : 11/12/2011 10:46 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Daniel, peço a gentileza de na próxima vez que for abrir algum tópico se atenttar as regras do forum na questão dos Titulos :

gentileza conhecer as Regras do Fórum, especificamente:
a) títulos com “AJUDA”, “SOCORRO”, “URGENTE”, “HELP”, “ALGUÉM SABE”, “DESAFIO” e semelhantes, não devem ser usados e NEM RESPONDIDOS.

Quanto a este tópico, sinceramente, a não ser que tenham excluido alguma parte, fiquei confuso.

Primeiro :
Na coluna "A", quando eu digitar um "." queria que ele limpasse a coluna "A", "B", "C", "D" e "E", isso é uma coisa, agora..
Esta questão já foi postada e resolvida em seu outro tópico.

Segundo :
O anexo que postou não possui a rotina que você menciona neste tópico, e sim uma rotina para Copiar e depois Deletar a Linha.
A Coluna A está com Validação para só aceitar "Sim" impossibilitando outro tipo de dados.

Outra situação é que o exemplo que o Alexandre anexou, a não ser que tenha enviado a ele, não vi relação com o seu modelo anexo aqui ??? :?:

[]s

 
Postado : 11/12/2011 6:12 pm
(@daniel-fernandesss)
Posts: 16
Eminent Member
Topic starter
 

desculpas pelo titulo do topico..
e a planilha eu n tinha postado a atualizada, desculpas!
na atualizada so preciso que quando digitar o P/C, apague a celula "P/C" e gere o novo valor, ou seja o valor - o PC.

 
Postado : 11/12/2011 8:30 pm
(@daniel-fernandesss)
Posts: 16
Eminent Member
Topic starter
 

uppp

 
Postado : 15/12/2011 12:38 am