انتخاب تعدادی از سلول ها ی یک رکورد مشخص در Excel با ماکرو

[sheikhoo]

سلام
من توی Excel یک جدول مانند زیر دارم حال می خوام با یک ماکرو سلول های جلوی شماره شناسنامه ی 25698 را برام انتخاب کند

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

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

سلام
من توی Excel یک جدول مانند زیر دارم حال می خوام با یک ماکرو سلول های جلوی شماره شناسنامه ی 25698 را برام انتخاب کند
[ATTACH=CONFIG]1903[/ATTACH]
شماره شناسنامه متغیر است یعنی اول باید رکورد مربوطه رو پیدا کند بعد سلول ها ی جلوی آن را انتخاب کند
خیلی خیلی نیاز دارم تاامروز بیشتر وقت ندارم
باتشکر

چرا از Vlookup استفاده نمیکنی؟

[sheikhoo]

سلام،خیلی ممنون
ولی من می خوام این فیلد ها رو حذف کنم

مثلا از یک Edit Box شماره شناسنامه رو بگیره و سلول های مورد نظراز رکورد مورد نظر حذف کند.
نمی دونم چطور اون محدوده مورد نظر رو select کنم

[Alireza]

سلام،خیلی ممنون
ولی من می خوام این فیلد ها رو حذف کنم
[ATTACH=CONFIG]1904[/ATTACH]
مثلا از یک Edit Box شماره شناسنامه رو بگیره و سلول های مورد نظراز رکورد مورد نظر حذف کند.
نمی دونم چطور اون محدوده مورد نظر رو select کنم

سلام
از تب Data از گزینه Filter استفاده کنید

[Amir Ghasemiyan]

سلام،خیلی ممنون
ولی من می خوام این فیلد ها رو حذف کنم
[ATTACH=CONFIG]1904[/ATTACH]
مثلا از یک Edit Box شماره شناسنامه رو بگیره و سلول های مورد نظراز رکورد مورد نظر حذف کند.
نمی دونم چطور اون محدوده مورد نظر رو select کنم

سلام دوست عزيز.
راه هايي كه اساتيد گفتن درسته. ولي حالا كه شما ماكرو نياز دارين ميتونين از اين كد استفاده كنيد

Sub find_data()
Dim a As Range
For Each a In Range("A1:A9")
    If a.Value = "25698" Then
        q = a.Row
        Range("A" & q & ":D" & q).ClearContents
    End If
Next a
End Sub

[Amir Ghasemiyan]

سلام
از تب Data از گزینه Filter استفاده کنید

علاوه بر اين كار شما ميتونين از table هم استفاده كنيد

[sheikhoo]

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

Sub ma_mosafer_delete()
Dim a As Range
Sheets("mosafer").Select
For Each a In Range("F4:A869")
    If a.Value = Worksheets("tran").Range("G30").Value Then
        q = a.Row
        Range("F" & q & ":P" & q).Delete Shift:=xlUp
    End If
Next a
End Sub