أهلا وسهلا بك زائرنا الكريم في PBBoard Community Forum، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




موضوع مغلق


  • تمت الإجابة
17-02-2019 01:16 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2017
رقم العضوية : 7103
المشاركات : 151
الجنس :
تاريخ الميلاد : 23-1-1986
قوة السمعة : 60
موقعي : زيارة موقعي
اصدار PBBoard : 3.0.3
السلام عليكم

عند اضافة كود الى الموضوع واعتماد الموضوع تظهر صفحة 

404 Page Not Found



The page you requested was not found.




الكود

CODE

Private Sub CommandButton1_Click()
    Dim ws          As Worksheet
    Dim lr          As Long
    Dim i           As Long
    Set ws = ThisWorkbook.Worksheets("الحسابات العامة")
    If Me.ComboBox1.Value = "" Then MsgBox "عفواً يجب اختيار الشيت المرحل إليه البيانات": Exit Sub
    Worksheets(Me.ComboBox1.Value).Activate
    lr = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row + 1
    For i = 1 To 6
        'If i = 5 Then i = i + 1
        Cells(lr, IIf(i >= 5, i + 2, i + 1)) = Me.Controls("TextBox" & i).Value
        ws.Cells(lr, IIf(i >= 5, i + 2, i + 1)) = Me.Controls("TextBox" & i).Value
    Next i
    TextBox2.SetFocus
End Sub

رابط الموضوع

http://excel-egy.com/forum/t3011

وعند وضعه في موضوع جديد تحدث نفس المشكلة
تم تحرير الموضوع بواسطة :Yasser Elaraby بتاريخ:17-02-2019 01:21 صباحاً

look/images/icons/i1.gif خطأ 404 عند اضافة كود
  17-02-2019 09:05 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2017
رقم العضوية : 7103
المشاركات : 151
الجنس :
تاريخ الميلاد : 23-1-1986
قوة السمعة : 60
موقعي : زيارة موقعي
اصدار PBBoard : 3.0.3
التعارض مع هذين السطرين

CODE

Cells(lr, IIf(i >= 5, i + 2, i + 1)) = Me.Controls("TextBox" & i).Value
        ws.Cells(lr, IIf(i >= 5, i + 2, i + 1)) = Me.Controls("TextBox" & i).Value

على ما اظن التعارض من الدالة   IIF   لماذا ؟؟؟

look/images/icons/i1.gif خطأ 404 عند اضافة كود
  18-02-2019 02:09 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 18-07-2009
رقم العضوية : 1
المشاركات : 12174
الدولة : السعودية
الجنس :
تاريخ الميلاد : 6-1-1980
الدعوات : 51
قوة السمعة : 71136
موقعي : زيارة موقعي
اصدار PBBoard : 3.0.4
اذا لم تواجه مشكلة في اضافه الكود في الموضوع هنا 

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

look/images/icons/i1.gif خطأ 404 عند اضافة كود
  20-02-2019 01:11 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2017
رقم العضوية : 7103
المشاركات : 151
الجنس :
تاريخ الميلاد : 23-1-1986
قوة السمعة : 60
موقعي : زيارة موقعي
اصدار PBBoard : 3.0.3
شكرا جاري مراسلتهم





الكلمات الدلالية
اضافة ،


 







الساعة الآن 08:32 AM