Ajuda com macros

[JigokuMaster]

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

[DJunqueira]

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

[Visitante]

@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

[JigokuMaster]

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

[Visitante]

 

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.

 

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

Moleza! 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.

[JigokuMaster]

Acho que voce nao entendeu :/

 

Enfim, ja consegui criar uma macro que desse certo.

 

Valeu pela intenção 

[Patropi]

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