Soru Sütunda Enküçük Enbüyük Sayı

[leonadies]

Değerli üstadlar; Aşağıdaki kod ile sütundaki en küçük büyük sayıyı buluyorum ancak sayılarımın kurgusu;

26101-01
28305-10
32451-09

Şeklinde ve bu fonksiyon ile bulduramıyorum. Nasıl çözüm sağlamalıyım?

WorksheetFunction.Small(Range("A:A"), 1)

WorksheetFunction.Large(Range("A:A"), 1)

 

[Ömer]

Merhaba,

Verileriniz sayı olmadığı için sonuca ulaşamadınız.
28305-10 olan değeri 2830510 bu şekilde mi görmesi gerekiyor.

 

[AdemCan]

Örnekteki gibi soldan 5 hane olan kısımlar için aşağıdaki örnek kod bloğunu kullanabilirsiniz.
B1 hücresine küçük değeri, B2 hücresine büyük değeri yazar.

Option Base 1
Sub ornek()
Dim dizi() As Integer
son = Range("A" & Rows.Count).End(xlUp).Row

ReDim dizi(son)
y = 1
For x = 1 To son
    dizi(y) = Left(Cells(x, "A"), 5)
    y = y + 1
Next x

buyuk = WorksheetFunction.Large(dizi, 1)
kucuk = WorksheetFunction.Small(dizi, 1)

Range("B1") = kucuk
Range("B2") = buyuk
Erase dizi
End Sub

 

[leonadies]

Malesef olmadı

Option Base 1 Sub ornek() Dim dizi() As Integer son = Range("A" & Rows.Count).End(xlUp).Row ReDim dizi(son) y = 1 For x = 1 To son dizi = Left(Cells(x, "A"), 5) y = y + 1 Next x buyuk = WorksheetFunction.Large(dizi, 1) kucuk = WorksheetFunction.Small(dizi, 1) Range("B1") = kucuk Range("B2") = buyuk Erase dizi End Sub

 

[leonadies]

@Ömer hocam sayı şeklinde olmalı. Yani hedefim tire de olsa ilk 5 rakama bakarak bulması

Küçük olan C1 hücresine
Büyük olan C2 hücresine yazılacak

 

[Ömer]

Sayın @faye_efsane ‘nin verdiği kodlarda;

dizi(y) = Left(Cells(x, "A"), 5) yerine dizi(y) = Replace(Cells(x, "A"), "-", "")
Dim dizi() As Integer yerine Dim dizi() As Double

Yazarak deneyin.

 

[Korhan Ayhan]

Alternatif,

DİZİ formülleridir.

Küçük;

=MİN(--SOLDAN($A$1:$A$3;5))

Büyük;

=MAK(--SOLDAN($A$1:$A$3;5))

 

[leonadies]

@Ömer hocam düzeltmeyi yaptım çalışıyor ancak sütunda boş satırlar olması durumunda hata veriyor. Birde "-" den sonraki kısmı atabiliriz de.

Option Base 1
Sub ornek()
Dim dizi() As Double
son = Range("A" & Rows.Count).End(xlUp).Row

ReDim dizi(son)
y = 1
For x = 1 To son
    dizi(y) = Replace(Cells(x, "A"), "-", "")
    y = y + 1
Next x

buyuk = WorksheetFunction.Large(dizi, 1)
kucuk = WorksheetFunction.Small(dizi, 1)

Range("B1") = kucuk
Range("B2") = buyuk
Erase dizi
End Sub

 

[leonadies]

@Korhan Ayhan hocam normal hücreye yazarak mı kullanılıyor? Algılayamadım. Derdim sütundaki en küçük ve en büyük sayılar.

 

[Korhan Ayhan]

Siz zaten hücre adresi vermiştiniz. O hücrelere uygulayacaksınız.

 

[leonadies]

Hangi hücrenin karşısına yazsam o sayıyı veriyor. Amacıma ulaşamıyorum yani Bir yeri mi yanlış yapıyorum? @Korhan Ayhan

 

[Korhan Ayhan]

DİZİ formüle çevirdiniz mi?

C1 ve C2 hücrelerine uygulayacaksınız.

 

[leonadies]

Dizi Formül ilk kez kullandım Korhan Hocam bildiğim birşey değildi internetten öğrendim. Ancak A sütunum dinamik olacak. Bu nedenle makro ile çözüm olsa sanırım daha iyi olacak. Formülünüz iş yapıyor onda sorun yok

 

[Korhan Ayhan]

Ama sorunuz FONKSİYONLAR bölümünde! O zaman başlığı taşımak lazım.

 

[leonadies]

Olur Korhan Hocam kusura bakmayın. Elimdeki çıkarıma uygun olan yer olarak düşünmüştüm.

 

[AdemCan]

Yani hedefim tire de olsa ilk 5 rakama bakarak bulması

çalışıyor ancak sütunda boş satırlar olması durumunda hata veriyor. Birde "-" den sonraki kısmı atabiliriz de.

Merhaba, bu kodları kullanabilirsiniz. Denedim çalışıyor.

Option Base 1
Sub ornek()
Dim dizi() As Integer
son = Range("A" & Rows.Count).End(xlUp).Row
dolusatir = WorksheetFunction.CountA(Range(Cells(1, "A"), Cells(son, "A")))

ReDim dizi(dolusatir)
y = 1
For x = 1 To son
If Cells(x, "A") = "" Then GoTo atla
    dizi(y) = Left(Cells(x, "A"), 5)
    y = y + 1
atla:
Next x

buyuk = WorksheetFunction.Large(dizi, 1)
kucuk = WorksheetFunction.Small(dizi, 1)

Range("C1") = kucuk
Range("C2") = buyuk
Erase dizi
End Sub

 

[leonadies]

Teşekkürler @faye_efsane üstadım ancak Malesef aşağıdaki satırda hata alıyorum
dizi(y) = Left(Cells(x, "A"), 5)

 

[AdemCan]

Hata veren dosyayı ve hata görüntüsünü ekler misiniz?

 

[leonadies]

Buyrun

 

[AdemCan]

Qverflow hatası taşma anlamına geliyor.
A sütunundaki sayılar Integer tanımlamasındaki aralıktan büyük olduğu için bu hatayı veriyor.
Dim dizi() As Integer satırını Dim dizi() As Long ya da Dim dizi() As Double olarak değiştiriniz.