+ Reply to Thread
Results 1 to 7 of 7

Make VBA code shorter

Hybrid View

  1. #1
    Registered User
    Join Date
    01-19-2013
    Location
    Texas, USA
    MS-Off Ver
    Excel 2010
    Posts
    3

    Re: Make VBA code shorter

    Ok, I've been trying to make the code work, but when I put it in, all it would do was just flash the screen a couple of time and no surveys were pasted. I took the code appart and tested each part. The problem seems to be here:
    'Paste LEFT to Data Sheet
        If Sheets("Data").Range("A4") = "" Then
            Sheets("LEFT").Range("A1:L1000").Copy Sheets("Data").Range("A4")
        Else
            Sheets("LEFT").Range("A1:L1000").Copy Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
        End If
    
    'Paste RIGHT to Data Sheet
        If Sheets("Data").Range("A4") = "" Then
            Sheets("RIGHT").Range("A1:L1000").Copy Sheets("Data").Range("A4")
        Else
            Sheets("RIGHT").Range("A1:L1000").Copy Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
        End If

    For some reason it doesn't paste any data to the data worksheet. I appreciate your help
    Last edited by juanrmz24; 01-22-2013 at 06:10 PM. Reason: added code tags

+ Reply to Thread

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