Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Deletar linhas
 
Notifications
Clear all

Deletar linhas

 
2024 - VBA & Macros
Post Recente por vonzuben 8 anos atrás
11 Posts
3 Usuários
0 Reactions
1,948 Visualizações
RSS
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Bom dia !

Estou tentando excluir linhas, mas sem sucesso !
Acredito que eu esteja errando nessa linha wsAtiva.Range(Cells(Rows(12), UltL)).Delete

Ao clicar no botão vai pegar duas linhas acima da última até a linha 12 e excluir

Sub DeletarLinha()

    Dim wsAtiva As Worksheet
    Dim Resp As Integer
    Dim UltL As Long
    
    Set wsAtiva = ThisWorkbook.ActiveSheet
    UltL = wsAtiva.Cells(Rows.Count, 2).End(xlUp).Row

    Resp = MsgBox("Tem certeza que deseja resetar a planilha?", vbYesNo + vbQuestion, "Confirmação")

    If Resp = vbYes Then
    
        wsAtiva.Range(Cells(Rows(12), UltL)).Delete
        
    End If

    Set wsAtiva = Nothing
   
End Sub

Obrigado desde já !

 
Postado : 31/03/2016 11:17 pm
 leonardo
(@leonardo)
Posts: 81
Trusted Member
 

Olá vonzuben,

Substitua a linha abaixo:

wsAtiva.Range(Cells(Rows(12), UltL)).Delete

Por esta:

wsAtiva.Rows(12 & ":" & UltL).Delete

No aguardo.

 
Postado : 01/04/2016 6:11 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Não funcionou !
Agora não sei se tem algo errado no restante do código
Segue em anexo

numerador.xls
 
Postado : 01/04/2016 6:57 am
 leonardo
(@leonardo)
Posts: 81
Trusted Member
 

vonzuben,

Copie e cole as linhas abaixo

If Resp = 6 Then

wsAtiva.Rows(12 & ":" & UltL).Delete

End If

 
Postado : 01/04/2016 7:49 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Funcionou !
Agora não entendi o significado do 6 rs

 
Postado : 01/04/2016 8:09 am
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Só tem uma coisa, sendo se eu clicar de novo no botão X novamente vai ficar excluir novamente linhas acima do 12, ou seja, 11,10,9,8.......

 
Postado : 01/04/2016 12:08 pm
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Resolvi !
Coloquei isso

    If UltL < 12 Then

        MsgBox "Não é possível resetar !"
        Exit Sub
        
    End If
 
Postado : 01/04/2016 12:11 pm
 leonardo
(@leonardo)
Posts: 81
Trusted Member
 

Ok, não esquece de finalizar o tópico

 
Postado : 01/04/2016 12:48 pm
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Antes de fechar o que significa o 6 ?

 
Postado : 01/04/2016 2:28 pm
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
 

Boa tarde, vonzuben.

O numero 6 é o valor de retorno da sua variável Resp.

Aqui explica melhor https://msdn.microsoft.com/pt-br/library/139z2azd(v=vs.90).aspx

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 01/04/2016 2:41 pm
 vonzuben
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Hum, bom saber dessa tabelinha !
Obrigado !

 
Postado : 01/04/2016 3:00 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico