Notifications

Clear all

Deletar linhas

2024 - VBA & Macros

Post Recente por vonzuben 9 anos atrás

11 Posts

3 Usuários

0 Reactions

1,962 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)

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.