Select SINGLE row and print vertically

[orion2323]

Hello guys!

Could use a little help here please. I'm trying to print a type of label, on demand, once the row is completed

I would like to manually select about 6 consecutive cells across 6 consecutive columns, and have this row print down, vertically, 1 cell per line
Select Row 1 Column A through F

And print:
A
B
C
D
E
F

I am currently imputing the data on 6 rows, select these, and with the help of a vba code, I can hit print and excel prints the selection only

The problem is that capturing the date using 6 rows at a time makes the file rather large and hard to follow, so a single row entry is preferable


NOW (wishfully thinking)


Ultimately, if even possible, the goal would be to scan an ID on cell 1, the next 5 columns populate data based on vlooups completing the scan and this would send a PRINT JOB automatically ?

Thank you All!

 

[oldbrewer]

1	2	3	4	5	6	7	8	9	10	11	12
13	14	15	16	17	18	19	20	21	22	23	24
25	26	27	28	29	30	31	32	33	34	35	36
37	38	39	40	41	42	43	44	45	46	47	48
49	50	51	52	53	54	55	56	57	58	59	60
61	62	63	64	65	66	67	68	69	70	71	72			this is mytable
73	74	75	76	77	78	79	80	81	82	83	84
85	86	87	88	89	90	91	92	93	94	95	96
97	98	99	100	101	102	103	104	105	106	107	108			A	1
109	110	111	112	113	114	115	116	117	118	119	120			B	2
														C	3
														D	4
														E	5
														F	6
														G	7
														H	8
			say you want to print vertically downwards								I	9
														J	10
			53	54	55	56	57	58
			53 is in cell E5 also referenced as cells(5,5)
										col K (11)
			what is your starting cell ?	E5			row	5		row 26
									column	5
53			this macro produced the column to the left
54										the 5 next to row got by
55			it is to demonstate a way of doing it				=VLOOKUP(LEFT(G26,1),mytable,2)
56
57			no doubt it can be made more elegant				the 5 next to column got by
58										=VALUE(RIGHT(G26,1))
			Sub Macro6()
			'
			' Macro6 Macro
			' Macro recorded 20/12/2017 by bob
			'
			'
			numbr1 = Cells(Cells(26, 11), Cells(27, 11))
			numbr2 = Cells(Cells(26, 11), Cells(27, 11) + 1)
			numbr3 = Cells(Cells(26, 11), Cells(27, 11) + 2)
			numbr4 = Cells(Cells(26, 11), Cells(27, 11) + 3)
			numbr5 = Cells(Cells(26, 11), Cells(27, 11) + 4)
			numbr6 = Cells(Cells(26, 11), Cells(27, 11) + 5)
			Cells(30, 1) = numbr1
			Cells(31, 1) = numbr2
			Cells(32, 1) = numbr3
			Cells(33, 1) = numbr4
			Cells(34, 1) = numbr5
			Cells(35, 1) = numbr6
			End Sub

<colgroup><col width="64" span="17" style="width:48pt"> </colgroup><tbody>
</tbody>

 

[Youngdand]

HI,

This script transposes the data to a new sheet, but could easily be set to populate a range in an existing sheet of a workbook, which could have your lookup data and formula aready pre populated. It also set the the print area to the used range.

Sub Copyselectedandtranspose()
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets.Add
    Range("A1").PasteSpecial , Transpose:=True
    With ActiveSheet
        .PageSetup.PrintArea = .UsedRange.Address
       ' .PrintOut
    End With
Application.CutCopyMode = False
End Sub

Additionally, it can be then set to print the sheet and close the worksheet once finished.

but to make sure this is what you are looking for, i have left this out.

Regards,

Dan.

 

[orion2323]

Thank you Both...
I will test these approaches ASAP
Happy holidays