Print defined area through visit no.

[minmark]

[TABLE="width: 500, align: left"]
<tbody>[TR]
[TD]10131[/TD]
[TD]..other infromation.[/TD]
[TD]...[/TD]
[TD].[/TD]
[TD].[/TD]
[/TR]
[TR]
[TD]10132[/TD]
[TD].other infromation....[/TD]
[TD]..[/TD]
[TD].[/TD]
[TD].[/TD]
[/TR]
[TR]
[TD]10133[/TD]
[TD]other infromation.[/TD]
[TD]..[/TD]
[TD].[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10134[/TD]
[TD]other infromation.[/TD]
[TD].[/TD]
[TD].[/TD]
[TD].[/TD]
[/TR]
[TR]
[TD]10135[/TD]
[TD]other infromation.[/TD]
[TD]..[/TD]
[TD].[/TD]
[TD].[/TD]
[/TR]
</tbody>[/TABLE]







Dear Gents,

I would like to setup a macro that can let me enter the two visit sequence numbers. i,e. 10131 to 10133
and then print the visitors from 10131 to 10133 and their following column contents.

How do I make this happen?
I've tried the inputbox function , range and xldown, but I got stuck in the codes..

Thanks.

 

[MARK858]

Assuming your numbers are in column A and you have a header row you can try something like

Sub findarea()
    Dim sCell As Long, eCell As Long, LstCol As Long, x As String, y As String
    
    LstCol = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

    x = Application.InputBox("Enter start number")
    y = Application.InputBox("Enter end number")

    With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        sCell = .Find(What:=x, After:=Cells(1, 1), SearchOrder:=xlByRows, _
                      SearchDirection:=xlNext, LookIn:=xlValues).Row
        eCell = .Find(What:=y, SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row

        ActiveSheet.PageSetup.PrintArea = Range(Cells(sCell, 1), Cells(eCell, LstCol)).Address
    End With
    ActiveSheet.PrintOut
End Sub

 

[minmark]

wOOOOOO... It's what I want!!!!
The whole code written in very organized detail.
use x and y to define the start row and end row, what a magic!
You really save me!!
Thanks!

Assuming your numbers are in column A and you have a header row you can try something like

Sub findarea()
    Dim sCell As Long, eCell As Long, LstCol As Long, x As String, y As String
    
    LstCol = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

    x = Application.InputBox("Enter start number")
    y = Application.InputBox("Enter end number")

    With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        sCell = .Find(What:=x, After:=Cells(1, 1), SearchOrder:=xlByRows, _
                      SearchDirection:=xlNext, LookIn:=xlValues).Row
        eCell = .Find(What:=y, SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row

        ActiveSheet.PageSetup.PrintArea = Range(Cells(sCell, 1), Cells(eCell, LstCol)).Address
    End With
    ActiveSheet.PrintOut
End Sub

 

[MARK858]

You're welcome, thanks for the feedback and welcome to the forum.

Btw, no need to quote the previous posts unless you need to specifically refer to them (and even just quote the relevant parts).