[حل شده] ثبت اطلاعات یوزرفرم در شیت جدید

[younes672]

با سلام خدمت دوستان. من میخواستم اطلاعات یوزرفرم هر بار که ثبت می شود در یک شیت جدید که از شیت (form) کپی میشود و با نامی که در تکست باکس فرم مشخص گردیده ذخیره گردد.

[younes672]

پیوست فایل

[iranweld]

با سلام

فایل پیوست را بررسی کنید

Sub TEST()
    
    Dim i As Integer, blnFound As Boolean
    blnFound = False
    Dim WS As Worksheet
  Dim xx
    
     
    blnFound = False
    
        For i = 1 To Sheets.Count
        
        xx = Sheets(i).Name
            If UCase(xx) = UCase(UserForm1.TextBox6) Then
                blnFound = True
               
               Sheets(xx).Select
                Exit For
            End If
           
        Next i
        
        
        If blnFound = False Then
        
        Set WS = Sheets.Add(After:=Sheets(Worksheets.Count))
           
            
               ActiveSheet.Name = UserForm1.TextBox6
               
        End If
        
       
End Sub 

[younes672]

سلام
ممنون. من نمیخوام شیت جدید ایجاد بشه. اطلاعات برای هربار ثبت توسط یوزرفرم در کپی شیت (form) ثبت بشود.

[iranweld]

سلام
ممنون. من نمیخوام شیت جدید ایجاد بشه. اطلاعات برای هربار ثبت توسط یوزرفرم در کپی شیت (form) ثبت بشود.

لطفا بفرمایید منظور از کپی شیت فرم چیست؟
آیا منظور کادر دور سلول دارای دیتا هستش؟

[younes672]

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

[iranweld]

با سلام

برای ثبت دیتای یوزر فرم در شیت form هر کجا که range تعریف کردید را در ابتدای آن sheets("form").range اضافه کنید

For Each Rng1 In Sheets("form").Range("A1:A20") 

[younes672]

سلام
خیلی ممنون از راهنماییتون. مثل اینکه منظورم رو خوب انتقال ندادم
میخوام بری ثبت اطلاعات یوزرفرم هر سری از ("

sheets("form کپی گرفته بشه و اطلاعات در sheet کپی ثبت بشه.
همون کدهایی که فرستادید عالیه فقط لطفا کپی sheet رو بهش اضافه بفرمایید. ممنون