Ir ao conteúdo
  • Cadastre-se
J. Videira

Visual Basic Exclusão Limitada de linhas em VBA

Recommended Posts

Boa tarde pessoal, sou novo no aqui mas acompanho o Clube do Hardware a algum tempo! Quanto a minha pergunta esclareço que não localizei o que preciso!

Sou iniciante em VBA  e estou montando uma planilha, cheguei na seguinte situação: 1º preciso otimizar meu Código  na primeira Macro  "INSERIREQUIPE" segue abaixo o codigo

 

Sub INSERIREQUIPE()
'
' INSERIREQUIPE Macro
' Copia a ("A11:H14") e insere abaixo

'
    
    Range("A11:H14").Select
    Selection.Copy
    Range("A11").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   MsgBox (" Altere os Dados da Nova Equipe")
End Sub

Obs. Na Planilha as celulas A11:A14 estão mescladas, e com o codigo "Selection.End(xlDown).Select"  é limitado a quantidade de equipes que posso inserir, quero otimizar para poder inserir quantas equipes eu quiser.

Questão 2. o próximo código seria pra apagar somente o que foi inserido mas ele vai apagando tudo inclusive o intervalo " A11:H14", bem como quero otimiza-lo também! 
segue o código
 

Sub Apagarultimalinha()
'
' Macro4 Macro
'apaga a ultima linha inserida

'

    Range("A9:A10").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    lin = ActiveCell.Row
    Rows(lin).Select
    Selection.Delete Shift:=xlUp
    Range("A14").Select
    
    MsgBox (" A Ultima Equipe foi excluida")
    
End Sub
 

Desde já agradeço o apoio de todos, espero ter me expressado bem!

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

consegui melhorar um pouco o codigo de Apagar linha a outra questa ainda nao consegui resolver

Sub Apagarultimalinha()
'
' Macro4 Macro
'apaga a ultima linha inserida

'

    Range("A9:A10").Select
    Selection.End(xlDown).Select
        If Range("a15") <> "" Then
        
        
        Selection.End(xlDown).Select
        Selection.End(xlUp).Select
        lin = ActiveCell.Row
        Rows(lin).Select
        Selection.Delete Shift:=xlUp
        Range("A14").Select
        
        MsgBox (" A Ultima Equipe foi excluida")
    
    Else
        MsgBox ("Deve ter ao menos uma equipe ")
        
    
    End If
    
    
End Sub
 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estou mandando uma imagem da planilha, vou tentar anexar o arquivo do excel e mando 

PLANILHA 1.JPG

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×