Visual Basic Macro copiar célula simples para mesclada

[jeffersondaluza]

Dim i As Integer
Dim Qtde As Integer

Qtde = 915
i = 0

For i = 0 To Qtde
    
    'numero do cartao
    Sheets("MPG").Select
    Cells(i + 2, 1).Select
    Selection.Copy
    Sheets("CARTOES2").Select
    Cells(32 * i + 12, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       

Next i

End Sub

 

Salve galera!

 

Estou com um problema aqui que é o seguinte:

Preciso copiar dados de uma aba para outra no excel. Como são 900 linhas, criei uma macro para isso. No entanto, quando os dados são copiados de uma célula simples para outra mesclada, dá um erro. O código para o caso problemático é o que está acima.

 

O problema é que a célula da aba "CARTOES2" é mesclada e ele não aceita copiar. A opção que conheço é usar o Range, mas com essa função não consigo usar o for com i.

Espero que tenham entendido o problema.

 

Valeu galera!

[Null42]

tentou usar ctrl c + ctrl v?

[Hanner]

Olá @jeffersondaluza !

Você pode criar uma variável (valor_atual) pra guardar o valor da célula e depois mudar o atributo .value da célula destino. Ficaria assim:

Sheets("MPG").Select
    Cells(i + 2, 1).Select
    valor_atual = Activecell.value
    Sheets("CARTOES2").Select
    Cells(32 * i + 12, 1).Select
    Activecell.value = valor_atual

Qualquer dúvida, só falar

 

 

[jeffersondaluza]

@Hanner  Top mano! Deu certo demais. Valeu!