MACRO OBEDECENDO DADOS DE CÉLULA

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

5 Posts

3 Usuários

0 Reactions

777 Visualizações

RSS

MIKKE.ENI

(@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

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

MIKKE.ENI,

Boa Tarde!

Compacte seu arquivo e anexe o mesmo aqui.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 01/11/2013 1:36 pm

Fernando Fernandes

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 02/11/2013 8:13 am

MIKKE.ENI

(@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