Kaçıncı formülü

[excellcan]

Forumda emeği geçen tüm arkadaşlara merhaba. Öncelikle Kurban bayramınız kutlu olsun. Hep birlikte nice güzel bayramlara. Arkadaşlar A1:A100 arasında
değerlerim var. C1 ' e yazdığım değere göre A1:A100 arasında kaçıncı formülü ile arama yapıyorum. Ama bazan aradığım değer olmuyor. Böyle bir durumda C1'e yazdığım değerin 1 eksiği eğer o yoksa 1 fazlasını veren formül var mıdır ? İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Merhum İdris SERDAR]

Bir örnek dosya eklerseniz, daha kolay çözüm bulunabilir.

.

 

[muygun]

Slm.
Eki inceleyin.
İyi çalışmalar.

 

[Ali]

C1 hücresine aranan değeri yazınız.

E2 hücresindeki

=MİN(EĞER(MUTLAK($A$1:$A$100-C1)=MİN(MUTLAK($A$1:$A$100-C1));$A$1:$A$100))

formülü dizi formülü olup formül çubuğunda iken direk ENTER'e basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basılarak girilmiştir.

Not: Excel formül başına ve sonuna otomatik olarak { } ayıraçlarını ekleyecektir.
F2 hücresinde ise o değerin satır nosunu göreceksiniz.

Örnek dosya ektedir.

 

[excellcan]

m uygun ve Ali hocam çokçok teşekkürler. Birkez daha bayramınız kutlu olsun .

 

[excellcan]

Ali hocam tekrar eden değerlerin kaçıncı sırada olduğunu bulmak mümkün mü ? Mesela aynı örnekte 7 rakamı 16 kez tekrar etmiş. Bunların kaçıncı sırada olduğunu tesbit etmek mümkün mü?

 

[Necdet]

Merhaba,

Aşağıdaki kodların ilgili sayfanın kod bölümünde olmalı.

C1 hücresi değiştiğinde kodlar çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
[E1] = ""
With Range("A1:A" & [A65536].End(3).Row)
    Set c = .Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            If [E1] = "" Then
                [E1] = c.Row
            Else
                [E1] = [E1] & "-" & c.Row
            End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Son:
End Sub

 

[excellcan]

Necdet hocam elleriniz dert görmesin. Çok teşekkür ederim.

 

[Ali]

Ali hocam tekrar eden değerlerin kaçıncı sırada olduğunu bulmak mümkün mü ? Mesela aynı örnekte 7 rakamı 16 kez tekrar etmiş. Bunların kaçıncı sırada olduğunu tesbit etmek mümkün mü?

Buda farklı bir örnek olsun.

 

[excellcan]

Ali hocam harika olmuş çok teşekkürler. )

 

[excellcan]

Merhaba,

Aşağıdaki kodların ilgili sayfanın kod bölümünde olmalı.

C1 hücresi değiştiğinde kodlar çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
[E1] = ""
With Range("A1:A" & [A65536].End(3).Row)
    Set c = .Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            If [E1] = "" Then
                [E1] = c.Row
            Else
                [E1] = [E1] & "-" & c.Row
            End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Son:
End Sub

Necdet hocam bu kodlara ekleme yapmak istedim ama olmadı. Öncelikle aramak istediğim değeri ikiye çıkardım. Bunları E1 ve F1 hücrelerine kaydırdım. Listelemeyi de bunların altına yapmak istiyorum. Yani aranan E1 değerini E3 den itibaren altalta ve F1 değerini F3 den itibaren altalta sıralasın. Bir de bu kodları bir butona atamak mümkün mü ?
Hocam kodları bu şekilde yeniden düzenleyebilir miyiz ? İlginiz için şimdiden teşekkürler.