View Single Post
 
Old 10-20-2020, 01:23 PM
Purfleet Purfleet is offline Windows 10 Office 2019
Expert
 
Join Date: Jun 2020
Location: Essex
Posts: 345
Purfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to behold
Default

I must admit i am no expert when it comes for forms, never really had the need. I dont mind trying to help, but please bear this in mind

Quote:
Couple of things that I hope you can assist with resolving... the 'to address' for the outer envelope label is getting picked up from the ToFrom worksheet when it should be getting picked up from Column D on the Inner Envelope worksheet.
Yes i used the data already populated in the sheet to save going back to 'look' for it in the Inner Envelope sheet. The first 2 lines in the lables sub is where we copy the address - some where in the form there is a lookup to find the correct row to copy the address over. I dont know where that is as i am not familiar with the code, but you code use that if you want to copy from the Inner evelope sheet

Quote:
Selecting Column 1 works fantastic but nothing appears if Column 2 is selected?
I had the end ifs wrong, try

Code:
If Col = 1 Then
    Worksheets("Outer envelope").Range("a" & Row).PasteSpecial Paste:=xlPasteValues
    End If
If Col = 2 Then
     Worksheets("Outer envelope").Range("b" & Row).PasteSpecial Paste:=xlPasteValues
    End If
Quote:
And there is no 'from address' appearing on the outer envelope label?
Again i have not looked at this part as it is more or less a repeat of the other code, just copying a different shape/range
Reply With Quote