ابـو حمودي قام بنشر أبريل 19, 2022 مشاركة قام بنشر أبريل 19, 2022 السلام عليكم ورحمة الله وبركاته يعطيكم العافيه جميعا وكل عام وانتم بخير حصلت درس مشروح على اليوتيوب وحبيت اطبقه على شيت عندي ولكن ظهرت لي مشكله في الكود بعد تصميمه ياليت اللي يقدر يعدل لي عليه اكون من الشاكرين هذا الكود Private Sub ÈÍË_click() Data.Range("BD2").Value = s.Range("G3").Value Dim a As Integer a = s.Range("BE2").Value Data.Range("d8").Value = s.Cells(a, "f") Data.Range("d9").Value = s.Cells(a, "g") Data.Range("d10").Value = s.Cells(a, "h") Data.Range("d11").Value = s.Cells(a, "p") Data.Range("d12").Value = s.Cells(a, "q") Data.Range("d13").Value = s.Cells(a, "s") Data.Range("d14").Value = s.Cells(a, "w") Data.Range("d15").Value = s.Cells(a, "z") Data.Range("h8").Value = s.Cells(a, "ad") Data.Range("h9").Value = s.Cells(a, "am") Data.Range("k8").Value = s.Cells(a, "ae") Data.Range("k9").Value = s.Cells(a, "ah") Data.Range("k10").Value = s.Cells(a, "ai") Data.Range("k11").Value = s.Cells(a, "ak") Data.Range("k12").Value = s.Cells(a, "al") Data.Range("k13").Value = s.Cells(a, "aq") Data.Range("k14").Value = s.Cells(a, "ar") Data.Range("k15").Value = s.Cells(a, "as") Data.Range("k16").Value = s.Cells(a, "au") Data.Range("n8").Value = s.Cells(a, "aj") Data.Range("n9").Value = s.Cells(a, "af") Data.Range("n10").Value = s.Cells(a, "ag") Data.Range("n11").Value = s.Cells(a, "an") Data.Range("n12").Value = s.Cells(a, "ao") Data.Range("n13").Value = s.Cells(a, "ap") Data.Range("n14").Value = s.Cells(a, "at") Data.Range("n15").Value = s.Cells(a, "av") Data.Range("n16").Value = s.Cells(a, "aw") Data.Range("k17").Value = s.Cells(a, "ax") Data.Range("n17").Value = s.Cells(a, "ay") End Sub وهو كود بحث عن بيانات بالجدول ولكن بعد التجربة يعطيني ان الخطا في الصف الاول كما هو موضح بالصورة المرفقة رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر أبريل 19, 2022 مشاركة قام بنشر أبريل 19, 2022 وعليكم السلام-تجنباً لإهدار وقت الأساتذة وبما انه لا يمكن العمل على التخمين ... فلابد من رفع ملف مدعوم بشرح كافى عن المطلوب !!! 1 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر أبريل 25, 2022 مشاركة قام بنشر أبريل 25, 2022 هل data , s أسماء أوراق عمل أما ماذا ؟؟ رابط هذا التعليق شارك 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.