چیدن داده های تکراری

[h7h]

سلام نحوه ی بررسی مقادیر ۴ستون شامل شماره پرسنلی,نام,نام خانوادگی و مبلغ دریافتی حقوق مربوط به چند ماه که این مقادیر برای هر نفر ممکنه متغیر باشه و یا برای یک نفر فقط یکبار باشه و مرتب سازی آنها بر اساس شماره پرسنلی و جمع مقادیر حقوق در شیت جدید

[iranweld]

با سلام

در فایل شما گزارشگیری با پیوت تیبل انجام شد.

لینک فیلم نحوه ایجاد پیوت تیبل (شیت اطلاعات سه ماه بصورت تیبل تعریف گردید Table1)

و شیت پیوت تیبل بصورت Auto Refresh تعریف گردید تا در صورت تغییر داده های شیت سه ماه نیاز به Refresh پیوت تیبل نباشد.

[amir_ts]

با سلام
با استفاده از فرمول های آرایه ای میتوان به نتیجه رسید.فایل نمونه رو ملاحظه کنید با زدن کد پرسنلی تمامی اطلاعات مربوط به کد لیست میشود.

=iferror(index($a$1:$d$79;small(if($a$1:$a$100=$j$2;row($a$1:$a$100));row(a1));column(b1));"") 

[h7h]

سپاس و تشکر از همه دوستان.من خودم این اطلاعات سه ماه رو ساختم ، حالا اگر بخوام اطلاعات اصلی (دیتای 6ماهه)که حجمشون خیلی زیاده بصورت اتوماتیک هر ماه در شیت جدید ساخته و قرار بگیرن و بر اساس شماره پرسنلی چیده بشند و در مرحله ی بعد دیتای تکراری حذف بشه و در نهایت مجموع مبالغ ریافتی هر ماه پرسنل در جدول وارد بشه چه راهکاری رو پیشنهاد میدین .نمونه فایل رو گذاشتم مجموع مبالغ دریافتی رو با استفاده از sumif مشخص کردم اما میخوام بصورت اتوماتیک انجام بشه و اشخاص جدید هم پس از ثبت اطلاعاتشون بطور اتومتیک در جدول جدید چیده بشند.

[iranweld]

با سلام

کافیست که اطلاعات هر شیت را در یک شیت دیگر بصورت زیر هم کپی نمایید و در یک ستون دیگر نام ماه را نیز در کنار آن دیتا مشخص کنید و با پیوت تیبل براحتی گزارش مورد نظر را تهیه کنید

[h7h]

مرسی لطفا یه توضیحی راجع به نحوه ی ساختن

پیوت تیبل به همراه نام و نام خانوادگی با همین تنظیماتی که خودتون گذاشتید بدین و

حالا اگه بخوام اطلاعات بصورت اتوماتیک در

پیوت تیبل وارد بشه چون دیتای فایل اصلی خیلی زیاده و نفرات در هر ماه تغییر می کنند اونوقت چیکار باید کرد؟کپی کردن اطلاعات در شیت جدید و قرار دادن اونا در

پیوت تیبل با استفاده از ماکرو و دکمه های دستوری میشه؟

[h7h]

سلام لطفا توضیحی راجع به Auto Refresh

پیوت تیبل بدین.

[iranweld]

با سلام

با تغییر داده هایی که پیوت تیبل با آن ایجاد شده، پیوت تیبل اتوماتیک رفرش نمی شود و حتما بایستی بر روی یکی از سلولهای پیوت تیبل قرار گرفته و از منوهای بالای صفحه رفرش نموده یا با Alt+F5 عمل رفرش را انجام دهید

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

[h7h]

حالا اگه بخوام اطلاعات شیت دیتا بصورت اتوماتیک پر بشه مثلا با زدن روی یک دکمه اونوقت چیکار باید کرد.

[iranweld]

بایستی فرمی تهیه کنید که در آن بتوانید نام شیت مورد نظر برای کپی به شیت data زا انتخاب نموده و عملیات کپی را انجام دهید

[h7h]

میشه نمونه فایل رو بذارید

[iranweld]

این هم فایل مورد نظر

Private Sub CommandButton1_Click()

Dim xx As String

xx = ComboBox1.Value

z1 = sheets(xx).Cells(sheets(xx).Rows.Count, "A").End(xlUp).Row

Z2 = sheets("data").Cells(sheets("data").Rows.Count, "A").End(xlUp).Row + 1

sheets(xx).Range("b3:e" & z1).copy Destination:=sheets("data").Range("b" & Z2)

Z3 = sheets("data").Cells(sheets("data").Rows.Count, "A").End(xlUp).Row

sheets("data").Range("f" & Z2 & ":f" & Z3) = xx

sheets("data").Range("f" & Z3).Select

Unload Me

End Sub 

[h7h]

سلام میشه یه توضیحی راجع به ساختن فایل مالیاتی که زحمتش رو کشیدین بگید چون میخوام بقیه ماهها و سال هم اضافه کنم.در ضمن کمبو باکس

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

[iranweld]

با سلام

در نام شیت خود ، نام سال را نیز اضافه کنید (فروردین 95)
یا در جدول خود یک ستون برای ماه و یک ستون برای سال اضافه کنید.

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

ComboBox1.Value = ComboBox1.List(0) 

Private Sub UserForm_Initialize()


For i = 1 To sheets.Count

If sheets(i).Name <> "Data" And sheets(i).Name <> "report" Then

Me.ComboBox1.AddItem sheets(i).Name

End If

Next

ComboBox1.Value = ComboBox1.List(0)


End Sub 

[h7h]

سلام لطفا کد حذف کردن اطلاعات شیت دیتا بجز سطر اول و دوم یا سطرهای دلخواه بوسیله ماکرو در command button