Select SINGLE row and print vertically

orion2323

New Member
Joined
Dec 20, 2017
Messages
26
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!
 

Some videos you may like

Excel Facts

Using Function Arguments with nested formulas
If writing INDEX in Func. Arguments, type MATCH(. Use the mouse to click inside MATCH in the formula bar. Dialog switches to MATCH.

oldbrewer

Board Regular
Joined
Apr 11, 2010
Messages
11,005
123456789101112
131415161718192021222324
252627282930313233343536
373839404142434445464748
495051525354555657585960
616263646566676869707172this is mytable
737475767778798081828384
858687888990919293949596
979899100101102103104105106107108A1
109110111112113114115116117118119120B2
C3
D4
E5
F6
G7
H8
say you want to print vertically downwardsI9
J10
535455565758
53 is in cell E5 also referenced as cells(5,5)
col K (11)
what is your starting cell ?E5row5row 26
column5
53this macro produced the column to the left
54the 5 next to row got by
55it is to demonstate a way of doing it=VLOOKUP(LEFT(G26,1),mytable,2)
56
57no doubt it can be made more elegantthe 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

Board Regular
Joined
Sep 29, 2017
Messages
120
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.

Code:
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.
 
Last edited:

Watch MrExcel Video

Forum statistics

Threads
1,122,653
Messages
5,597,377
Members
414,141
Latest member
Joey_T92

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top