looking for copy values in more than one cell.

[r.maseko]

Hi Guys!

How can I amend below so that if table (row 1, cell 1) is empty then look into table (row 2, cell 1) and copy value instead. Basically look into these 2 and see which one has a value and paste into excel.

ActiveDocument.Tables(1).Cell(1, 1).Range.Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("E13")

Many thanks,

 

[Phox]

Maybe something like this:

Dim r as long

r = 1
If ActiveDocument.Tables(1).Cell(1,1).Value = "" Then r = 2
ActiveDocument.Tables(1).Cell(r, 1).Range.Copy 
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("E13")

 

[r.maseko]

Many thanks Phox. Will try this tomorrow and will update you on progress.

 

[r.maseko]

The code did the trick. Much appreciated.

Thanks