B sütunundaki verilerden A sütununda içerenleri C sütununa yazdırma

[lifesdown]

B sütunundaki verilerden A sütununda içerenleri C sütununa yazdırmak istiyorum. Örnek ekledim. Yardımcı olabilir misiniz?

 

[emrehan26]

bir sütunda isim soy isim diğer sütunda sadece isimler var. ilk sıradaki emre, emre ordu mu, emre söylemez mi bunu nasıl anlayacaksınız?

 

[lifesdown]

bir sütunda isim soy isim diğer sütunda sadece isimler var. ilk sıradaki emre, emre ordu mu, emre söylemez mi bunu nasıl anlayacaksınız?

Örneğin A sütununda Emre içeriyorsa tüm Emre'leri alıp A sütununda olduğu gibi (isim soyisim) C sütununa yazacak.

 

[asi_kral]

B sütunundaki verilerden A sütununda içerenleri C sütununa yazdırmak istiyorum. Örnek ekledim. Yardımcı olabilir misiniz?

Merhaba
1. Satıra başlık atın ve boş bir module bu kodu kopyalayın ve deneyin.

Option Explicit
Sub aynı_verileri_bul_1967()
'Konu       :   Aynı Veri Varsa Yaz
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT1 As Long, SAT2 As Long, SAT3 As Long, AÇ As Variant
Application.ScreenUpdating = False
AÇ = ActiveCell.Address
Range("C2:C" & Rows.Count).ClearContents
For SAT1 = 2 To Cells(Rows.Count, "B").End(xlUp).Row
SAT2 = Range("A" & Rows.Count).End(xlUp).Row
SAT3 = Range("C" & Rows.Count).End(xlUp).Row
With WorksheetFunction
Range("A1:A" & SAT2).AutoFilter field:=1, Criteria1:="*" & Cells(SAT1, "B") & "*"
If .Subtotal(3, Range("A2:A" & SAT2)) > 0 Then
Range("A2:A" & SAT2).Copy
Range("C" & SAT3 + 1).PasteSpecial
End If
Range("A1:A" & SAT2).AutoFilter
End With: Next
Range(AÇ).Select
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[lifesdown]

Tam istediğim gibi oldu çok teşekkür ederim.

 

[asi_kral]

Tam istediğim gibi oldu çok teşekkür ederim.

Kolay Gelsin.