Thread: [Solved] Fill blank cell with value from adjacent cell
View Single Post
 
Old 04-17-2018, 01:09 AM
p45cal's Avatar
p45cal p45cal is online now Windows 10 Office 2010 32bit
Expert
  
Join Date: Apr 2014
Posts: 871
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
Code:
Sub blah()
With Intersect(Range("E:E"), ActiveSheet.UsedRange)
  .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[1]"
  .Value = .Value
End With
End Sub
Reply With Quote