Sütundaki aynı isimleri başka bir sütuna yazmak!

[gio555]

Merhaba Arkadaşlar ,

Benim yapmak istediğim,A sütununda içinde mehmet geçen hücreleri başka bir sürunda toplamak.
Örnek;
A sütununda sırasıyla aşağıdaki isim ve soyisimler var diyelim
Mehmet Kara
Mehmet Sarı
Mehmet Kale
Ahmet Kara
Ahmet Sarı
Ben içinde Mehmet geçenleri başka bir sütuna koymak istiyorum.
Yardımcı olursanız çok sevinirim.

 

[Vedat Özer]

Merhaba Arkadaşlar ,

Benim yapmak istediğim,A sütununda içinde mehmet geçen hücreleri başka bir sürunda toplamak.
Örnek;
A sütununda sırasıyla aşağıdaki isim ve soyisimler var diyelim
Mehmet Kara
Mehmet Sarı
Mehmet Kale
Ahmet Kara
Ahmet Sarı
Ben içinde Mehmet geçenleri başka bir sütuna koymak istiyorum.
Yardımcı olursanız çok sevinirim.

Selamlar,

Ben Kendim Örnek Dosya Oluşturdum. İnceleyin..
Formül Alıntdır..Sayın;Korhan Ayhan'dan

 

[gio555]

Merhaba ,
Teşekkürler yardım için fakat benim istediğim içinde Mehmet geçenlerin toplam sayısını vermesi değil,başka bir sütuna içinde mehmet olanları aktarması.

 

[Vedat Özer]

Selamlar,

Rica Ederim. Sizin İstediğinizi ben yapamam o kadar bilgim yok sitedeki diğer arkadaşlarım yardımcı olur ....

 

[Orion1]

Dosyanız ektedir.

Sub aktar()
Dim isim
isim = InputBox("İsim giriniz : ", "evrengizlen@hotmail.com", "Mehmet")
If isim = "" Then Exit Sub
Range("C:C").ClearContents
Range("A1").AutoFilter field:=1, Criteria1:="*" & isim & "*"
Range("A1").CurrentRegion.Copy Range("C1")
Range("A1").AutoFilter
End Sub

 

[Vedat Özer]

Evren Hocam Vermiş Oldugunuz Bilgiler İçin Teşekkürler

 

[Orion1]

Evren Hocam Vermiş Oldugunuz Bilgiler İçin Teşekkürler

Rica ederim.
İyi çalışmalar.

 

[gio555]

Evren hocam çok teşekkürler.
Fakat bişey sormak isterim.Siz butonu ve butonun içine formülü nasıl eklediniz kısaca tarif etmeiniz mümkünmüdür?Çok sevinirim.