Notifications
Clear all

MACRO OBEDECENDO DADOS DE CÉLULA

5 Posts
3 Usuários
0 Reactions
765 Visualizações
(@mikke-eni)
Posts: 2
New Member
Topic starter
 

Boa tarde galera, dei uma olhada e não encontrei o que estou precisando.
Vamos lá.
Tenho uma planilha de cadastro de artigos, e cada linha que é inserida, na ultima coluna é colocado a a formula =lin([ref]) para retornar sempre o valor da linha conforme esta linha for descendo com os novos cadastros.
__ A________B______C______D
__1_artigo____inf1___inf2___linha
__2 "MAÇA" | VERM. | 5 | =LIN(A2)
__3 "PERA" | VERD. | 8 | =LIN(A3)
__4 "BAT." | AMAR.. | 5 | =LIN(A4)

Eu tenho uma função procv em outra celula que me diz em qual linha está o artigo que estou procurando por exemplo "bat." = linha 4

O que eu preciso, é de uma macro, que identifique o numero da linha da função procv, no caso do meu exeplo, o "4" , e delete toda a linha 4.
Quando se trata de usar formulas eu sempre me viro, mas chegou na parte do VBA das macros eu apanho muito, se alguém entender, e puder me ajudar desde já agradeço.

 
Postado : 01/11/2013 12:52 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

MIKKE.ENI,

Boa Tarde!

Compacte seu arquivo e anexe o mesmo aqui.

 
Postado : 01/11/2013 1:36 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Seria algo assim:

Sub Exclui()
Dim rD As Integer
rD = [a4] 'sua celula com o valor
Rows(rD).EntireRow.Delete
End Sub

Veja se adapta.

 
Postado : 02/11/2013 8:13 am
(@mikke-eni)
Posts: 2
New Member
Topic starter
 

Perfeito Reinaldo era exatamente o que eu precisava, e era mais simples do que achei que seria, obrigado mesmo.
Wagner obrigado pela atenção também, eu vim aqui justamente pra subir o arquivo quando li a resposta acima, mas obrigado pelo suporte galera (Y).

 
Postado : 04/11/2013 5:24 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 05/11/2013 6:34 am