[حل شده] اصلاح دستور for [بایگانی]

khorasan66

2019/02/07, 13:09

سلام
در دستور زیر می خواهم بعد از اینکه C از A1 شروع شد
در NEXT بعدی شش ردیف بعدی یعنی A7 به عنوان مقدار C قرار گیرد تا به انتها
لطفا دستور را اصلاح فرمائید
Dim C
For Each C In Range("A1:A100")
If C <> "" Then
Range("B1") = C.Value
' سایر دستورات .....
End If
Next

ali.b

2019/02/07, 15:40

سلام
در دستور زیر می خواهم بعد از اینکه C از A1 شروع شد
در NEXT بعدی شش ردیف بعدی یعنی A7 به عنوان مقدار C قرار گیرد تا به انتها
لطفا دستور را اصلاح فرمائید
Dim C
For Each C In Range("A1:A100")
If C <> "" Then
Range("B1") = C.Value
' سایر دستورات .....
End If
Next

سلام

Dim C As Range
For Each C In Sheet1.Range("A65536").End(xlUp)
C.Offset(6, 0) = Range("B1")

Next

khorasan66

2019/02/10, 08:28

ضمن تشکر از دوست عزیز
کد های ارسالی صحیح نمی باشد و عملا اتفاقی نمی افتد
توضیحات بیشتر :
در ستون A کد کالا و ستون B نام کالا ثبت شده است
هر 6 کد کالا زیر هم در یک صفحه a4 جهت چاپ چینش شده اند
می خواهم از سلول a1 که دستور for شروع می شود
next بعدی سلول a7 باشد
بعدی a14
بعدی a21
بعدی ....
تا به انتها

ali.b

2019/02/11, 19:37

ضمن تشکر از دوست عزیز
کد های ارسالی صحیح نمی باشد و عملا اتفاقی نمی افتد
توضیحات بیشتر :
در ستون A کد کالا و ستون B نام کالا ثبت شده است
هر 6 کد کالا زیر هم در یک صفحه a4 جهت چاپ چینش شده اند
می خواهم از سلول a1 که دستور for شروع می شود
next بعدی سلول a7 باشد
بعدی a14
بعدی a21
بعدی ....
تا به انتها

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

khorasan66

2019/02/12, 13:55

با سلام
فایل پیوست جهت استحضار به حضورتان ارسال می گردد .
در این فایل c از A2 شروع می شود و می بایست در NXTE دوم مقدار A8 و در بعدی A14 بعدی A20 و ... انتخاب شود

ضمنا برای سلول های زرد رنگ فرمول داده ام تا وقتی مقدار c به سلول سبز اختصاص داده شد سلول های زرد به ترتیب مقادیر ردیف های بعدی را بگیرند اگر ممکن بود مقادیر سلول های رزد رنگ هم با vb مشخص شود .