منتدى دعم PBBoard الرسمي
(نسخة قابلة للطباعة من الموضوع)
https://pbboard.info/forums/t22004
أنقر هنا لمشاهدة الموضوع بهيئته الأصلية

خطأ 404 عند اضافة كود
Yasser Elaraby 17-02-2019 01:16 صباحاً
السلام عليكم
عند اضافة كود الى الموضوع واعتماد الموضوع تظهر صفحة

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
وعند وضعه في موضوع جديد تحدث نفس المشكلة
منتدى دعم PBBoard الرسمي

Copyright © 2009-2024 PBBoard® Solutions. All Rights Reserved