Grup Araması

[ugurbilik]

Merhabalar..
A B C
1 Freze Torna Taşlama
2 Ahmet Mehmet Yusuf
3 Halil Serkan Yaşar
4 Selçuk Kerem Erhan
5
6 Ahmet = ?

Şeklinde bir tablom var... Freze - Torna - Taşlama şeklinde üç ana gruba ayrılmış isimler var..

Başka bir satıra örnek olarak Ahmet yazdığımda yanındaki kutuya hangi gruba ait olduğunu belirtecek formülü yazabilirmisiniz.

Teşekkür Ederim..

 

[Murat OSMA]

İlgili sayfanın kod kısmına bu kodları yapıştırıp deneyiniz..

[SIZE="2"]Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&
    If Target.Column <> 1 Then Exit Sub
    For i = 1 To Target.Row - 1
        If Cells(i, 1).Value = Target.Value Then
            Target.Offset(0, 1).Value = Cells(i, 2).Value
            Target.Offset(0, 2).Value = Cells(i, 3).Value
        End If
    Next i
    i = Empty
End Sub[/SIZE]

 

[ugurbilik]

İlgili sayfanın kod kısmına bu kodları yapıştırıp deneyiniz..

[SIZE="2"]Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&
    If Target.Column <> 1 Then Exit Sub
    For i = 1 To Target.Row - 1
        If Cells(i, 1).Value = Target.Value Then
            Target.Offset(0, 1).Value = Cells(i, 2).Value
            Target.Offset(0, 2).Value = Cells(i, 3).Value
        End If
    Next i
    i = Empty
End Sub[/SIZE]

Öncelikle desteğiniz için çok teşekkür ederim. Kodlama ile alakalı pek bilgim yok. Bunu = ile başlayan formülleme yolu ile yapamıyoruz sanırım. Doğru mı anladım.?

 

[Murat OSMA]

Excel sayfasındayken Alt+F11 tuşlarına basın.
Gelen pencerede solda sayfa isimlerini göreceksiniz.
Kodları hangi sayfada kullanacaksanız o sayfa üzerinde çift tıklayın ve verdiğim kodları o alana yapıştırın.
Son olarak A sütununa o sütundaki herhangi bir ismi girerek deneyiniz.​

 

[ugurbilik]

Dediğinizi uyguladığımızda yandaki iki ismi yanına aldi. Söyle ki ilk sütuna Ahmet yazdığımda yanına Mehmet ve yanına da Yusuf isimleri geldi. İstediğim tam olarak Ahmet yazdıktan sonra hemen yan sütununda Freze yazması. Veya yaşar yazdığımda taşlama grubunda olduğu için taşlama yazması. Tekrardan Teşekkür ederim ilginiz için.

 

[Murat OSMA]

Kodları bu şekilde revize edebilirsiniz.

[SIZE="2"]Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim evn As Range
    If Target.Column <> 1 Then Exit Sub
    For Each evn In Range("A1:C" & Range("A65536").End(3).Row)
        If evn.Value = Target.Value Then
            Target.Offset(0, 1).Value = Cells(1, evn.Column).Value
        End If
    Next evn
    Set evn = Nothing
End Sub[/SIZE]

 

[ugurbilik]

Kodları bu şekilde revize edebilirsiniz.

[SIZE="2"]Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim evn As Range
    If Target.Column <> 1 Then Exit Sub
    For Each evn In Range("A1:C" & Range("A65536").End(3).Row)
        If evn.Value = Target.Value Then
            Target.Offset(0, 1).Value = Cells(1, evn.Column).Value
        End If
    Next evn
    Set evn = Nothing
End Sub[/SIZE]

Bu şekilde editledigim zaman hangi ismi yazarsam yazayım FREZE grubunda gosteriyor.

 

[çıtır]

Formül alternatifi
A,B,C Sütunlarını kullandığınız varsayılmış, D1 hücresine isim yazarak arama yaptığınız varsayılmıştır. E1 hücresine kopyalayınız. Kolay gelsin

=EĞER(ESAYIYSA(KAÇINCI(D1;A:A;0));A1;EĞER(ESAYIYSA(KAÇINCI(D1;B:B;0));B1;EĞER(KAÇINCI(D1;C:C;0);C1)))

 

[Ömer BARAN]

Merhaba.

Sorun yaşarsanız, cevabımın altındaki İMZA bölümünde yer alan açıklamalara göre örnek belge ekleyin.

-- A1 hücresinden itibaren 1'inci satırda Freze - Torna - Taşlama şeklinde sırasıyla ANA GRUP adları yazılı,
altlarında ise bu gruplara dahil isimler yazılıysa (örneğinize göre A2:C4 hücrelerinde bu isimler yazılı olmalı),

-- Aranacak isimi de örneğin A10 hücresine yazacaksanız,

aşağıdaki formülü B10 hücresine uygulayın.
.

=EĞERHATA(KAYDIR($A$1;0;TOPLA.ÇARPIM(([B][COLOR="Red"]A2:C4[/COLOR][/B]=[B][COLOR="Blue"]A10[/COLOR][/B])*(SÜTUN([B][COLOR="red"]A2:C4[/COLOR][/B])))-1);"")

 

[Murat OSMA]

Kodlardaki bu satırda kırmızı ile belirttiğim yeri C yapın.

[SIZE="2"]For Each evn In Range("A1:C" & Range("[COLOR="Red"]C[/COLOR]65536").End(3).Row)[/SIZE]

Burada nasıl çalıştığını göreceksiniz.

​