Makro ile filtreleme yapıp hücre seçmek

[Ellyf]

Merhaba,
Bir excel dosyasının A sütununda x yazan satırı filtreleyip, o satırdaki 3. sütun değerini makro ile nasıl seçebilirim?

şöyle ki;
aşağıdaki tabloda ilk sütunda x yazanı filtrelemek ve de 3. sütundaki hücre karşılığını seçip kopyalamak istiyorum.
x her filtrelediğimde başka bir satırı ifade edebilir bu nedenle filtreyle seçtiğim satırdaki 3. hücreyi seçmem gerekiyor.

Yardımcı olabilir misiniz?
Teşekkürler

seçim	isim	no
x	ali	12​
y	fatma	245​

 

[Korhan Ayhan]

Deneyiniz.

Filtre uygulamanıza gerek kalmadan kodu çalıştırdığınızda size aranan değeri soracak. Siz değeri girdiğinizde C sütunundaki karşılığını kopyalayacak.

Option Explicit

Sub Test()
    Dim Aranan As Variant, Bul As Range
   
    Aranan = Application.InputBox("Aradığınız değeri giriniz..")
    If Aranan = False Or Aranan = "" Then Exit Sub
   
    Set Bul = Range("A:A").Find(Aranan, , , xlWhole)
   
    If Not Bul Is Nothing Then
        Bul.Offset(, 2).Copy
    Else
        MsgBox "Aranan değer bulunamadı!", vbCritical
    End If
End Sub

 

[Ellyf]

Teşekkür ederim ama aslında şöyle bir ihtiyacım var belki daha detaylı yazmam daha anlamlı olur.

Bir excel dosyasında SATIŞLAR sayfasında veriler var, A sütununda X varsa önce bu satırlar filtrelenmeli, ardından filtrelenmiş satırlardaki C sütununda bulunan değerler tek tek aynı dosyadaki TESLİMAT FORMU dosyasının K3 hücresine yapıştırılmalı. Her bir değer yapıştırma işleminden sonra TESLİMAT FORMU sayfası, bu sayfadaki A18 hücresindeki değerin ismi ile PDF formatında desktop üzerine tek tek kayıt edilmeli.

Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Forumdaki arşiv konularını incelemenizi öneririm. Bolca örnek var. Uygun olan bir konuyu kendi talebinize göre derleyip kullanabilirsiniz.

Sorgu için arama sonuçları: xlTypePDF

www.excel.web.tr