Results 1 to 5 of 5

If Column BD is empty copy same row of Column K and paste into same row of Column BD

Threaded View

  1. #1
    Registered User
    Join Date
    04-20-2009
    Location
    Cloverly, Maryland
    MS-Off Ver
    Excel 2003
    Posts
    60

    If Column BD is empty copy same row of Column K and paste into same row of Column BD

    I’d like to check Column BD for rows with no data. When I find a row without data I would like to copy that same row of Column K and paste it into Column BD. The macro below works great with dates but not text which is the data I am working with. Can you assist me?

    Dim Option1  As Range
    Dim Option2 As Variant
    
    For Each Option1 In Intersect(ActiveSheet.UsedRange, Columns("BD"))
    If IsEmpty(Option1.Value) Then
    For Each Option2 In Array("K")
    If Not IsEmpty(Cells(Option1.Row, Option2).Value) Then
    Option1.Value = Cells(Option1.Row, Option2).Value
    Exit For
    End If
    Next Option2
    End If
    Next Option1
    Last edited by Sal1; 08-31-2010 at 10:49 PM. Reason: SOLVED

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1