Thread: [Solved] Select next available mailing label by row and column?
View Single Post
 
Old 10-18-2020, 12:53 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 am not complete up to speed on your form but had a quick play and i think you could add somthing like

Code:
  row = Me.TextBox1
  col = Me.TextBox2
  
Call labels
At the end of the Innerenvelope_Click sub

then in a new sub

Code:
Sub labels()

 Worksheets("ToFrom").Shapes.Range(Array("ToAddressee")).Select
 
 Selection.Copy
 
If col = 1 Then
    Worksheets("Outer envelope").Range("a" & row).PasteSpecial
If col = 2 Then
     Worksheets("Outer envelope").Range("b" & row).PasteSpecial
    End If
    End If
 End Sub

You have created the addresses in a shop, so i think you will have to play with sizes to make it all fit but this does the first copy and paste
Reply With Quote