2saad قام بنشر يوليو 4, 2023 مشاركة قام بنشر يوليو 4, 2023 إخواني اعضاء المنتدي الكرام بعد التحية والسلام محتاج ارحل البيانات الموجودة في الملف ( محمد ) بالشيت الاول والبيانات الموجودة في ملف ( أحمد ) بالشيت الاول الي الشيت 9 ( ورقة عمل 9 ) بملف أحمد ولكم جزيل الشكر أحمد.xlsmمحمد.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يوليو 4, 2023 أفضل إجابة مشاركة قام بنشر يوليو 4, 2023 تفضل Sub Copy_My_Data() Dim wsDest As Worksheet Dim LR As Long, LR1 As Long Dim msg As VbMsgBoxResult Dim Rng As Range, wsCopy As Worksheet msg = MsgBox(" ترحيل البيانات الى مصنف أحمد ؟", vbYesNo + vbQuestion + vbDefaultButton2, "تأكيد") If msg = vbYes Then Application.ScreenUpdating = False Set wsCopy = Sheets("Sheet1") With wsCopy LR = .Cells(Rows.Count, 3).End(xlUp).Row Set Rng = .Range(.Cells(10, "C"), .Cells(LR, "L")) End With Set wsDest = Workbooks.Open(ThisWorkbook.Path & "\أحمد.xlsm").Sheets("Sheet9") LR1 = wsDest.Cells(wsDest.Rows.Count, "C").End(xlUp).Row + 1 If wsDest.Range("C10") = Empty Then Rng.Copy wsDest.Range("C10").PasteSpecial Paste:=xlPasteValues Else Rng.Copy wsDest.Range("C" & LR1).PasteSpecial Paste:=xlPasteValues End If Set WS = Workbooks("أحمد.xlsm").Sheets("Sheet1") WCopy = WS.Cells(WS.Rows.Count, "C").End(xlUp).Row WDest = wsDest.Cells(wsDest.Rows.Count, "C").End(xlUp).Offset(1).Row WS.Range("C10:L" & WCopy).Copy wsDest.Range("C" & WDest).PasteSpecial Paste:=xlPasteValues [C10].Select Application.CutCopyMode = False Workbooks("أحمد.xlsm").Close True Application.ScreenUpdating = True End If End Sub Saad2.rar 2 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر يوليو 4, 2023 الكاتب مشاركة قام بنشر يوليو 4, 2023 شكرا جزيلا يا استاذ محمد وربنا يجعله في ميزان حسناتك ومعلش أنا بتعبك معاي أخوك لسه مبتدئ 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.