السلام عليكم ورحمة الله وبركاته
يعطيكم العافيه جميعا
وكل عام وانتم بخير
حصلت درس مشروح على اليوتيوب وحبيت اطبقه على شيت عندي
ولكن ظهرت لي مشكله في الكود بعد تصميمه
ياليت اللي يقدر يعدل لي عليه اكون من الشاكرين
هذا الكود
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
وهو كود بحث عن بيانات بالجدول
ولكن بعد التجربة يعطيني ان الخطا في الصف الاول
كما هو موضح بالصورة المرفقة