Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[Resolvido] Contador de linhas por intervalo - Excel vba

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Contador de linhas por intervalo - Excel vba

Mensagem por milton »

Boa tarde pessoal. Estou precisando de uma ajudinha.

Tenho esse contador que faz a contagem de linhas preenchidas a partir da célula B19, e funciona perfeitamente.
O que preciso é, quando o código executar,

se localizar linhas preenchidas no intervalo das células B19 à B55 ele dispara a msgbox "Folha1"
se localizar linhas preenchidas no intervalo das células B56 à B92 ele dispara a msgbox "Folha2"
e por fim , da célula B93 à B129 ele dispara a msgbox "Folha3"


Worksheets("PACKING").Select 'Seleciona a Plan
Range("B19").Select
While ActiveCell <> ""
If ActiveCell <> "Cant." Then 'Quant, é o título colocado na coluna b18 da planilha
num = num + 1

'msgBox "Folha1"

End If
ActiveCell.Offset(1, 0).Activate
Wend

Desde já Obrigado
Editado pela última vez por milton em Seg Ago 12, 2019 7:33 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Contador de linhas por intervalo - excel vba

Mensagem por Tov Elen Shau »

Colega

Talvez eu não tenho entendido muito bem. Tente armazenar o número da célula ativa em uma variável, tipo;

x = ActiveCell.Row
If x >= 19 And x <= 55 Then
MsgBox "Folha1", vbInformation, "Encontrado!"
End If

If x >= 51 And x <= 92 Then
MsgBox "Folha2", vbInformation, "Encontrado!"
End If


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Contador de linhas por intervalo - excel vba

Mensagem por milton »

Tov Elen Shau é isso mesmo.
Muito obrigado!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder