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:  
JigokuMaster

RESOLVIDO Ajuda com macros

Recommended Posts

Preciso de uma macro que quando acionada funcione como se  clicasse com o botão direito do mouse sobre a parte selecionada, depois clicasse em "inserir" e "deslocar celulas para a direita", e no espaço fosse colado uma copia da imagem selecionada.

 

Preciso da macro porque essa tarefa sera executada varias vezes todos os dias e por varias pessoas diferentes e sem ela acabaria virando bagunça.

 

Deis de ja agradeço

post-733954-0-06710100-1420305897_thumb.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse método vai acabar deixando sua planilha 'pesada' muito rapidamente, não seria muito recomendável. Melhor seria operar com senhas.

Compartilhar este post


Link para o post
Compartilhar em outros sites

@JigokuMaster

 

Veja se entendi corretamente.

Você quer replicar conteúdos e bordas do intervalo "C1:L10" ?
 

Se sim, experimente o código abaixo.

Sub ReplicaIntervalo() Range("C1:L10").Copy SelectionEnd Sub

funcionamento - você pode replicar o intervalo citado acima apenas uma vez ao rodar o código, selecionando apenas uma célula de destino. Por exemplo selecione "M1" e rode o código. Nessa situação o intervalo será replicado uma vez, a partir de "M1".

Ou você pode replicar o intervalo várias vezes ao rodar o código, selecionando várias células, distanciadas o suficiente para receber a área colada sem sobreposição.
Por exemplo, mantendo a tecla 'Ctrl' apertada, pode selecionar "M1", "M12", "M24", "M36" e em seguida rodar o código. Assim será replicada 4 vezes a área "C1:L10" a partir das células selecionadas.

 

obs. considerei que você sabe como instalar e como rodar o código

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • Osvaldo a ideia nao é exatamente essa. Simplificando: Preciso inserir uma copia de "C1:L10" entre as colunas "B" e "C". E acabei de descobrir que irei precisar  executar essa macro com o mesmo proposito em "C12:L21", "C23:L32", "C34:L43"...

    Tentei utilizar a macro abaixo, porém alem dela ter ficado a maior "gambiarra" apenas abri um buraco para ser inserido a copia, nao tive nenhuma ideia logica para efetuar a colagem. Executo a macro quando a celula "B1" esta selecionada, assim se quiser fazer nas outras tabelas basta selecionar o local na coluna B. Segue a macro:

     

    Sub Macro5()
    '
    ' Macro5 Macro
    '
     
    '
        With Selection
            .HorizontalAlignment = xlGeneral
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 90
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = True
            .ReadingOrder = xlContext
            .MergeCells = True
        End With
        Selection.UnMerge
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        Selection.Copy
        Selection.Insert Shift:=xlToRight
        Application.CutCopyMode = False
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 90
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = True
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Selection.Merge
    End Sub

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

     

    Preciso inserir uma copia de "C1:L10" entre as colunas "B" e "C".

    Se você conseguir inserir entre "B" e "C" o Bill Gates vai te contratar... ;)

    Que eu saiba, só se consegue inserir na "B" ou na "C". Entre as duas, não. :rolleyes:

     

    E acabei de descobrir que irei precisar  executar essa macro com o mesmo proposito em "C12:L21", "C23:L32", "C34:L43"...

    Moleza! :P Conforme sugeri no post anterior, mantenha Ctrl apertada e com o mouse selecione "C12", "C23", "C34", ... e sem desfazer a seleção rode o código que passei. ;)

    • Curtir 1

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  • Acho que voce nao entendeu :/

     

    Enfim, ja consegui criar uma macro que desse certo.

     

    Valeu pela intenção  ;)

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    jigoku

     

    Se você tem a solução, poste a tua macro aqui no fórum, pois poderá ajudar outras pessoas que venham a ter a mesma dúvida.

     

    []s

    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

    ×