Max dan bir önce ki değer bulma

[haso_excel]

Merhaba arkadaşlar,

A1 ile D1 arasında A1=0,10, B1=0,20, C1=0,30, D1=0,40 olan değerlerim var. Max=(A11) sonucu doğal olarak 0,40 olarak geliyor. Amacım bu değerlerin içinden max dan daha az olan en büyük değeri buldurmak ( 0,30)
Yardımcı olabilir misiniz lütfen ?

 

[Necdet]

Merhaba,

Dizi Formüldür, formülü yazdıktan sonra Ctrl+Shift+Enter ile bitiriniz

=MAK(EĞER(A1:D1<MAK(A1:D1);A1:D1))

 

[haso_excel]

Teşekkürler işlem tamam

 

[Merhum İdris SERDAR]

.

Alternatif:

=LARGE(A1:D1;2)

.

 

[haso_excel]

Ben problemimi kendim çözerim dedim ama olmadı yardımcı olabilir misiniz lütfen.
Dosyam ekde

 

[Merhum İdris SERDAR]

.

Ben yokum...~:biggrin:~






.

 

[asi_kral]

Merhaba
Geçen böyle bir soruya yanıt vermiştim.
Sanırım bu sefer boyanmış hücreleri alttaki tabloya aktaracaksınız_? Doğru mu anladım acaba.
Bir de kitabınızın kod bölümü şifreli size yardımcı olacaktım ama maalesef bu şekilde yardımcı olamıyorum.

 

[haso_excel]

Ya doğru özür dilerim. Şimdi açarak yolluyorum. Sizin yaptığınız kodda bir şey atlamışım herhalde, tekrar başa dönmemmek için ben kendimce böyle bir yöntem izledim ama buda olmadı. Sizin yazdığını kodun aynı zamanda C6 ve F6 daki değerleride kontrol ederek, renklendirme yapması gerekiyor. Dosyadaki formüle bakarsanız anlarsınız. Mesela C6 hücresindeki değeri 0,4 yaptığınızda kod çalıştığında C7 hücresinin kırmızı olması gerkiyor.

 

[asi_kral]

Merhaba
Kodu bununla değiştirip dener misiniz_?

Sub seçili_büyük()
Dim SAT As Long, SÜT As Long, SAT1 As Long, SAT2 As Long
Application.ScreenUpdating = False
On Error Resume Next
Range("C7:F10").Interior.ColorIndex = xlNone
Range("C17:F20").ClearContents
With WorksheetFunction
For SAT = 7 To 10
For SAT1 = 1 To 4
SÜT = .Match(.Large(Range("A6:F6"), SAT1), Range("A6:F6"), 1)
If Cells(SAT, SÜT) >= 100 Then
Cells(SAT, SÜT).Interior.Color = vbRed
SAT2 = .Match(Cells(SAT, "A"), Range("A17:A20"), 1) + 16
Cells(SAT2, SÜT) = Cells(SAT, SÜT)
Exit For
End If
Next
Next
End With
Application.ScreenUpdating = True
KARAKTER.Show
MsgBox "İşlem Tamamlandı." & vbLf & _
vbLf & "hasanatilcan@hotmail.com", vbOKOnly + vbInformation, "                         H A S A N"
End Sub

Bakalım istediğiniz gibi olmuş mu_?

 

[haso_excel]

Üstadın bu seferde diğer bir koşul çalışmadı. Ekde dosyada açıkladım

 

[asi_kral]

Açıklamayı göremedim.
Ayrıca gene şifrelemişsiniz_?
Bir daha dosya böyle gelirse yardımcı olmayacağım.

 

[haso_excel]

Pardon yanlış dosya ekledim

 

[asi_kral]

Bu kodu deneyin.

Sub seçili_büyükR()
Dim SAT As Long, SÜT As Variant, SAT1 As Long, SAT2 As Long
Dim SÜT1 As Long
Application.ScreenUpdating = False
On Error Resume Next
Range("C7:F10").Interior.ColorIndex = xlNone
'Range("C17:F20").ClearContents
With WorksheetFunction
For SAT = 7 To 10
For SAT1 = 1 To 4
SÜT = .Large(Range("C6:F6"), SAT1)
For SÜT1 = 3 To 6
If Cells(6, SÜT1) = SÜT Then
SÜT = SÜT1
Exit For
End If
Next
If Cells(SAT, SÜT) >= 100 Then
Cells(SAT, SÜT).Interior.Color = vbRed
SAT2 = .Match(Cells(SAT, "A"), Range("A17:A20"), 1) + 16
Cells(SAT2, SÜT) = Cells(SAT, SÜT)
Exit For
End If
Next
Next
End With
Application.ScreenUpdating = True
KARAKTER.Show
MsgBox "İşlem Tamamlandı." & vbLf & _
vbLf & "hasanatilcan@hotmail.com", vbOKOnly + vbInformation, "                         H A S A N"
End Sub

 

[haso_excel]

Teşekkürler işlem tamam gibi elinize sağlık.

AKlıma bir soru daha geldi, Bu işi aynı şartlar ile kod yazmadan conditional formating içinde custom ile yapamazmıydık üstadım.
Yaparsak nasıl formülüze ederdik ?

 

[asi_kral]

Teşekkürler işlem tamam gibi elinize sağlık.

AKlıma bir soru daha geldi, Bu işi aynı şartlar ile kod yazmadan conditional formating içinde custom ile yapamazmıydık üstadım.
Yaparsak nasıl formülüze ederdik ?

Bu işi yaparsa Yurttaş - Ömer - Korhan Ayhan - Necdet Yeşertener ve Formülden anlayan Arkadaşlar yardımcı olurlar.

Kolay Gelsin.

 

[Necdet]

Bu işi yaparsa Yurttaş - Ömer - Korhan Ayhan - Necdet Yeşertener ve Formülden anlayan Arkadaşlar yardımcı olurlar.

Kolay Gelsin.

Bu işi yapsa yapsa Uzmanamele yapardı da, o da ortalıkta görünmüyor

 

[Korhan Ayhan]

Merhaba,

"C7:F10" hücrelerini seçin.

Koşullu biçimlendirme formül bölümüne aşağıdaki formülü uygulayıp deneyin.

=C$6=TOPLA.ÇARPIM(MAK(($C7:$F7>=100)*($C$6:$F$6)))