ماكرو براي جسجوي سطر به سطر

[اهورا]

[/font][/size]دوستان عزيز سلام
يه كمكي ميخواستم
فرض كنيد يه فايل داريم كه دو تا ستون داره توي اولي اسم افراد و دومي محل سكونتشون رو نشون ميده...به وسيله چه فرمولي ميشه يه حالتي مثل فيلتر كردن روي محل سكونت ايجاد كرد ؟؟؟؟؟
به نظرتون تابع داريم براي اين كار يا بايد ماكرو براش نوشت؟؟؟
ممنون ميشم راهنماييم كنيد[size=medium][font=Times New Roman]

[komeilex]

RE: ماكرو براي جسجوي سطر به سطر

[/font][/size]دوستان عزيز سلام
يه كمكي ميخواستم
فرض كنيد يه فايل داريم كه دو تا ستون داره توي اولي اسم افراد و دومي محل سكونتشون رو نشون ميده...به وسيله چه فرمولي ميشه يه حالتي مثل فيلتر كردن روي محل سكونت ايجاد كرد ؟؟؟؟؟
به نظرتون تابع داريم براي اين كار يا بايد ماكرو براش نوشت؟؟؟
ممنون ميشم راهنماييم كنيد[size=medium][font=Times New Roman]

سلام دوست عزیز. منظورتون از فیلتر کردن محل سکونت رو نفهمیدم:huh: بیشتر توضیح می دین؟

[~M*E*H*D*I~]

RE: ماكرو براي جسجوي سطر به سطر

تقریبا متوجه منظورت شده ، فک کنم با Vlookup بتونی ، اگه فایل نمونه بذاری بهتره

[اهورا]

RE: ماكرو براي جسجوي سطر به سطر

vlookup نميتونه چون اگر داده هاي تكراري داشته باشيم فقط فايل اولين ركورد رو ثبت ميكنه
من بلد نيستم تو اين محيط فايل اتچ كنم واسه همين همينجا توضيح ميدم..مثال

نام استان نام داوطلب
تهران علي
شيراز حسين
اصفهان حسن
تهران سيامك
تهران نيما
تهران سهيل
اصفهان سروش
[size=medium][font=Times New Roman]
حالا قصد داريم اسامي داوطلبان ساكن تهران را جدا كنيم
راه حل ابتدايي استفاده از فيلتر كردن بر روي ستون " نام استان" ميباشد كه اين ند نظر ما نيست
vlookup هم اگر استفاده كنيم در مقابل داده تهرات فقط اولين ركورد يعني نام علي را براي ما نمايش ميدهد.....
سوال من اين است با استفاده از چه فرمول و يا ماكرويي ميتوان داوطلبان تهران را در يك ليست نمايش داد........

[komeilex]

RE: ماكرو براي جسجوي سطر به سطر

ببینین دوست عزیز شما خودتون به نکته ی خوبی اشاره کردین و اون منحصر به فرد کردن داده ها بود. حالا که داده هاتون تکراری هستن خودتون منحصر به فردش کنین. نمونشو براتون قرار دادم:
[attachment=980]

[اهورا]

RE: ماكرو براي جسجوي سطر به سطر

دوست عزيز
جناب komeilex

واقعاً ازتون تشكر و قدر داني ميكنم
جوابتون عالي بود....واقعا عالي بود
به ماكرو هم پيدا كردم كه از طرف بچه هاي خود اين انجمن بودش
حالا يه سوال
اگر بخواهيم اين اطلاعات توي يه فايل ديگه وارد بشه حتما بايد 2 تا فايل همزمان باز باشن؟؟؟؟

اينم اون ماكرويي كه گفتم
بازم تشكر و قدرداني ميكنم

Option Explicit

Sub Macro1()
Dim c, t
For Each c In Sheet1.Range("A1:a50")
For Each t In Sheet2.Range("A1:a30")
If c.Offset(0, 1) = t Then
If t.Offset(0, 3) = "" Then
t.Offset(0, 3) = c.Offset(0, 3)
Else
t.Offset(0, 3) = t.Offset(0, 3) & Chr(10) & c.Offset(0, 3)
End If
End If
Next t
Next c
End Sub
Function ch(a, b, d As Range, m, n)

Dim c
ch = ""
For Each c In d
If c = a And c.Offset(0, m) = b Then
If ch = "" Then
ch = c.Offset(0, n)
Else
ch = ch & Chr(10) & c.Offset(0, n)
End If
End If
Next c
'
End Function

[ssmmrr]

RE: ماكرو براي جسجوي سطر به سطر

باسلام
من هم دقیقا مشکلم شبیه مثال شماست
با این تفاوت که می خوام در یک شیت دیگه برای هر شهر به صورت افقی نام افراد قرار بگیره
مثلا
تهران علی نیما سیامک سهیل
شیراز حسین
اصفهان حسن سروش
روشی که دوستمون گفتند به صورت افقی مرتب نمی کنه

[اهورا]

RE: ماكرو براي جسجوي سطر به سطر

سلام
به نظر من يا از Hlookup استفاده كن و يا اون قسمتو كپي كن و در هنگام PASTE كردن گزينه transpose رو انتخاب كن
البته اينو ميتوني يه ماكرو كني كه هميشه اين كارو برات انجام بده

[ssmmrr]

RE: ماكرو براي جسجوي سطر به سطر

من داده هام خیلی زیاده
دو تا ستون دارم که طولش 20 هزار تاست نمی تونم همش رو transpose کنم
هر کاری کردم نتونستم نمونه فایلم رو آپلود کنم

[اهورا]

RE: ماكرو براي جسجوي سطر به سطر

من نتونستم اينجا فايل آپلود كنم
بهم ايميل بزن تا برات يه فايل بفرستم
f.yaghoubi@kayson-ir.com