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

[faslebahari]

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

[M_ExceL]

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

سلام،

در فایل پیوست با کلیک روی باتن قرار داده شده، کد زیر روی شیت خام اجرا میشه:

Sub m_excel()

Dim i, n, lstr As Long
lstr = Cells(Rows.Count, 6).End(3).Row

For i = 1 To lstr
    If Cells(i, 1) = Range("a5") Then
        For n = Cells(i + 1, 1).Row To Cells(i + 1, 2).End(xlDown).Row
            Cells(n, 7) = Cells(i - 2, 4)
            Cells(n, 8) = Cells(i - 3, 5)
        Next
    End If
Next

Range("g1:g" & lstr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A:A,C:C,E:E,F:F").EntireColumn.Delete

End Sub

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

[faslebahari]

سلام استاد ممنونم از وقتی که گذاشتید
بله دقیقا" همینجوری هستش که شما حل کردید
فقط بی زحمت یه راهنمایی بکنید
من این باتن رو چطوری در سایر فایل هام اجرا کنم ؟
و اینکه فایلهای من ممکنه سطر و ستونهاشون بیشتر از این یه نمونه باشه که بهتون دادم آیا برای سایر فایلها کاربرد داره ؟ منظورم این بود این کدنویسی باتن کلی هستش یا فقط برای همین فایل بود ؟
و مراحل ایجاد این باتن رو بهم بگید چطوری و در کجا باید کدها رو بنویسم ؟ من تا حالا باتن درست نکردم.
با تشکر از یار همیشگی استاد عزیز

[M_ExceL]

سلام استاد ممنونم از وقتی که گذاشتید
بله دقیقا" همینجوری هستش که شما حل کردید
فقط بی زحمت یه راهنمایی بکنید
من این باتن رو چطوری در سایر فایل هام اجرا کنم ؟
و اینکه فایلهای من ممکنه سطر و ستونهاشون بیشتر از این یه نمونه باشه که بهتون دادم آیا برای سایر فایلها کاربرد داره ؟ منظورم این بود این کدنویسی باتن کلی هستش یا فقط برای همین فایل بود ؟
و مراحل ایجاد این باتن رو بهم بگید چطوری و در کجا باید کدها رو بنویسم ؟ من تا حالا باتن درست نکردم.
با تشکر از یار همیشگی استاد عزیز

سلام،
خواهش میکنم،
نیاز دارید یه مقداری با مباحث vba اشنا بشید
کدی که قرار دادم مختص همان فایلی که ضمیمه کردید هست و اگر قصد دارید داخل فایل دگیری تست کنید می بایست فایلتون شبیه همین فایل باشه البته تعداد ردیف ها مهم نیست.
در غیر صورت امکان دارد بدرستی کار نکند و نیاز به تغییرات جزئی باشد.

[faslebahari]

سلام دقیقا" ازهمین فایل هستش فقط من یکی دو موردشو برای شما فرستادم با آلت و اف 11 بردم ماژول رو اضافه کردم ولی باتن خطا میداد لطفا" راهنمایی کنید چطور برای فایل های دیگه باید تنظیمش کنم ؟

[M_ExceL]

سلام دقیقا" ازهمین فایل هستش فقط من یکی دو موردشو برای شما فرستادم با آلت و اف 11 بردم ماژول رو اضافه کردم ولی باتن خطا میداد لطفا" راهنمایی کنید چطور برای فایل های دیگه باید تنظیمش کنم ؟

روی باتن مورد نظر راست کلیک کنید سپس گزینه Assign Macro را انتخاب کنید
در کادر باز شده ماکرو مورد نظر رو انتخاب کرده سپس روی Ok کلیک کنید.
داخل محیط vba با فشردن کلید F5 نیز ماکرو اجرا میشه