Find integer value in big range

[Jeroen1964]

Hello,

I have a Input Sheet(Sheet1) and a Calc Sheet(Sheet2).
at the inputsheet i have a range (B12:2750) where i have to find only the cells that are filled with an integer.
(The integer is the value that i have to order.)

<vb>
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub PrintNumber()[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Dim i As Integer
Dim rCell As Range
Dim rRng As Range
Dim xRngVal As Integer[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Set rRng = Sheets("InputSheet").Range("B12:B2700")
For i = 1 To rRng
xRngVal = rCell.Range("B" & i).Value
Next
MsgBox xRngVal[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]End Sub[/FONT]
<vb>


Next I have to print only the corresponding calc-sheet page on sheet 2, where B12 on sheet 1 coresponds to printing page 1, B13 to page 2 , etc. etc.

<vb>
I have no clue
<vb>

Hope for some assistance

Jeroen​

 

[alansidman]

Look at this link

https://www.mrexcel.com/forum/excel-questions/81407-test-if-value-integer.html