(آموزشی) یافتن آیتم مورد نظر و اعمال تغییرات

[ali.b]

سلام با کد زیر میتونید ایتم هایی که مدنظرتون هستن رو پیدا و تغییرات موردنظر رو اعمال میکنه

SUB TESTSheet8.Select
    Last = Cells(Rows.Count, "B").End(xlUp).Row
    For i = Last To 1 Step -1
    If (Cells(i, "B").Value) = ComboBox4.Text Then
            Cells(i, "B").EntireRow.Delete
    End If
    Next i

End sub

در قسمت آبی کدی که وقتی شرط صحیح بود اعمال بشه رو اجرا میکنه

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.