Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
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

Fiquei meio perdido, pode compartilhar um modelo resumido da sua planilha?

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






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

×