best smile قام بنشر سبتمبر 22, 2021 مشاركة قام بنشر سبتمبر 22, 2021 السلام عليكم ورحمة الله وبركاته من فضلكم لقد وضعت عدد 2 من الملفات في المرفقات وهم ملف بأسم a والاخر بأسم B ما اريده هو البحث عن نفس اسم الشيت المفتوح في الملف a ويتم البحث عن نفس اسم الشيت الموجود في الملف a في الملف b واذا تم ايجاد الملف يتم عمل كوبي من f4:f11 ووضعهم في a1 في الملف a وجزاكم الله كل خير شكرا جزيلا a.xlsx b.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر سبتمبر 22, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 22, 2021 Sub Test() Dim x, temp, myDir As String, fn As String, wsName As String myDir = ThisWorkbook.Path & "\" fn = "B.xlsx" wsName = ActiveSheet.Name If Dir(myDir & fn) = "" Then MsgBox "Workbook Not Found", vbExclamation: Exit Sub On Error Resume Next x = ExecuteExcel4Macro("'" & myDir & "[" & fn & "]" & wsName & "'!R1C1") temp = Err.Number On Error GoTo 0 If (temp = 0) * (Not IsError(x)) Then With ActiveSheet.Range("A1:A8") .Formula = "='" & myDir & "[" & fn & "]" & wsName & "'!F4" .Value = .Value End With Else MsgBox "Worksheet Not Found", vbExclamation End If End Sub 6 رابط هذا التعليق شارك More sharing options...
best smile قام بنشر سبتمبر 22, 2021 الكاتب مشاركة قام بنشر سبتمبر 22, 2021 @lionheart شكرا جزيلا اخي الفاضل جزاك الله كل خير 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.