عبدالفتاح في بي اكسيل

لا ادري اذا كنت افهمك جيدا لكن هذا الخيار يجعلك تختار اكثر من خيار عند الاختيار بالتشيك بوكس

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

نقر مرتين على اليوزرفورم والصق هذا الكود لا ادري اذاكان هذا يفي بالغرض Private Sub UserForm_Activate() With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub

اذا كان هناك معادلات كثيرة وخصوصا عند الربط بملفات خارجية اقترح عليك بلا ستعانة بالكود خصوصا ان الكود يتجاهل الصفوف او الخلايا الفارغة وعمليا اسرع واقل مشاكل من المعادلات اذا كانت البيانات ضخمة

جرب هذا الماكرو Sub CONCATENATE_CELLS() Dim CONCELL, myvariant As String Dim LR As Long Dim i As Integer LR = Cells(Rows.Count, 1).End(xlUp).Row CONCELL = Range("A2").Value Range("f:f").Value = "" Range("f" & 1).Value = "RESULT" For x = 2 To LR If Range("A" & x).Value <> "" Then CONCELL = Range("A" & x) End If Range("F" & x).Value = CONCELL & Range("B" & x).Value & Range("C" & x).Value & Range("D" & x).Value & Format(Range("E" & x).Value, "YYYY/MM/DD") Next End Sub MERGE CELLS.xlsm

ادرج ملف وضع النتائج كيف تكون وكيف تصبح في كل حالة

وهل تاكدت من ان الماكرو موجود في الاصل وتاكد ان الملف من هذه الانواع XLSM,XLS,XLSB التي تمكن من تشغيل الماكرو والا لايوجد ماكرو على الاطلاق ؟

لا اعلم ماذا تعني بهذا ثم اجبتك بناء على الصورة .ضع الصورة النهائية للقيمة في الخلية

جرب هذا الشيء Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp) msgbox ChrW(163) & LR End Sub

ما فائدة ارفاق ملف محمي كيف سنضع لك الكود جرب هذا الكود على حسب ما فهمت Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("a1:b10")) Is Nothing Then Exit Sub MsgBox "this cell is protected,pleace unprotect it " & Target.Address End Sub

على حسب صورتك يجب الحساب ايضا في العمود e ليس فقط في العمود d ؟

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

لماذا الكود طالما يمكنك ذلك بعمل حماية تحديد الخلايا

لماذا لاتنشره حتى يستفيد الاعضاء الاخرين لا تبخل بمساعدة الاخرين

جرب هذا الكود sub delete_externallinks() With ActiveWorkbook For Each lnk In .LinkSources(Type:=xlLinkTypeExcelLinks) .BreakLink Name:=lnk, Type:=xlLinkTypeExcelLinks Next End With end sub

جرب هذا الماكرو لا تنسى بانشاء مجلد backup في درايف c Sub savefile() Dim Path As String Dim Filename As String Path = "C:\backup\" Filename = Range("B3") ThisWorkbook.Sheets.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=Path & Filename & ".xlsx", FileFormat:=51 Application.DisplayAlerts = True ActiveWorkbook.Close True End Sub

اين المشكلة انقري على الصف الذي به الكمية في العمود D وسيتم انشاء صفحة جديدة

لا يوجد ورقة لديك اسمها sheet3 عدلها كما في الصورة

تم اعادة هيكلة الكود تقومي بتعبئة الكميات من الصف الخامس من العمود الاول ختى تصلي الى العمود الرابع ستظهر رسالة باضافة ورقة جديدة وسيتم نسخ بعض البيانات بالتوفيق test (2).xlsm

أ/ محمد صالح حقيقة انا مستغرب كيف عمل معك الملف ظهر لي نفس الخطا عند الضغط على زر تنفيد الملف كان في وضع المشاركة تم الغاء تفعيله حتى يعمل تحياتي

تفضل اخي الكريم Ù_Ù_اÙ_ 2021.xlsb

قم بوضعها في حدث الورقة اسفل الشيت بزر الماوس باليمين انقر على عرض التعليمات البرمجية والصق الكود مباشرة

انظر الصورة لتفعيل الاخطاء يمكنك الذهاب اعلى الشريط وابحث عن formula (الصيغة) ثم تجد check error (تدقيق الاخطاء) ستجد خيارين اختار check error (معالجة الاخطاء)

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

اعتقد ان هذا هو طلبك row number.xlsm