none
Inserir colunas baseado em número em célula RRS feed

  • Pergunta

  • Olá amigos, estou com o seguinte problema.

    Preciso que, ao inserir um número em uma célula, sejam replicadas em sequencia algumas colunas.

    Exemplo:  

    Se eu digitar "5" na célula E5, a macro vai copiar as colunas J:N e repeti-la 5 vezes em sequencia.  

    quinta-feira, 12 de novembro de 2015 19:35

Respostas

  • Olá,

    Não entendi direito o que vc precisava!

    Então montei a macro com é disparada após qualquer alteração na planilha!

    Espero que ajude!

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
       
       Dim var_num_vezes As Integer
       
       var_num_vezes = Range("E5").Value
          
       If Target.Column = 5 Then
            If Target.Row = 5 Then
                Range("J:N").Select
                For i = 1 To var_num_vezes
                    Columns("O:O").Select
                    Selection.Copy
                    Target.Insert Shift:=xlToRight
                Next
            End If
        End If
    
            
    End Sub

    Abraços

    Tiago

    sexta-feira, 13 de novembro de 2015 12:57