حذف يك سطر با ماكرو

**khakzad** · 2011/03/22, 01:03

RE: حذف يك سطر با ماكرو

سلام
فایل رو ملاحظه کنید لطفا

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

hazf radif.xlsx (11.1 کیلو بایت, مشاهدات 72)

**4017** · 2011/03/22, 12:27

RE: حذف يك سطر با ماكرو

با سلام و عرض تبريك
ممنون از پاسختون. ولي فايل شما اجرا نشد. اگه امكان داره بيشتر راهنمايي كنيد
بازم ازتون ممنونم

**khakzad** · 2011/03/22, 12:37

RE: حذف يك سطر با ماكرو

سلام و ممنون
اول ماکرو رو enable کنید از مسیر excel option-trust center-trust center setting-enable macroes. . . . . .

**4017** · 2011/03/22, 12:41

RE: حذف يك سطر با ماكرو

با احترام
اين كارو قبلا انجام داده بودم. راستش من تا حدودي با ماكرو نويسي آشنايي دارم. مشكل اصلي من اينه كه نميتونم با ماكرو يه سطر يا يك ستون كه توش فلان عدد داره رو انتخاب كنم و حذف كنم.
بازم از توجهتون ممنونم

**khakzad** · 2011/03/22, 13:02

RE: حذف يك سطر با ماكرو

گفته بودید در ستون اول مثلا یک باشه، اون ردیف رو حذف کنه!
به کد دقت کنید. اولین سل رو میگرده در صورت وجود یک، ردیف رو حذف میکنه
برای امتحان، در ستون a اعداد رو وارد کنید، بعد از اجرا هر سل که یک داشته باشه ردیف مربوط به اون حذف میشه
باز هم در خدمتم

**4017** · 2011/03/22, 13:07

RE: حذف يك سطر با ماكرو

با احترام
راستش من فايلي كه زحمتشو كشيدين رو با زدن alt+F11 رفتم تو ماكروش
اما ماكرويي پيدا نكردم. اگه امكان داره يه بازديد بفرماييد
از كمكتون ممنونم

**khakzad** · 2011/03/22, 13:21

RE: حذف يك سطر با ماكرو

شرمنده
نمیدونم چرا سایت فایل macro enable نمیگیره
ایمیل بدین بفرستم
معذرت می خوام

**4017** · 2011/03/22, 13:23

RE: حذف يك سطر با ماكرو

با احترام
سپاگذارم از شما خواهر گرامي
mehrdad.mohammadpoor@gmail.com

**khakzad** · 2011/03/22, 13:38

RE: حذف يك سطر با ماكرو

فزستادم
اپلود هم کردم
http://www.4shared.com/file/B_D1nau7/hazf_radif.html

**4017** · 2011/03/22, 13:47

RE: حذف يك سطر با ماكرو

با احترام و آرزوي بهترينها براي شما دوست عزيز[hr]
با احترام
فقط يه مشكل هست اونم اينه كه چطوري ميشه يه سطر كامل حذف بشه؟
مثلا اگه a10 برابر با يه عدد شد اون سطر rows("10:10") حذف بشه
بهتره اينطور بگم كه من يه ليست فاكتور دارم كه هر دفعه كه ميخوام فاكتور جديدي بزنم ميخوام سطرهاي فاكتور قبلي حذف بشه در حالي كه بعضي از سطرها مثل جمع كل يا ۳٪ ارزش افزوده نميخوام حذف بشه
در مورد اين مشكل يه راه حل بهم ميگيد؟
ممنون از لطفتون

**4017** · 2011/03/22, 15:10

RE: حذف يك سطر با ماكرو

در رابطه با درخواستي كه داشتم يه ماكرو نوشتم اما اشكال داره اونم اينه كه وقتي ميخواد حذف كنه نصف نصف اين كارو ميكنه يعني اگه ۲۰ سطر باشه اولش ميشه ۱۰ تا. دوباره ميزنم ميشه ۵ تا و ...
البته اين ماكرو در مورد هر عدد بزرگتر از ۰ اجرا ميشه
Sub dd()
On Error Resume Next
Dim c As Range
For Each c In Range("a1:a100")
If c > 0 Then
c.EntireRow.Delete
End If
Next
End Sub
ميشه راهنماييم كنيد؟

**khakzad** · 2011/03/22, 15:26

RE: حذف يك سطر با ماكرو

در فایل قبل که همین اجرا میشه!!!
کل ردیف حذف میشه!
واضح تر بفذمایید

**4017** · 2011/03/23, 15:55

RE: حذف يك سطر با ماكرو

با سلام
فايلي كه شما زحمتشو كشيدين درست بود. من منظورمو كامل نتونستم برسونم. من يه فاكتور دارم كه هر دفعه كه ميخوام يه فاكتور جديد بزنم ميخوام سطرهاي قبلي پاك بشه. ميخوام طوري باشه كه فقط داده هاش پاك بشه و جمع كل يا چيزاي ديگه بمونه. يه ماكرو هم نوشتم اما نصفه كار ميكنه

http://rapidshare.com/files/453960656/Book1.xlsm

اينم لينك فايلمه. ممنون از راهنماييتون
http://free-user.s99.rapidbaz.com:8080/free/yDErwFG7KnZmWOB5CK6ogPsRFpV28TbX4NGo7VOJw_aFyym9Nm cR-rV7fElSHBKQwde-uJC1z03-dDJQZYJH0FFsek87n3GJif5CPxXg/Book1.xlsm اينم يه لينك ديگه[hr]
ماكرو با دبل كليك روي ستون كد محصول اجرا ميشه

**4017** · 2011/03/23, 17:09

RE: حذف يك سطر با ماكرو

با تشكر از دوست خوبم khakzad
به جواب رسيدم. راستش من راه سختو انتخاب و بيان كرده بودم در حالي كه يه راه خيلي ساده هم داشت
Sub del_list()
Application.ScreenUpdating = False
Sheet2.Select
Range("A9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Range("A6").Select
Sheet1.Select
Range("a2").Select
End Sub
اين كارمو راه انداخت. بازم از توجهتون ممنونم