• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

luishmafernandes

VBA - Inserir linha no excel

6 mensagens neste tópico

Bom dia,

Necessito de ajuda. :wallbash:

Tenho uma tabela que tem três colunas (A-Nome, B-Valor e C-Cont)

A coluna Cont, identifica o nº de valores que cada utilizador tem (existe utilizadores que não têm valores).

A minha dificuldade é inserir linhas, abaixo do contador.

Exemplo:

O Rui tem um valor 12 e tem 3 contagens, então deveria inserir duas linhas abaixo (com o mesmo conteudo da seleccionada).

Nome     Valor Cont

Luis       12

Rui12 3

Teresa    18

Manuel    18 1

Rita       12

Vasco      12

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não entendi muito bem...

Se tens isto:

Luis  |12|

Rui  |12|3

teresa|18|

Queres que fique assim ?

Luis  |12|

Rui  |12|3

Rui  |12|3

Rui  |12|3

teresa|18|

ou seja o count é para repetir as linhas ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Estranho ... pensava que tinha respondido!

O que já tens feito ? Basicamente é um ciclo até encontrar um valor na coluna C. Ao encontrar, copia o número de linhas de acordo com o valor que está na coluna.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Consegui encontrar o que queria B), mas gostava de saber se posso copiar o conteúdo das células?

Junto envio o código que utilizei:

Private Sub CommandButton1_Click()

    Dim FirstRow As Long
    Dim LastRow As Long
    Dim iRow As Long
    Dim wks As Worksheet

    Set wks = ActiveSheet

    With wks
        FirstRow = 2
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row

        For iRow = LastRow To FirstRow Step -1
            With .Cells(iRow, "D")
                If IsNumeric(.Value) Then
                    If .Value > 1 Then
                        .Offset(1, 0).Resize(.Value).EntireRow.Insert
                    End If
                End If
            End With
        Next iRow
    End With

End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora