arama sonuçlarını kopyalama

[wishoctober]

Arkadaşlar merhaba,

çalışma sayfasında yapılan arama sonuçlarını (bulunan hücreleri) başka bir sütuna toplu olarak kopyalama işlemi için yardımınıza ihtiyacım var.

İstediğim Tam olarak şu : aşağıdaki resimde yer alan sarı hücrelerdeki veriler mavi hücrelerin içinde geçiyorsa eğer arama sonucunda bu mavileri alıp kırmıza kopyalasın. Yani içinde izmir,mersin,ankara geçen tüm hücreleri kırmızı bölgeye kopyalayacak. Nasıl bir yol izlemeliyim?

ÇOK TEŞEKKÜRLER yardımlarınız için
iyi günler
Burcu

 

[wishoctober]

gerçekten yok mu çaresi?

 

[hamitcan]

Kodu kendinize göre uyarlayın.

Sub Tasi()
    Columns(4).Clear
    For i = 1 To 2
    For Each hcr In [a1:a20]
        If hcr.Text Like Cells(i, 3) & "*" Then
            c = c + 1
            Cells(c, 4) = hcr.Text
        End If
    Next
    Next
End Sub

 

[wishoctober]

a1 a20 arasında arama yapılacak orayı anladım sadece
kendime göre nasıl uyarlayacağımı çözemedim
visual basic bilmiyorum

 

[hamitcan]

[C1:C2] Aranacak kelimeler.
D kolonu aktarılacak sütun.

 

[wishoctober]

çok teşekkürler.. şimdi oldu