دانشجوی ارشد بابت امتحان

[amirhassani]

سلام سوال داشتم اینکه..
مثلا..
در یک سطر اطلاعات جغرافیایی استان تهران.. با ده سلول که سلول آخری عنوان تهران قید شده...
و در سطر دوم اطلاعات جغرافیایی استان همدان .. با ده سلول که سلول آخری هم عنوان همدان قید میشه..
حالا سوالم اینه من وقتی در سلول آخری که شهر تهران را مینویسم میخوام تمام سلولهای همون استان در شیت بعدی کپی بشه ...
ممنون میشم راهنمایی کنید

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

ابتدا در شیت اول نام شهر مورد نظر را فیلتر نموده و سپس ماکرو را اجرا کنید


Sub test()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "J").End(xlUp).Row

Z2 = Sheet2.Cells(Sheet2.Rows.Count, "J").End(xlUp).Row + 1

For I = 2 To Z1

If Range("A" & I).EntireRow.Hidden = False Then

Sheet1.Range("A" & I & ":J" & I).Copy Destination:=Sheet2.Range("A" & Z2)


Z2 = Sheet2.Cells(Sheet2.Rows.Count, "J").End(xlUp).Row + 1

End If

Next

End Sub

[amirhassani]

ممنون واقعا امتحان میکنم

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

با استفاده از data validation یک لیست از شهرهای مد نظر ایجاد کنید سپس از فرمولvlookup استفاده کنید به این صورت در آرگومان col-index-num از تابع column استفاده کنید

[amirhassani]

سلام نشد error میده
درضمن اسم استانها رو چطور باید قید بشه

[amirhassani]

میشه برنامه رو برام بفرستید من زیاد مهارت ندارم و تو این کار گیر کردم ممنون میشم کمک کنید

[amir_ts]

با سلام
این فایل رو ببینید.اگر نام استان ها رو در شیت دو در یک ستون قرار بدید و پنهان کنید با نوشتن نام استان در شیت یک سلول دهم، به راحتی سل ها در شیت دوم کپی میشود.

[amirhassani]

سلام ممنون از فایلی که فرستادید من یادم رفت تو سئوال اولی بگم اونم این که سطر هر استان تو شیت خودش ..
مثلا سطر استان همدان تو شیت یک کپی بشه و سطر استان تهران تو شیت دو ... سطر استان البرز تو شیت سه.... و الی آخر

[amir_ts]

سلام ممنون از فایلی که فرستادید من یادم رفت تو سئوال اولی بگم اونم این که سطر هر استان تو شیت خودش ..
مثلا سطر استان همدان تو شیت یک کپی بشه و سطر استان تهران تو شیت دو ... سطر استان البرز تو شیت سه.... و الی آخر

با سلام
فایل نمونه رو ملاحظه کنید به جای شیت یک-دو-سه... نام استان ها رو قرار دادم.
با نوشتن نام استان در ستون j از شیت یک ، ردیف مربوطه در شیت همنام استان کپی میشود.

=IFERROR(INDEX(Sheet1!$A$1:$I$11;MATCH(MID(CELL("filename";A1);FIND("]";CELL("filename";A1))+1;255);Sheet1!$J$1:$J$11;0);COLUMN());"")

[miladkamali]

سلام نشد error میده
درضمن اسم استانها رو چطور باید قید بشه
اروری که دریافت میکنید به خاطر این هست که باید مقادیر رو فعال کنید
دکمه*ی Enable Content رو بزنید

[amirhassani]

سلام امتحانش میکنم واقعا دستت درد نکنه
راستش دیگه نا امید شده بودم

[amirhassani]

این فرمول که نوشتید باید تو کدوم سلول شیت نوشت . اصلا کجا باید تایپ کرد
شرمنده تو رو خدا