Find and select the remaining cell in the value between 2 selected numbers Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
Sub GetBetween()

Dim strNum As String

Dim lMin As Long, lMax As Long

Dim rFound As Range, rLookin As Range

Dim lFound As Long, rStart As Range

Dim rCcells As Range, rFcells As Range

Dim lCellCount As Long, lcount As Long

Dim bNoFind As Boolean

strNum = InputBox("Please enter the lowest value, then a comma, " _
        & "followed by the highest value" & vbNewLine & _
        vbNewLine & "E.g. 1,10", "GET BETWEEN")

If strNum = vbNullString Then Exit Sub

On Error Resume Next

lMin = Left(strNum, InStr(1, strNum, ","))

If Not IsNumeric(lMin) Or lMin = 0 Then

MsgBox "Error in your entering of numbers, or Min was a zero", vbCritical, "Ozgrid.com"

Exit Sub

End If

lMax = Replace(strNum, lMin & ",", "")

If Not IsNumeric(lMax) Or lMax = 0 Then

MsgBox "Error in your entering of numbers, or Max was a zero", vbCritical, "Ozgrid.com"

Exit Sub

End If

If lMax < lMin Then

MsgBox "Min is greater than Max", vbCritical, "Ozgrid.com"

Exit Sub

End If

If lMin + 1 = lMax Then

MsgBox "No scope between Min and Max", vbCritical, "Ozgrid.com"

Exit Sub

End If

If Selection.Cells.Count = 1 Then

Set rCcells = Cells.SpecialCells(xlCellTypeConstants, xlNumbers)

Set rFcells = Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)

Set rStart = Cells(1, 1)

Else

Set rCcells = Selection.SpecialCells(xlCellTypeConstants, xlNumbers)

Set rFcells = Selection.SpecialCells(xlCellTypeFormulas, xlNumbers)

Set rStart = Selection.Cells(1, 1)

End If

'Reduce down range to look in

If rCcells Is Nothing And rFcells Is Nothing Then

MsgBox "You Worksheet contains no numbers", vbCritical, "ozgrid.com"

Exit Sub

ElseIf rCcells Is Nothing Then

Set rLookin = rFcells.Cells 'formulas

ElseIf rFcells Is Nothing Then

Set rLookin = rCcells.Cells 'constants

Else

Set rLookin = Application.Union(rFcells, rCcells) 'Both

End If

lCellCount = rLookin.Cells.Count

Do Until lFound > lMin And lFound < lMax And lFound > 0

lFound = 0

Set rStart = rLookin.Cells.Find(What:="*", After:=rStart, LookIn:=xlValues, _
                       LookAt:=xlWhole, SearchOrder:=xlByRows, _
                       SearchDirection:=xlNext, MatchCase:=True)
            lFound = rStart.Value

lcount = lcount + 1

If lCellCount = lcount Then

bNoFind = True

Exit Do

End If

Loop

rStart.Select

If bNoFind = True Then

MsgBox "No numbers between " _
             & lMin & " and " & lMax, vbInformation, "Ozgrid.com"

End If

On Error GoTo 0

End Sub

No	Macro Name
1	Find and select the remaining cell in the value between 2 selected numbers
2	excel operators hk
3	translate the number / number into English (in dollars and cents)
4	delete duplicate / duplicate rows
5	Increase the value within the cell by looking at the number value or assign its formula by number value
6	search color
7	write the number you want to be colored on the sheet / page in msgbox
8	to delete sales with faulty cells
9	printing and prompting
10	inserts months as sheet / pages Specifies days in detail
11	Adding A-Z Alphabet in a Range: You can add alphabets to your worksheet as you do serial numbers. You can find the code below.
12	records detailed formatted cells on the records sheet / page
13	excel fonts 2
14	writes the names of all sheet / pages from the active sheet / page and cell and adds a link to the sheet / pages
15	Highlight Specific Text: Suppose you have a large data set and want to control a specific value. You can use this code for this. When you run, you receive an input box to enter the value to search for.
16	find-change-delete-save macro
17	output from the printer as many as the number in the cell
18	select red number and write to g12
19	Square Root Calculator: You can use this code to calculate the square root without applying a formula. checks all selected cells and converts numbers to square.
20	Calculate Cube Root: You can use this code to calculate the cube root without applying a formula. Checks all selected cells and converts numbers to cube roots.

Excel Free Macros (VBA)

Find And Select The Remaining Cell İn The Value Between 2 Selected Numbers

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords