ایجاد حلقه

[پیام]

با درود به همه
من توی فایل پیوست، یک فرم دارم که با تیک زدن چک باکس میخوام جلوی هر کالا ok درج بشه. ممنون میشم راهنمایی کنید. نکته اینکه چون سیستم پسوند XLSM رو نمیگرفت من پسوندش رو عوض کردم. و باید به شکل XLSM تغییر داده بشه.

[iranweld]

با سلام

کدهای ذیل را به باتن ثبت فرم اختصاص دهید

Private Sub CommandButton1_Click()

Dim CELL, RNG As Range

XX = ComboBox1.Value

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

Set RNG = Sheet1.Range("A3:A" & Z)

For Each CELL In RNG

If XX = CELL Then

ROWC = CELL.Row

For I = 1 To 5

If Me.Controls("CheckBox" & I) = True Then

Sheet1.Cells(ROWC, I + 1) = "OK"

End If
Next
End If


Next

For I = 1 To 5

Me.Controls("CheckBox" & I) = False


Next

End Sub 

[iranweld]

لینک دانلود