فیلتر پیشرفته

[face_2_faces]

سلام به همه عزیزان و سروران گرامی
دوستان من یک بانک اطلاعاتی دارم برا اداره درست میکنم که فعلا ناقصه و تا پایان عید قراره تمومش کنم و فایل اکسلش بین چند همکار شیر هستش (پیوستش کردم).من فکر میکنم بعضی از همکارا دارن از موقعیت شغلیشون سوء استفاده رو میکنن برا همین روی بعضی از شیت ها قراره پسورد بذارم که فغلا از این قضیه بگذریم.همونطور که در شیت تخصیص 2 میبینید از ستون a تا f رو یکی از همکارا در شیت قبل پر کرده فقط جهت دیده شدن اومده تو این شیت و قفل میشه سل هاش که قابل تغییر نباشه.و با دیدن این مشخصات همکار بعدی عددها رو در ستونهای h تا m وارد میکنه.اما همکارای من در شیت تخصیص 2 باید در قسمت نام واحد فیلتر بکنن و بعد بر این اساس دیتا ها رد در ستونهای h تا m وارد کنند.الان 2 تا مشکل دارم.اولیش اینکه وقتی فیلتر میکنن نام یک واحدو.خود به خود اکسل در ستون f مثلا میره رو ردیف پنجاهم چون ممکنه 50 بار نام یک واحد خاص وارد شده باشه.ولی در ستون f باید در ستون سوم(مثلا)وارد کنن اطلاعاتو.یعنی هی باید فیلتر کنن و هی برگردن به حالت قبل و این مشکل سازه.
دومین مشکلمم اینه که دوستان یک عدد رو وارد میکنن تو هر ستونی ولی ممکنه بعد از صدور تخصیص اونو عوض کنن و هیچکس متوجه نشه.اگه بخوامم هی قفل کنم هی باز کنم یک سل رو خیلی برام سخته و مشکل ساز.نمیشه یک ایکن تیک گذاشت که وقتی اون زده شد دیگه قابل تغییر نباشه چند ستون

[face_2_faces]

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

[iranweld]

فایلی پیوست نشده است.

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

[face_2_faces]

ببخشید.

http://uplod.ir/g09vcdk7v3t0/_ورات.xlsx.htm

من این همه توضیح دادم
مشکل اولم اینه که میخوام اطلاعت یک شیت دیگه رو تو شیت دیگه بتونم فیلتر کنم.فکر کنم بالا توضیح کامل دادم.ی نگاهی کنید ببینید فایل رو

[face_2_faces]

سوالم جواب نداره؟نمیشه؟

[iranweld]

در فایل پیوست بعد از ورود دیتا در سلولهای شیت "درخواست تخصیص" ، سلول قفل میگردد و ویرایش مقدور نیست

رمز شیت 12345

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

ActiveSheet.Unprotect Password:="12345"
    
        If Target.Value <> "" Then
            Target.Locked = True
            Else
             Target.Locked = False
        End If
    
    ActiveSheet.Protect Password:="12345"
   

End Sub 

[face_2_faces]

در فایل پیوست بعد از ورود دیتا در سلولهای شیت "درخواست تخصیص" ، سلول قفل میگردد و ویرایش مقدور نیست

رمز شیت 12345

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

ActiveSheet.Unprotect Password:="12345"
    
        If Target.Value <> "" Then
            Target.Locked = True
            Else
             Target.Locked = False
        End If
    
    ActiveSheet.Protect Password:="12345"
   

End Sub 

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

[iranweld]

در فایل پیوست در صورت تایپ شدن OK در سلول ستون M آن ردیف قفل شده و قابل ویرایش توسط کاربر نمیباشد

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("m:m")) Is Nothing Then

On Error Resume Next

xx = Target.Row

ActiveSheet.Unprotect Password:="12345"
    
        If LCase(Target.Value) = "ok" Then

                       Range("b" & xx & ":m" & xx).Locked = True

            Else

             Range("b" & xx & ":m" & xx).Locked = False
        End If
    
    ActiveSheet.Protect Password:="12345"
    
   End If

End Sub 

[face_2_faces]

فوق العاده بود.یک دنیا ممنون.فقط اگه من بخوام ok تو ستون t نوشته بشه تا فقل صورت بگیره.فرمول چه تغییری میکنه؟

[iranweld]

در خط ذیل

 If LCase(Target.Value) = "ok" Then 

بجای کلمه OK حرف t را بنویسید

[face_2_faces]

در خط ذیل

 If LCase(Target.Value) = "ok" Then 

بجای کلمه OK حرف t را بنویسید

ببخشید بد گفتم .منظورم اینه بجای ستون m بشه ستون t

[iranweld]

به ستون t منتقل شد

[face_2_faces]

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

[iranweld]

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

ببخشید فایل اصلاح شد

[face_2_faces]

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