tornado_3100
-
Posts
7 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه tornado_3100
-
-
- 1
-
-
شكرا للجميع
الكود للاستفادة مع شكر أ / hassona229 للمساعدة
If UserForm1.Visible = True Then If UserForm1.TextBox1.Value = "" Then UserForm1.TextBox1.Value = Me.TextBox1.Value Else UserForm1.TextBox2.Value = Me.TextBox1.Value End If Else If UserForm2.Visible = True Then If search.TextBox1.Value = "" Then UserForm2.TextBox1.Value = Me.TextBox1.Value Else UserForm2.TextBox2.Value = Me.TextBox1.Value End If End If End if
- 1
-
شكرا لاهتمامك hassona229
افهم من حضرتك انه الكود دا انه بيختار التاريخ في التكست بوكس 1
ولو فيه تاريخ هايسجل التاريخ في التكست بوكس التاني
لو محتاج انه يطبق الكلام دا في اكتر من فورم
يعني انا محتاج انه يشوف الفورم الى شغال في الوقت الحالي ويصدر فيه التاريخ
-
السلام عليكم ورحمة الله وبركاته ...عندي برنامج بحتاج فيه ادخل التاريخ في اكتر من فورم
لقيت فورم (كالندر) بيخرج التارخ في تكست بوكس ..محتاج كود يدينى التاريخ في التكست بوكس الي بستدعي منه
فلترة متقدمة و ترحيل بشرط
في منتدى الاكسيل Excel
قام بنشر
كود الفلترة
Dim lngStart As Date
Dim lngEnd As Date
With Sheet1.Range("cer")
الفلترة بين تاريخين .AutoFilter field:=7, Criteria1:=">=" & lngStart, Operator:=xlAnd, Criteria2:="<=" & lngEnd
الفلترة بقيمة مساوية .AutoFilter field:=22, Criteria1:=Me.ComboBox1.Value, Operator:=xlFilterValues
field:=7 رقم العمود الى هايطبق عليه الفلتر
كود النسخ
المراد نسخة Sheet1.Columns("F").Copy
مكان اللصق Sheet2.Range("B7").PasteSpecial Paste:=xlPasteValues
وشوف الموضوع دا