Select next available mailing label by row and column?

Purfleet · #8 10-18-2020, 12:53 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to select multiple criteria from same column?	LearnerExcel	Excel	1	03-10-2018 07:41 AM
move the milestone label to left of column	wilster31	Project	0	07-31-2017 07:58 AM
Error message in pivot when i try drag and placing a column in the row label	olybobo	Excel	0	05-10-2016 02:05 PM
A non mailing label?	markg2	Mail Merge	1	12-22-2011 04:07 PM
Mailing label help needed...	Lisa Cotton	Word Tables	1	04-14-2011 04:49 PM