how to copy contents from merged cell to a single cell using vba

[riaanrmc]

Good Day

I am trying to copy values from merged cell to a cingle cell using vba.

the following code overwrites the cell next to it because of the merged cell .

Sub Bevel49_Click() '''NEW NTD


Worksheets("Torgue Gage Calibration").Activate
Range("K6").Select
Selection.Value.Copy


Worksheets("Torgue Gages DataBase").Activate
Range(Range("N1").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues
Worksheets("Torgue Gage Calibration").Activate
Application.CutCopyMode = False


the K6 is the merged cells and (Range("N1").Value) is the destination.

Thanks in advance.

This code at the top took me 6 days to compile , so now you can see my experiance level.

 

[Cincy Fan]

Try

   Worksheets("Torgue Gage Calibration").Range("K6").Copy Destination:=Worksheets("Torgue Gages DataBase").Range("N1")

 

[Cincy Fan]

While taking my lunch I thought this might be the issue.
If K6 has a formula and you need the Value in N1 try

Sub Bevel49_Click() 
      Worksheets("Torgue Gages DataBase").Range("N1").Value = Worksheets("Torgue Gage Calibration").Range("K6").Value
End Sub

 

[riaanrmc]

no not working .

i need to copy and paste, this is an lookup and paste code i am trying.

thanks for the reply

 

[Norie]

Do you really need the merged cells?

As you are finding out they just cause problems.

If you must keep them then you might want to look into the MergeArea property.

I'll admit I don't know quite how you would/could use it because I've never really used it.

I'll have a look into it and see if I can post something.

 

[Cincy Fan]

All I am getting from your post is K6 is merged Cells and you want to Copy and Paste it to N1 on a different sheet

here is a Copy/Paste code

Sub Bevel49_Click() 
   Worksheets("Torgue Gage Calibration").Range("K6").Copy
   Worksheets("Torgue Gages DataBase").Range("N1").PasteSpecial Paste:=xlPasteValues
   Application.CutCopyMode = False
End Sub

I've merged cells K6:M9 entered a formula and copied the value to N1

If I'm not understanding what you need please clarify.

 

[riaanrmc]

the merged cells are transferred to my destination , so any data right and down is being replaced by blank cells, and thus overwriting my data that was in that cells.

i need to only copy the value and paste the value again into a single cell ,without overwriting my data in my nextdoor cells

 

[knightwriter]

massive long shot here, but did you ever resolve this issue? currently trying to solve for the exact same problem!