+ Reply to Thread
Results 1 to 6 of 6

Range - End if without block if error. merging sheet to sheet data transfer (help)

  1. #1
    Forum Contributor
    Join Date
    06-06-2017
    Location
    Phoenix, AZ
    MS-Off Ver
    2013
    Posts
    129

    Range - End if without block if error. merging sheet to sheet data transfer (help)

    Hi all. I have combined several sub routines into one worksheet change. I have the master report (SIGN_IN) and I am transferring Data between 3 other sheets (CREDIT_CARD) (HP_DEPOSIT) and (CAP_PD_DEPOSIT). I keep getting error "End If without Block If" error and augment not required to part of my code using statement Range("O" & Target.Row). I have attached a sample workbook with the sheets. Please help me get this working. All help is appreciated!

    I also have the (HP_DEPOSIT) and (CAP_PD_DEPOSIT) that does not transfer properly. When "RLMO" or "RPMO" is entered into column K if column O is blank ("") then the transfer is to (HP_DEPOSIT) and if column O has "X" then the transfer is to go to (CAP_PD_DEPOSIT) but it all goes to (HP_DEPOSIT). The reason for 3 checks if that sometimes customers will bring in three checks for $50.00 each or sometimes two checks for a total of $150.00 combined so we have to sometimes make multiple entries of the form.
    Again all help is appreciated.

    Please Login or Register  to view this content.

  2. #2
    Forum Contributor
    Join Date
    06-06-2017
    Location
    Phoenix, AZ
    MS-Off Ver
    2013
    Posts
    129

    Re: Range - End if without block if error. merging sheet to sheet data transfer (help)

    Sorry the highlight is not visible this will have the problem code in red.
    Please Login or Register  to view this content.

  3. #3
    Forum Guru Norie's Avatar
    Join Date
    02-02-2005
    Location
    Stirling, Scotland
    MS-Off Ver
    Microsoft Office 365
    Posts
    19,643

    Re: Range - End if without block if error. merging sheet to sheet data transfer (help)

    This will compile, though I'm not sure it'll do everything you want - might help to see the original code you are trying to combine into one.

    Please Login or Register  to view this content.
    If posting code please use code tags, see here.

  4. #4
    Forum Contributor
    Join Date
    06-06-2017
    Location
    Phoenix, AZ
    MS-Off Ver
    2013
    Posts
    129

    Re: Range - End if without block if error. merging sheet to sheet data transfer (help)

    This is what I started with, it was to copy data from our master Sign In sheet to our Credit card report. All listed in column K with "RLCC" or "RPCC" was to copy columns J, I, H, O from Sign In to columns A, B, C, D on Credit Card report. This is the code that was working for that perfectly:

    Please Login or Register  to view this content.
    The problem started when I tried to add the routine to add copying the second and third checks to the HP Deposit routine. We need to do this because we sometimes have people come in with two or three checks for the total amount of $150.00. After the first check was entered I wanted column U checked if it is blank to End If, if it is not blank to copy cells U, B2, X, V, W from Sign In to HP Deposit cells A, C, D, E, F and insert String into cell B then check cell Y on Sign In if it is blank then End If, if not start routine for third check entry. Copy cells Y, B2, AB, Z, AA from Sign In to HP Deposit cells A, C, D, E, F and insert String into cell B.

    After I get that routine to work I need to the same routine to run copying the same cells from Sign In to the CAP PD DEPOSIT if the Sign In column O has "X".
    Thank you for your help.

  5. #5
    Forum Guru xlnitwit's Avatar
    Join Date
    06-27-2016
    Location
    London
    MS-Off Ver
    Windows: 2010; Mac: 16.13 (O365)
    Posts
    7,085

    Re: Range - End if without block if error. merging sheet to sheet data transfer (help)

    Hi,

    There should not be an End If on the end of this line
    Please Login or Register  to view this content.
    Don
    Please remember to mark your thread 'Solved' when appropriate.

  6. #6
    Forum Contributor
    Join Date
    06-06-2017
    Location
    Phoenix, AZ
    MS-Off Ver
    2013
    Posts
    129

    Re: Range - End if without block if error. merging sheet to sheet data transfer (help)

    I came at this from a different angle and added two new selections to the column k to be only for the second deposit sheet. Thanks again for all the help!

+ Reply to Thread

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SOLVED] Transfer data from sheet to other sheet, protecting the second sheet.
    By Markcassar123 in forum Excel General
    Replies: 4
    Last Post: 06-25-2015, 02:05 AM
  2. [SOLVED] Issue regarding recorded Macro to transfer data from Input sheet to Storage sheet
    By Hirad001 in forum Excel Programming / VBA / Macros
    Replies: 7
    Last Post: 01-29-2015, 04:26 PM
  3. How to transfer data from a daily input sheet to a separate monthly total sheet
    By Jcooper71 in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 01-25-2014, 02:37 PM
  4. [SOLVED] transfer a selected range of data on one sheet to another workbook
    By Ask Steve in forum Excel Programming / VBA / Macros
    Replies: 11
    Last Post: 08-23-2013, 01:36 PM
  5. Transfer inputed Data from Sheet x: row x to Sheet y : row y or Sheet z: row z
    By Joecruz749 in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 04-04-2013, 03:20 PM
  6. Replies: 1
    Last Post: 02-13-2013, 01:32 PM
  7. Replies: 0
    Last Post: 09-12-2012, 02:12 AM

Tags for this Thread

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