Este fórum está sendo desativado

[vilc]

Boa Noite, como faço para contar as linhas preenchidas da coluna D6 em diante, nela contem o campo código, e quando eu abrir o formulário queria que ele me amostrasse a quantidade de linhas preenchidas, ou o ultimo valor preenchido.

tentei esse codigo, mas nao consegui jogar para comessar a contar da coluna D6.

lblContador.Caption = Plan9.Cells(Rows.Count, 1).End(xlUp).Row

[osvaldomp]

Se você quer contar células não vazias da coluna D, a partir de D6, experimente:

Código: Selecionar todos

lblContador.Caption = Application.CountA(Plan1.Range("D6:D" & Plan1.Cells(Rows.Count, 4).End(xlUp)))

[vilc]

não funcionou amigo, deu mensagem: método do range worksheet falhou

[osvaldomp]

Desculpe, amigo faltou .Row:

lblContador.Caption = Application.CountA(Plan1.Range("D6:D" & Plan1.Cells(Rows.Count, 4).End(xlUp).Row))

[vilc]

funcionou amigo, muito obrigado.