Concatena 2 células da Folha1 para 1 célula da Folha2

1

EDIT: Encontrou o código perdido que o jogou fora. Obrigado a todos!

Eu tenho tentado descobrir o código para concatenar

Worksheets("Sheet1").Range ("B2:C2")

para esta célula de referência com o caractere "-" como separador:

Worksheets("Sheet2").Range ("B2")

Eu tentei o seguinte, mas ele diz "subscrito fora do intervalo":

Worksheets("Sheet2").Range("B2").Cell.Value = 
  Worksheets("Sheet1").Range("B2").Cell.Value & 
    Worksheets("Sheet1").Range("C2").Cell.Value

Eu também tentei isso, mas ele só copia Sheet1.C2 para Sheet2.C2:

Set sourceRange = Worksheets("Sheet1").Range("B2:C2")
Set targetRange = Worksheets("Sheet2").Range("B2")

sourceRange.Copy
targetRange.PasteSpecial Paste:=xlPasteValues

Qualquer ajuda sobre isso seria apreciada. Obrigado antecipadamente!

    
por Tmcc 24.03.2017 / 19:07

1 resposta

1

Você extraiu cell s

Worksheets("Sheet2").Range("B2").Value = Worksheets("Sheet1").Range("B2").Value & Worksheets("Sheet1").Range("C2").Value

Deve funcionar.

    
por 24.03.2017 / 19:28