وارد کردن اطلاعات تکس باکس فرم به شیت

[Hesam2]

سلام


میخوام با وارد کردن روز در تکس باکس اولی و بعدش با انتخاب یکی از آیتمهای کمبوباکس و عددی که در تکس باکس مقابلش وارد میکنم
در نهایت با زدن دکمه ok اطلاعات ثبت شده به شیت و ستونی که به عنوان (روز ماه) و ردیف هایی که از طریق کمبوباکس مشخص کردیم انتقال داده بشه
البته تا یه جایی از کار ور که بلد بودم انجام دادم


با تشکر

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

[Nima]

دوست عزیز
برای اینکار تنها به یک کمبو باکس و دوتکست باکس احتیاج دارید و میتونید از کد زیر استفاده کنید

Private Sub CommandButton1_Click()


    For Each Item In ThisWorkbook.Sheets(1).Range("R2:R14")
        For i = 1 To 14
            If ComboBox1.Value = Item.Offset(0, 0) Then
                Item.Offset(0, 14 + Val(TextBox1.Text)).Value = TextBox2.Text
            End If
        Next i
    Next Item
    
End Sub