c sutnundan arattığım kelimeyi b sutunda arayacak o hücrenin yan satırındaki bilgiyi

[siyar0044]

arkadaşlar örneğin a2 den a82 ye kadar tüm illerin isimleri yazıyor ve her bir ilin yan satırındada (yani a2 hücresinde adana yazıyor ise b2 hücresinde adanaya ait bilgiler var a36 da izmir ismi yazıyorsa b36da izmire ait bilgiler var) o ile ait bilgiler yazıyor olsun şimdi benim yapmak istediğim c2 hücresine ilin ismini yazacam ve c2 hücresine yazmış olduğum ilin ismini a2den a82 sütünlarında arasın ve arattığım ilin karşısındaki (yani b sütünündaki ) bilgiyi c3 hücresine yazsın bu konuda yardımcı olursanız sevinirim şimdiden teşşekür ederim

 

[N.Ziya Hiçdurmaz]

Bir butono atayıp kullanabilirsiniz.
Sub test()
For Each bak1 In Range("a2:a82")
If bak1 = [c2] Then
[c3] = bak1.Offset(0, 1).Value
End If
Next
End Sub
veya sayfa kod bölümüne yazıpta.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c2]) Is Nothing Then Exit Sub
For Each bak1 In Range("a2:a82")
If bak1 = [c2] Then
[c3] = bak1.Offset(0, 1).Value
End If
Next
End Sub

 

[siyar0044]

butonlu olarak değil normal formül olarak yapabilirmiyiz acaba çünkü bu bundan önce alakalı başka formüllerde bulunmakta o yüzden formülle yapa bilirsek çok iyi olur

 

[Korhan Ayhan]

Selamlar,

C3 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=DÜŞEYARA(C2;$A$2:$B$82;2;0)

 

[Orion1]

Merhaba.
C3 hücresine Aşağıdaki formülü girin ve c2 hücresine aranacak değeri girin.

=EĞER(EHATALIYSA(DÜŞEYARA(C2;$A$2:$B$65536;2;0));"";DÜŞEYARA(C2;$A$2:$B$65536;2;0))

 

[siyar0044]

teşekkür ederim formül işe yaradı