Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: Veri grubundan veri sorgulama  (Okunma sayısı 6920 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı bitirme

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bayan
  • Excel'den Daha Fazlası!..
  • Ad Soyad: yasemin erol
  • Doğum Yılınız: 1990
  • İl / İlçe: Eskişehir/Merkez
  • İşletim Sisteminiz: Windows 7
  • Mesleğiniz: Öğrenci
  • Office Versiyonunuz: 2007 türkçe excel
Veri grubundan veri sorgulama
« : 31 Mart 2013, 01:13:42 »
Merhaba arkadaşlar
ekteki dosyada yardımınızı bekliyorum. yapmak istediğimi açıklamaya çalıştım umarım bana yardım edebilecek birileri vardır
teşekkürler..

Çevrimdışı bitirme

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bayan
  • Excel'den Daha Fazlası!..
  • Ad Soyad: yasemin erol
  • Doğum Yılınız: 1990
  • İl / İlçe: Eskişehir/Merkez
  • İşletim Sisteminiz: Windows 7
  • Mesleğiniz: Öğrenci
  • Office Versiyonunuz: 2007 türkçe excel
Ynt: Veri grubundan veri sorgulama
« Yanıtla #1 : 01 Nisan 2013, 14:30:38 »
yardımcı olabilcek kimse yok mu ?

Çevrimdışı alpi

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Alp İlya
  • Doğum Yılınız: 1977
  • İl / İlçe: İstanbul
Ynt: Veri grubundan veri sorgulama
« Yanıtla #2 : 09 Mayıs 2013, 11:31:01 »
Formülle bunu yapmak mümkün değil sanırım. Aşağıdaki kod işinizi görür mü?
Kod: [Seç]
Public Sub AraBul()
    Dim R As Range
    For Each R In Range("A:A")
        If R.Value = Range("E2").Value Then
            Range("E3").Value = Cells(R.Row, R.Column + 1)
            Exit Sub
        ElseIf R.Value = Range("F2").Value Then
            Range("F3").Value = Cells(R.Row, R.Column + 1)
            Exit Sub
        End If
    Next
End Sub