Thread: [Solved] How to copy a value from source workbook if if doesn't exist in Active workbook
View Single Post
 
Old 07-15-2023, 02:16 PM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2021
Expert
  
Join Date: Apr 2014
Posts: 948
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default
If the cells' row numbers correspond and the blanks you want to fill are truly blank then it could be as simple as:
Code:
'copying from Sheet1 to Sheet2 where sheet2 has true blank cells:
For Each cll In Sheets("Sheet2").Range("C3:C15").SpecialCells(xlCellTypeBlanks).Cells
  Sheets("Sheet1").Range(cll.Address).Copy cll
  'or
  'cll.Value = Sheets("Sheet1").Range(cll.Address).Value
Next cll
This was between sheets in the same workbook, so you'll need to qualify the workbooks as well.
Reply With Quote