Seçilen 2 sayı arasındaki değerde kalan hücreyi bulma ve seçme Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
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

Benzer Sonuçlar
No	Makro Adı
1	Seçilen 2 sayı arasındaki değerde kalan hücreyi bulma ve seçme
2	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	listbox1de değişken
5	listbox'tan seçilen hücreyi silmek.
6	userformda resim önzileme
7	Kare Kök Hesaplama: Bir formül uygulamadan karekök hesaplamak için bu kodu kullanabilirsiniz. seçilen tüm hücreleri kontrol eder ve sayıları kareköre dönüştürür.
8	Küp Kökünü Hesapla: Bir formül uygulamadan küp kökünü hesaplamak için bu kodu kullanabilirsiniz. Seçilen tüm hücreleri kontrol eder ve sayıları küp köklerine dönüştürür.
9	A1:A10 arasındaki hücreleri rastgele seçer fakat seçtiğini bir daha seçmez
10	bir hücredeki kelimeyi arattırıp şayisini bulma
11	ehatalıysa formülünün izahı
12	llistede kaç kişi olduğunu bulmanın kısayolu.
13	Seçili alandaki sadece sayıları seçmek (formül içermeyen sadece elle girilmiş sayıların seçilmesi)
14	hücredeki ad soyadı ayırmak
15	sayfakadi dolu alanı seçmek. satır değişken sütun sabit
16	verilen değere göre farklı hücreye bilgi veren bir makro
17	yazdırma alanı seçme
18	option buton ile seçilen verinin yazdırılması
19	sayfadaki dolu alanı seçmek
20	sayfakadi dolu alanı seçmek.

Benzer Sonuçlar

Makro Adı

Seçilen 2 sayı arasındaki değerde kalan hücreyi bulma ve seçme

hücrede bir sonraki ayın gün sayısı kadar gün ilave etme

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

listbox1de değişken

listbox'tan seçilen hücreyi silmek.

userformda resim önzileme

Kare Kök Hesaplama: Bir formül uygulamadan karekök hesaplamak için bu kodu kullanabilirsiniz. seçilen tüm hücreleri kontrol eder ve sayıları kareköre dönüştürür.

Küp Kökünü Hesapla: Bir formül uygulamadan küp kökünü hesaplamak için bu kodu kullanabilirsiniz. Seçilen tüm hücreleri kontrol eder ve sayıları küp köklerine dönüştürür.

A1:A10 arasındaki hücreleri rastgele seçer fakat seçtiğini bir daha seçmez

bir hücredeki kelimeyi arattırıp şayisini bulma