[حل شده] اعلام وضعیت سفارشات

[arash4041]

باسلام خدمت دوستان
من یک فایل اکسل دارم که کارهای بانکی انجام میدهم. در شیت های مختلف اطلاعات مربوط به کد سفارشات وارد گردیده است من در شیت vaziat میخوام وقتی کد سفارش را وارد میکنم اطلاعات بصورت کامل و پشت سرهم هراقدام که در هر شیت انجام گردیده است وارد شود و یک گزارش کامل از تمام اقداماتی که بابت آن کد انجام گردیده است شرح دهد. مثلاوقتی که کد را وارد میکنم نشان دهد که این سفارش درچه تاریخ takhsis شده است یا نشده است و درشیت tamin اگر درحال تامین وجه است نشان دهد و مابقی شیت ها. دوستانی که میتوانند بنده را راهنمایی کنند ممنون میشم نظر دهند و یا اگر در اکسل نمشود این گزارش دهی را انجام داد در اکسس میتوان انجام داد و چطور .ممنونم

[iranweld]

با سلام

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

Sub test()

Sheets("vaziat").Range("A2:I20").ClearContents

Sheets("takhsis").Select

For Each Sheet In Worksheets

If Sheet.Name <> "vaziat" Then

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

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

For I = 2 To z1

If Sheet.Range("A" & I) = Sheets("vaziat").Range("K2") Then

Sheet.Range("A" & I & ":I" & I).Copy Destination:=Sheets("vaziat").Range("A" & Z2)


End If

Next

End If

Next

Sheets("vaziat").Select

End Sub 

[arash4041]

باسلام
دقیقا همانطور است که من میخوام ولی چطور به فایل اصلی خودم انتقال دهم این کد را. چون زیاد وارد نیستم در کد نویسی. یکم توضیح دهید ممنون میشم. این فایل پیوست شده نسخه کم حجم فایل اصلی من میباشد.
یا اینکه من فایل اصلی را برای شما ایمیل کنم شما کد نویسی کنید برام بفرستید یا اینکه حالت کلی را توضیح دهید. من خودم انجام دهم با کپی و past کردن بتوانم روی فایل اصلی انجام دهم. باتشکر

[iranweld]

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