الترحيل من ملف لملف اخر بدون فتحه

[عمرو ضياء الدين]

السلام عليكم ورحمة الله وبركاته

اساتذتي واخوتي الكرام مديري واعضاء المنتدي

اريد كود يقوم بترحيل بيانات يوزرفورم من ملف رقم 1 ( Q1 ) الي الملف رقم 2 ( Q2 )

وان امكن ان يتم ذلك بدون فتح الملف الذي سيتم حفظ البيانات فيه ((ان امكن))

وشكرا لسيادتكم وجزيتم عنا كل خير اللهم امين

الترحيل من ملف لملف اخر بدون فتحه.rar

[عمرو ضياء الدين]

up

[ياسر خليل أبو البراء]

الأخ الفاضل محمد عبد الجواد

أهلا ومرحباً بك في المنتدى ونورت بين إخوانك ، وإن شاء الله تظل معنا في أسرتنا بشكل دائم

إليك الملف التالي وإن شاء الله يفي بالغرض

متنساش تقوم بالإطلاع على هذا الرابط

http://www.officena.net/ib/index.php?s=81893d0e30f869c0818c6aac054fcbc8&showtopic=60147

 

الكود :

Private Sub CommandButton1_Click()
    Dim WBK As Workbook
    Dim I As Long
    Dim EmptyRow As Long
    Application.ScreenUpdating = False
        For I = 1 To 4
            If UserForm1.Controls("TextBox" & I).Text = "" Then MsgBox "Please Fill All The Fields": Exit Sub
        Next I
        
        Set WBK = Workbooks.Open(ThisWorkbook.Path & "\Q2.xlsm")
        EmptyRow = WorksheetFunction.CountA(WBK.Sheets("Sheet1").Range("A:A")) + 1
            
        For I = 1 To 4
            With WBK.Sheets("Sheet1")
                .Cells(EmptyRow, I).Value = UserForm1.Controls("TextBox" & I).Text
            End With
            UserForm1.Controls("TextBox" & I).Text = ""
        Next I
        
        WBK.Close SaveChanges:=True
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Transfer Data From UserForm To Closed Workbook YasserKhalil.rar

[يامن عبدالرحيم بدوى]

الأخ الفاضل محمد عبد الجواد

أهلا ومرحباً بك في المنتدى ونورت بين إخوانك ، وإن شاء الله تظل معنا في أسرتنا بشكل دائم

إليك الملف التالي وإن شاء الله يفي بالغرض

متنساش تقوم بالإطلاع على هذا الرابط

http://www.officena.net/ib/index.php?s=81893d0e30f869c0818c6aac054fcbc8&showtopic=60147

 

الكود :

Private Sub CommandButton1_Click()
    Dim WBK As Workbook
    Dim I As Long
    Dim EmptyRow As Long
    Application.ScreenUpdating = False
        For I = 1 To 4
            If UserForm1.Controls("TextBox" & I).Text = "" Then MsgBox "Please Fill All The Fields": Exit Sub
        Next I
        
        Set WBK = Workbooks.Open(ThisWorkbook.Path & "\Q2.xlsm")
        EmptyRow = WorksheetFunction.CountA(WBK.Sheets("Sheet1").Range("A:A")) + 1
            
        For I = 1 To 4
            With WBK.Sheets("Sheet1")
                .Cells(EmptyRow, I).Value = UserForm1.Controls("TextBox" & I).Text
            End With
            UserForm1.Controls("TextBox" & I).Text = ""
        Next I
        
        WBK.Close SaveChanges:=True
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

تحيايت على مجهودك الاكثر من رائع وبارك الله فيك وفى علمك وقمت بالفعل باستخدامة

ولكن اريد ان ازيد امكانية ان ابحث فى هذا الملف عن بيانات سابقة تم ادخالها وانا فى ملف الادخال (q1)

وان اقوم بالغاء بيانات تم ادخالها ولكن عن طريق باس وورد

فهل هذا ممكن؟

[ياسر خليل أبو البراء]

أخي الفاضل

يرجى تغيير اسم الظهور للغة العربية

بالنسبة طلبك : اطرح موضوع جديد فيه طلبك وارفق ملف ووضح الأمر بالشكل التام وإن شاء الله تجد المساعدة من إخوانك

تقبل تحياتي

[يامن عبدالرحيم بدوى]

أخي الفاضل

يرجى تغيير اسم الظهور للغة العربية

بالنسبة طلبك : اطرح موضوع جديد فيه طلبك وارفق ملف ووضح الأمر بالشكل التام وإن شاء الله تجد المساعدة من إخوانك

تقبل تحياتي

استاذ ياسر ابو خليل

تم فصل سؤالى فى موضوع مستقل فارجوا مساعدتى فى الاجابة

رابط الموضوع

http://www.officena.net/ib/index.php?showtopic=61747