Notifications
Clear all

Ajuda com label

9 Posts
2 Usuários
0 Reactions
1,533 Visualizações
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Seguinte..

tenho dados informados a partir da coluna A e linha 10...

consigo com que uma label a partir do meu userform me traga a seguinte informação "Você possui dados pendentes" somente quando houver dados?

Welington Gonçalves

 
Postado : 24/09/2013 5:30 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Explica melhor ou um exemplo... :?

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

 
Postado : 24/09/2013 5:51 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Não testado!!!

Sub Zinho() 
'Tente
'UserForm1.Label1.Caption = Columns(1).SpecialCells(xlCellTypeConstants, 1).Cells.Count 
    me.Label1.caption = Columns(1).SpecialCells(xlCellTypeConstants, 1).Cells.Count 
End Sub 

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

 
Postado : 24/09/2013 6:36 pm
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Zinho, não obtive resultado...

Jose, seguinte...

Tenho uma planilha onde insiro dados (plan1) a partir do meu userform1, porem sempre limpo essa planilha (deleto as informações, tenho como atribuir um código a label para que me informe se há itens ou não na plan1?

Welington Gonçalves

 
Postado : 24/09/2013 6:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

franca, procure sempre colocar as suas solicitações com uma maior qde de detalhes possivel, assim evitamos ter de ficar trabalhando com suposições.

Private Sub UserForm_Initialize()
    
    Dim ws As Worksheet
    Set ws = Sheets("Plan1")

    Dim sTtLinhas As Long

    sTtLinhas = Application.WorksheetFunction.CountA(ws.Range("A10:A65000"))

    If sTtLinhas = 0 Then
        Label1.Caption = sTtLinhas & " Linha(s) Vazia(s)"
    Else
        Label1.Caption = sTtLinhas & " Linha(s) Preenchida(s)"
    End If

End Sub

Eu estou supondo que é isto o que pretende, contar dentro da Coluna A a partir de A10 se temos linhas vazias ou preenchidas e retornar o resultado para um Label.

[]s

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

 
Postado : 25/09/2013 6:40 am
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Legal Mauro... exatamente isso... consigo fazer ela piscar?

Welington Gonçalves

 
Postado : 25/09/2013 7:38 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Franca, se a duvida referente a esta postagem foi Resolvida, favor encerrar este Tópico definindo o mesmo como RESOLVIDO e abrir um novo para a outra duvida e de preferencia como citei acima, de "Detalhes e nomes" que possamos identificar.

Posso estar sendo chato, mas é que procuramos manter o Forum organizado, e quando utilizamos palavras, expressões de facil identificação, isto estará ajudando o sistema de Pesquisa no Forum, e obtendo assim um maior retorno de resultados referente a expressão pesquisada.

Ou seja :

Legal Mauro... exatamente isso... consigo fazer ela piscar?

Ela quem ? você quer que pisque ?

[]s

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

 
Postado : 25/09/2013 8:01 am
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

entendo,

mas referente ainda ao código que me apresentou, digamos que eu queira inserir informações através de um button, e todas vez que inserir um código ele deveria atualizar a informação...

exemplo:

01 Linha preenchida

ao inserir um item ele me retornaria na label 02 linhas preenchidas.... e assim por diante

Welington Gonçalves

 
Postado : 25/09/2013 8:12 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

entendo,

mas referente ainda ao código que me apresentou, digamos que eu queira inserir informações através de um button, e todas vez que inserir um código ele deveria atualizar a informação...

exemplo:

01 Linha preenchida

ao inserir um item ele me retornaria na label 02 linhas preenchidas.... e assim por diante

A Rotina que faz a verificação é a que postei acima que é acionada quando abrimos o formulário, é só fazer as adaptações e coloca-la no Botão que irá acionar.

[]s

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

 
Postado : 25/09/2013 12:08 pm