رجاء تعديل خطأ في جدول أنشطة

[Alaa Ammar New]

السلام عليكم ورحمة الله وبركاته

@محمد هشام. 

@حسونة حسين

أستاذي القدير - أخواتي وأساتذتي المحترمين

ملف الأنشطة عندي في أول شيت به (sheet1) .زرار التصدير إلى pdf يعمل ولكن ينسخ الدول الذي في شيت (الانشطة) وليس sheet1 فأرجو التكؤم مشكورين بجعله يصدر الجدول في sheet1 في نفس مجلده كما هو الحال في زار التصدير الى pdf الموجود في شيت الانشطة

كما أرجو منكم جعل الجدول الموجود في sheet1 يبقى موجود في شيت الانشطة لان كل ما ازود حاجة في aheet1 لازم ازود نفس الحاجة في الجدول الموجود في شيت الاشطة  فهل ممكن جعل الجدول في الانشطة يأخذ كل شيء من sheet1 

ومعلش في مشكلة اخر بتقابلتي - لو حبيت ازود صف في النص مثلا لازم اعيد ترتيب الأرقام من هذا الصف الى آخر الجدول .. فهل هناك حل بحيث لما اضيف صف في النص يعيد ترتيب الأرقام تلقائيا

ولكم مني جزيل الشكر

2024 final.xlsm

تم تعديل يونيو 9 بواسطه Alaa Ammar New

[محمد هشام.]

10 ساعات مضت, Alaa Ammar New said:

كما أرجو منكم جعل الجدول الموجود في sheet1 يبقى موجود في شيت الانشطة لان كل ما ازود حاجة في aheet1 لازم ازود نفس الحاجة في الجدول الموجود في شيت الاشطة  فهل ممكن جعل الجدول في الانشطة يأخذ كل شيء من sheet1 

وعليكم السلام ورحمة الله تعالى وبركاته 

المفروض اخي @Alaa Ammar New   ورقة الاشطة  خاصة بفلترة البيانات بين تاريخين يتم تحديدهم مسبقا  في الخلية   D2  و F2

بمعنى انت من تحدد البيانات الظاهرة عليها .في حالة الرغبة بجلب جميع البيانات يمكنك فقط تحديد اول واخر تاريخ لديك على Sheet1 

10 ساعات مضت, Alaa Ammar New said:

ومعلش في مشكلة اخر بتقابلتي - لو حبيت ازود صف في النص مثلا لازم اعيد ترتيب الأرقام من هذا الصف الى آخر الجدول .. فهل هناك حل بحيث لما اضيف صف في النص يعيد ترتيب الأرقام تلقائيا

يمكنك اظافة الكود التالي في حدث Sheet1 ليتم تحديث التسلسل تلقائيا .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sht As Worksheet: Set sht = Sheets("Sheet1")
If Target.Column = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
sht.Range("A9:A" & sht.Rows.Count).ClearContents
 sht.[A9].Value = 1
  With sht.Range("A9:A" & sht.Cells(sht.Rows.Count, "C").End(xlUp).Row)
        .Formula = "=Row() - 8"
        .Value = .Value
   End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub

 

10 ساعات مضت, Alaa Ammar New said:

ملف الأنشطة عندي في أول شيت به (sheet1) .زرار التصدير إلى pdf يعمل ولكن ينسخ الدول الذي في شيت (الانشطة) وليس sheet1 فأرجو التكؤم مشكورين بجعله يصدر الجدول في sheet1 في نفس مجلده كما هو الحال في زار التصدير الى pdf الموجود في شيت الانشطة

Dim desWS As Worksheet: Set desWS = Sheets("Sheet1")
Dim dest As Worksheet: Set dest = printing

Application.ScreenUpdating = False
If Sheets("Sheet1").TextBox1.Text = "" Then: MsgBox "يرجى اظافة معيار الفلترة": Exit Sub
rng = Application.WorksheetFunction.Subtotal(3, desWS.Range("L9:L10000"))
If rng = 0 Then: MsgBox "لا توجد بيانات للحفظ", _
     vbInformation, "تم إلغاء الإجراء": Exit Sub
 dest.Visible = xlSheetVisible
Set a = desWS.Range("A7", desWS.Range("A" & desWS.Rows.Count).End(xlUp))
  For r = 1 To 12
    Set a = Union(a, Intersect(a.EntireRow, a.Columns(r)))
  Next r
 Msg = MsgBox("؟" & " " & "PDF " & ":" & " تصدير التقرير بصيغة", vbYesNo, dest.Name)
      If Msg <> vbYes Then Exit Sub
  dest.Range("A2:L" & dest.Rows.Count).Clear
  a.Copy Destination:=dest.Range("A6")
  dest.Range("a8").Value = 1
  With dest.Range("a8:a" & dest.Cells(dest.Rows.Count, "B").End(xlUp).Row)
        .Formula = "=Row() - 7"
        .Value = .Value
   End With
  'حفظ PDF
  Save_As_PDF2
  On Error Resume Next
   desWS.AutoFilter = False
   Sheets("Sheet1").TextBox1.Text = ""
Application.ScreenUpdating = True

 

2024 final.xlsm

[Alaa Ammar New]

السلام عليكم أخي محمد هشام @محمد هشام.

كل سنة وحضرتك طيب وبخير يارب

حضرتك في شيت الأنشطة لما احتاج اعمل فلترة انا بحتاج ايضا نفس الجدول اللي في sheet1 فانا برضه بزود في الجدول في sheet1 مش بزيد في جدول الاشطة - انا محتاج ده يبقى مراية لده أزود في ده يزيد في الآخر وامسح في ده يمسح في الآخر ... وفي فكرة تانية هل ممكن بدل ده كله أدمج وظيفة الشيتين sheet1 وأنشطة في شيت واحد يكون فيه الفلترة بين تاريخين والبحث بالمفتاح التصدير الى pdf  وورد ,excel ومعلش يكون التصدير بدون الصفوف الفارغة اللي تحت.

ومعلش لما بصدر الجدول الى وورد بيظهر التاريخ معكوس فهل من طريقة لعدله؟

والله انا مزهقك أنا عارف بس والله ربنا يجعله في ميزان حسناتك ويجعل الخير بين إيديك يا رب

تم تعديل يونيو 10 بواسطه Alaa Ammar New

[محمد هشام.]

 

منذ ساعه, Alaa Ammar New said:

في فكرة تانية هل ممكن بدل ده كله أدمج وظيفة الشيتين sheet1 وأنشطة في شيت واحد يكون فيه الفلترة بين تاريخين والبحث بالمفتاح التصدير الى pdf  وورد ,excel ومعلش يكون التصدير بدون الصفوف الفارغة اللي تحت.

 صراحة لم أستوعب هذا لأنه كما سبق الذكر ورقة الأنشطة خاصة بالفلترة وبياناتها يتم جلبها  بشرط التواريخ المحددة !!!! ليس لي فكرة عن ما تحاول فعله . 

منذ ساعه, Alaa Ammar New said:

في فكرة تانية هل ممكن بدل ده كله أدمج وظيفة الشيتين sheet1 وأنشطة في شيت واحد يكون فيه الفلترة بين تاريخين والبحث بالمفتاح التصدير الى pdf  وورد ,excel ومعلش يكون التصدير بدون الصفوف الفارغة اللي تحت.

هذا يتطلب إعادة تعديل جميع الأكواد السابقة  شخصيا ليس لي الوقت الكافي لفعل هذا خاصة عند الإشتغال على نفس الملف  أكثر من مرة

اخي الفاضل لقد تم الرد على طلبك  بخصوص تعديل خطأ الكود   ربما انت في حاجة لفتح موضوع جديد بطلباتك الجديدة  ربما يستطيع أحد الإخوة مساعدتك

بالتوفيق

 

تم تعديل يونيو 10 بواسطه محمد هشام.

[Alaa Ammar New]

السلام عليكم ورحمة الله وبركاته

أستاذي الفاضل محمد هشام @محمد هشام. أنا آسف جدا جدا سامحني في الله انا فهمت غلط فعلا وحضرتك عندك كل الحق وانا فهمت دلوقتي اللي حضرتك بتقول عليه في جدول الفلترة فأنا آسف مرة تانية أرجوك سامحني حصل عندي لبث .

وبخصوص تظبيط التاريخ عند تصديره للوورد انا هافتح بيه موضوع جديدجزاك الله كل خير يارب وأنا آسف مرة تانية جدا