Satır Seçmek

[mesutaygun70]

DÜŞEYARA(Sayfa2!A2;form!$B:$CCC;12;0)) bu formülü işlendiği yani (Sayfa2 deki A2 hücresinde yazanı, form sayfasında arayarak ilgili 12. satırı) SEÇ işlemini nasıl yapabilirim

 

[Sinan73]

Örnek dosyayı yükleyebilir misiniz. Yapmak istediğiniz şeyi anlatırsanız belki daha uygun bir yol bulabiliriz.

"SEÇ işlemi" ne oluyor?

 

[mesutaygun70]

Örnek dosyayı yükleyebilir misiniz. Yapmak istediğiniz şeyi anlatırsanız belki daha uygun bir yol bulabiliriz.

"SEÇ işlemi" ne oluyor?

Örnek dosyayı yükleyebilir misiniz. Yapmak istediğiniz şeyi anlatırsanız belki daha uygun bir yol bulabiliriz.

"SEÇ işlemi" ne oluyor?

Örneğin = Sayfa 2 A2'de Ankara yazıyor, form sayfası B sutununda tüm iller var Ankarayı burada arayıp ankaranın olduğu hücreyi seçmek Selection işlevi

 

[GursoyC]

Yazdığınız formül yapmak istediğiniz şeyi tanımlamıyor. Düşeyara fonksiyonu ilgili bir tabloda, verilen değere karşılık gelen sütunu bulmak için kullanılır. Eğer satır bulmak istiyorsanız "kaçıncı" formülünü kullanmanız gerekir.
Şu formülle satırı buldurabilirsiniz:

=kaçıncı(sayfa2!A2;form!B:B)

istediğiniz işlemi yapan kod şudur:

değer = Sheets("Sayfa2").Range("A2").Value
Set bölge = Sheets("form").Range("B:B")
satır = Application.WorksheetFunction.Match(değer, bölge, 0)
Worksheets("form").Select
Rows(satır).Select

 

[mesutaygun70]

Yazdığınız formül yapmak istediğiniz şeyi tanımlamıyor. Düşeyara fonksiyonu ilgili bir tabloda, verilen değere karşılık gelen sütunu bulmak için kullanılır. Eğer satır bulmak istiyorsanız "kaçıncı" formülünü kullanmanız gerekir.
Şu formülle satırı buldurabilirsiniz:

=kaçıncı(sayfa2!A2;form!B:B)

istediğiniz işlemi yapan kod şudur:

değer = Sheets("Sayfa2").Range("A2").Value
Set bölge = Sheets("form").Range("B:B")
satır = Application.WorksheetFunction.Match(değer, bölge, 0)
Worksheets("form").Select
Rows(satır).Select

Teşekkürler yardımlarınız için ama kod satırı seçiyor ben o satırın 26. sütünunu seçmesini nasıl sağlayabilirim.

 

[Necdet]

Merhaba,

Aradığınız değerin bulunduğu Z sütünunu seçmek istiyorsunuz sanırım.
Yani Ankara'yı aratıp bulduğu satır 8 ise, siz form sayfasında 27. sütun yani Z sütunu yani Z8 hücresini seçmek istiyorsunuz.
Anladığım doğru ise aşağıdaki kodları deneyiniz

Sub AraBul()

    Dim s2  As Worksheet, _
        sf  As Worksheet, _
        c   As Range
    
    Set s2 = Sheets("Sayfa2")
    Set sf = Sheets("Form")
    sf.Select
    
    Set c = sf.Range("B:B").Find(s2.Range("A2"), LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then
        MsgBox s2.Range("A2") & " değeri bulunamadı....", vbCritical
    Else
        Cells(c.Row, 26).Select
    End If

End Sub