Sayfa İçerisinde Kelime Aratıp Kopyalamak

[Astalavista58]

Merhabalar, ben excel sayfamda örnek veriyorum, "Ali" kelimesini aratıp, "Ali" kelimesinin bulunduğu "SÜTUNU" kopyalamak istiyorum. Yardımcı olabilir misiniz

 

[Korhan Ayhan]

Arama işlemi içerir mantığıyla mı olacak?

 

[Astalavista58]

Korhan bey, aslında amacım "birinci satırdaki başlıklarda aramak "

 

[Korhan Ayhan]

Sorumun cevabı bu olmamalı...

 

[Astalavista58]

Doğrudur içerir mantığı ile olacak.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim Bul As Range, Aranan As Variant
    
    Aranan = "Ali"
    
    Set Bul = Cells.Find(Aranan, , , xlPart)
    
    If Not Bul Is Nothing Then
        Bul.EntireColumn.Select
    Else
        MsgBox Aranan & " verisi bulunamadı!", vbExclamation
    End If

    Set Bul = Nothing
End Sub

 

[Astalavista58]

Kod çok güzel bir şekilde "Ali" kelimesinin olduğu sütunu bulup seçiyor ancak o sütunu nasıl kopyalayabilirim

 

[Korhan Ayhan]

Kod içindeki bu satırı;

Bul.EntireColumn.Select

Aşağıdaki gibi değiştiriniz.

Bul.EntireColumn.Copy

 

[Astalavista58]

Teşekkür ederim. Sıkıntısız bir şekilde çalışıyor.

 

[Astalavista58]

Korhan bey, yine aynı sayfa içerisinde Ahmet kelimesini de arayıp, bulması halinde kopyalamak istiyorum, nasıl bir ekleme yapmak gerekiyor formüle.

 

[Korhan Ayhan]

Foruma eklediğim kodları mümkün mertebe en basit şekilde yazmaya gayret ediyorum.

Yazdığım kod için Aranan = "Ali" bölümü var. Kodu çoğaltarak o kısmı dilediğiniz gibi değiştirerek kullanabilirsiniz.