تعليقات على فورم بحث وتعديل واضافة بيانات

'    عدد الاعمدة
Private Const ContColmn As Integer = 6
'    تنسيق التاريخ
'Private Const DateFormt As String = "yyyy/mm/dd"

Private sRng As Range
Private sColmn


Private Sub ButtonFind_Click()
On Error Resume Next

If OptionButton1 <> True And OptionButton2 <> True Then GoTo 1
If Textbox2.Value = "" Then
[a51] = Textbox1.Value
Else
[a51] = ">" & "=" & Textbox1.Value
End If
Sheet4.Activate
ActiveSheet.Range("A:F").AutoFilter Field:=1
    Columns("A:F").Select
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
If OptionButton1 = True Then
Sheet1.Activate
Sheet1.Range("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range("A50:B51"), CopyToRange:=Range("تقرير!A5"), Unique:=False

Else
Sheet2.Range("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range("A50:B51"), CopyToRange:=Range("تقرير!A5"), Unique:=False

End If
Sheets("تقرير").Select
[A1] = "مصر"
[A2] = "وزارة التربية والتعليم"
[A3] = "مدرسة مجدى عبد المنعم يونس"
[A4] = "ببورسعيد"
If OptionButton1 = True Then
[d2] = "سجل قيد الكتب"
Else
[d2] = "سجل كتب الأطفال"
End If
[d3] = "[ " & Me.ComboFind.Value & " من " & Textbox1.Value & " إلى " & Textbox2.Value & " ]"

Range("A1").Select
GoTo 0

1: MsgBox "اختر نوع السجل"


0: End Sub






Private Sub ComboFind_Change()


End Sub

Private Sub Lab6_Click()

End Sub




Private Sub TextFind_Change()

End Sub



Private Sub OptionButton1_Click()
Set sRng = Sheet1.Range("A1").Resize(1, ContColmn)
With Me.ComboFind
    .Column = sRng.Value
    .ListIndex = 0
    .Style = 2
End With
End Sub

Private Sub OptionButton2_Click()
Set sRng = Sheet2.Range("A1").Resize(1, ContColmn)
With Me.ComboFind
    .Column = sRng.Value
    .ListIndex = 0
    .Style = 2
End With
End Sub

Private Sub Textbox1_Change()
[a50] = Me.ComboFind.Value

[a51] = ">" & "=" & Me.Textbox1.Value
End Sub

Private Sub Textbox2_Change()
[b50] = Me.ComboFind.Value
[B51] = "<" & "=" & Me.Textbox2.Value
End Sub

Private Sub UserForm_Activate()

Dim myChoicey As String


'determine which button was chosen
[a50:b51].Clear




'transfer this into worksheet

'ActiveCell.Offset(0, 53).Value = myChoice


Dim wColmn


'-----------------------------
'For i = 1 To ContColmn
 '  With Me.Controls("Lab" & i)
  '      .Caption = sRng(i)
  '    wColmn = wColmn & .Width & " "
    'End With
'Next
'-----------------------------
'wColmn = Join(Split(Trim(wColmn)), ",")
'-----------------------------
'With Me.ListFind
 '  .ColumnCount = ContColmn
  '  .ColumnWidths = wColmn
'End With
'-----------------------------

'-----------------------------
'Me.ButtonSaveFil.Enabled = False
'Me.ButtonSelect.Enabled = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set sRng = Nothing
End Sub

TextBox1 = Val(Cells(T, 1)) + 1
'في السطر السابق نحدد التكست الذي نريد عمل هذه العمليه فيه
'TextBox1 وهو هنا تكست بوكس رقم 1
'ونحدد انه يساوي قيمة آخر خليه بها بيانات +1 ليكون هو قيمة التكست الجديد