Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
for até a última li...
 
Notifications
Clear all

for até a última linha

 
2024 - VBA & Macros
Post Recente por juliowd 10 anos atrás
5 Posts
2 Usuários
0 Reactions
1,217 Visualizações
RSS
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Oi. Eu acho que não estou sabendo pesquisar. Desculpe se isso já foi resolvido em outra situação. Mas é que não encontro de jeito nenhum. E como meu nível de programação é baixo, peço auxílio aos amigos.

Eu preciso rodar uma FOR só entre as células com valores...

Sub inserir_novo_grupo()
    
    If Range("C11") = "" Then
        
        MsgBox "Gentileza informar o nome do grupo"
        
        Range("C11").Select
        
    Else
        
        For i = 1 To 1000
        
            If Plan20.Range("b" & i) = Range("C11") Then
            
            MsgBox "Identifiquei um grupo com este nome. Gentileza escolher outro nome."
            
            Else
            
                Range("C11").Select
                Selection.Copy
                Sheets("cad de grupos").Select
                Range("B9").Select
                Selection.End(xlDown).Select
                ActiveCell.Offset(1, 0).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                Sheets("inserir grupo").Select
                Application.CutCopyMode = False
                Selection.ClearContents
                
            End If
        Next
        
    End If
    
End Sub

Então, no lugar do 1000, eu queria que ele só fosse até a última linha preenchida.
Desculpe mais uma vez eu abrir um tópico. Certamente eu sei que em algum lugar tem, mas realmente não achei.
Obrigado amigos!!

 
Postado : 28/04/2015 12:30 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

qual é a coluna que determina o preenchimento ? digo, é pela coluna B ? Vc quer verificar a última célula preenchida na coluna B e trocar o numero 1000 pelo número da última linha preenchida, certo ? Claro, seria uma variável, não um número fixo...

FF

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

 
Postado : 28/04/2015 12:46 pm
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Isso!

 
Postado : 28/04/2015 1:07 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Acrescente isso:

        with Plan20
            UltimaLinha = .Cells(.rows.count,2).end(xlup).row
        end with

após o Else....
Fica assim:

Sub inserir_novo_grupo()
dim UltimaLinha as Long    
    If Range("C11") = "" Then
        
        MsgBox "Gentileza informar o nome do grupo"
        
        Range("C11").Select
        
    Else
        with Plan20
            UltimaLinha = .Cells(.rows.count,2).end(xlup).row
        end with
        For i = 1 To UltimaLinha 
        
            If Plan20.Range("b" & i) = Range("C11") Then
            
            MsgBox "Identifiquei um grupo com este nome. Gentileza escolher outro nome."
            
            Else
            
                Range("C11").Select
                Selection.Copy
                Sheets("cad de grupos").Select
                Range("B9").Select
                Selection.End(xlDown).Select
                ActiveCell.Offset(1, 0).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                Sheets("inserir grupo").Select
                Application.CutCopyMode = False
                Selection.ClearContents
                
            End If
        Next
        
    End If
    
End Sub

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

 
Postado : 28/04/2015 1:20 pm
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Perfeito!!!!
Muito obrigado, Fernando!!!
Deu um errinho depois, mas aí não é coisa da ultima linha.. foi erro meu mesmo que já resolvi!!
Um abraço!!!!

 
Postado : 28/04/2015 1:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico