ارور کد

**ali.b** · 2014/10/07, 13:33

این کد هم هست

کد PHP:


Sub Macro2()    Application.ScreenUpdating = 0With Range("k1:k" & Cells(Rows.Count, "k").End(xlUp).Row)    .AutoFilter 1, "ÔÏ"    .Offset(1).EntireRow.Copy    Sheets("sheet2").SelectRange("A1").Select            ActiveSheet.Paste    .AutoFilter
End With    Application.ScreenUpdating = 1End Sub

اما ردیف رو میره میخوام فقط رنج های خاصی رو ببره مثلا ستون a و ستون d
در کجا تغیییرات ایجاد کنم

**ali.b** · 2014/10/08, 10:31

الو

**Ali Parsaei** · 2014/10/08, 12:13

سلام،
من يک نگاه کلي انداختم، ظاهرا" اشکال به علت اين است که وقتي يک رديف را انتقال مي دهد دوباره که برمي گردد رديف بعدي را بررسي کند چون رديف ها جابجا شده قاطي مي کند، شما "نام ها" را به ترتيب 1 و 2 و 3 و ..... بنويسيد. بعد دگمه را بزنيد تا کد عمل کند، مي بينيد که رديف هاي داراي عدد فرد را انتقال مي دهد، بعد دوباره بايد کليک کنيد تا مجدد با رديف بندي جديد کار را دنبال کند.
اين موقعي اتفاق مي افتد که کد جوري نوشته شده که بعد از اينکه رديف ها يکي به بالا انتقال پيدا مي کند قاطي مي کند.
البته گفتم که .... من فقط کلي يک نظر انداختم.
يک مطلب دقيقا" راجع به همين کد هاي حذف رديف در سايت بود. فکر کنم از طرف جناب شمس العلما بود، دنبالش بگرديد، من هم اگر پيدا کردم لينک خواهم داد

**ali.b** · 2014/10/08, 12:35

درسته اما کد مربوط به فایل sub درست کار میکنه اما از ستون D به e تغییر میدم دیگه کار نمیکنه صد بار از اول نوشتم کد رو اما همش میگه فقط d انگار با d عقد کرده ول کن نیست

**Ali Parsaei** · 2014/10/08, 13:55

در کد فايل sub در چهار خط از ستون d ياد شده، خط 3 و 8 از بالا و خط 9 و 8 از پايين، بايد ببينيد دقيقا" چه تغييري مي خواهيد انجام گيرد، اطلاعات کماکان در ستون d درج شود ولي با خانه e2 مقايسه شود؟ يا اينکه اصلا" کل اطلاعات ستون d را مي خواهيد در ستون e بنويسيد و با خانه e2 هم مقايسه شود يا ..... برحسب اينکه دقيقا" چه کاري مي خواهيد انجام دهيد بايد يک ... دو .... يا هر چهار خط کد را تغيير دهيد.