portegy

شكرا على ردك

تحليلى .... ان بيحصل اخطاء اثناء الادخال ولازم نحلل جميع عمليات الادخال

وتعديل على كود  لانشاء اسم شيت اكبر من 5

Len(my_name) > 5 Then

وجزاك الله خير على متابعتك

شكرا على ردك

لما بسيب اسم الشيت فاضى يطلعلى ايرور فى 

 ActiveSheet.Name = my_name

ولو كتبت اسم شيت جديد مابينشأش حاجة

On 5/30/2019 at 10:09 AM, سليم حاصبيا said:

جرب هذا الماكرو

Sub FIL_combo()
Dim sh As Worksheet
Dim obj As Object
Set obj = _
CreateObject("System.Collections.Arraylist")
 For Each sh In Worksheets
    If sh.Name <> "Main" Then
      With sh.Range("b2")
        obj.Add .Value & " " _
        & .Offset(, 1).Value
      End With
    End If
  Next
  Sheets("Main").ComboBox1.List = _
  Application.Transpose(obj.toarray)
obj.Clear: Set obj = Nothing
End Sub
Rem===============>> Salim

Private Sub ComboBox1_DropButtonClick()
 FIL_combo
End Sub

الملف مرفق

Masry_SALIM.xlsm 22.98 kB · 9 downloads

ممكن نعملة زرار هايبر لينك

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

محتاج المساعدة فى انتاج شيت باسم جديد غير متكرر

الكود التالى بينتج شيت جديد ويكون الاسم اكبر من 5 حروف

Sub CreateSheets()

Dim ws1 As Worksheet
Dim myValue As Variant
    myValue = InputBox("insert sheet name", "Create sheet")
If Len(myValue) > 5 Then
    Set ws1 = Worksheets("test")
    ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
    ActiveSheet.Name = myValue

Else
    MsgBox ("Not valid name")

End If
End Sub

وجزاكم الله كل خير

بسم الله ماشاء الله كتر الف الف خيركم وجزاكم الله كل خير عمل رائع ا\سليم و ا\على

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

رمضان كريم عليكم جميعا وتقبل الله اعمالكم 

محتاج مساعدة فى تجميع(وضعهم بجوا بعض) خليتين من كل شيت فى قائمة منسدلة واحدة 

مثال :

Sheet1

2 cells B2,C3

Sheet2

2 cells B2,C3

طبعا كل ما اضيف شيت هياخد منهم القيمتين ويضعهم فى القائمة المنسدلة

وجزاكم الله خيرا

Masry.xlsx

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

ارجو المساعدة فى عمل كود VBA يقوم بترحيل (Row إجمالى اليومية  )  الخاص بكل يومية بدءً من D:BL من شيت الى الشيت المجمع TDx (حيث x يطلق على رقم شيت بعد TD)

بناءً على شرطين 

1- التاريخ فى العمود A3 : A317 فى الشيت الاول يتطابق مع التاريخ فى العمود A3 : A280 فى الشيت TDx (حيث x يطلق على رقم شيت بعد TD)

2- الحرف فى اسم الشيت المراد الترحيل منه مثل (S7) يتطابق مع الحرف فى العمود B فى شيت TDx (حيث x يطلق على رقم شيت بعد TD)

الملف فى المرفقات جزاكم الله خيرا للمساعدة 

FD-Test.rar

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

ارجو المساعدة فى عمل كود VBA يقوم بترحيل (Row إجمالى اليومية  )  الخاص بكل يومية بدءً من D:BL من شيت الى الشيت المجمع TDx (حيث x يطلق على رقم شيت بعد TD)

بناءً على شرطين 

1- التاريخ فى العمود A3 فى الشيت الاول يتطابق مع التاريخ فى العمود A3 فى الشيت TDx (حيث x يطلق على رقم شيت بعد TD)

2- الحرف فى اسم الشيت المراد الترحيل منه مثل (S7) يتطابق مع الحرف فى العمود B فى شيت TDx (حيث x يطلق على رقم شيت بعد TD)

الملف فى المرفقات جزاكم الله خيرا للمساعدة 

ايه يا جماعة مافيش حد يساعد

ايه يا جماعة مافيش حد يساعد

Database.zip

السلام عليكم 

جزاك الله خير على العمل الجميل دة ... ولكن لايوجد برانج التى كنت قمت بصنعها لانها حذفت .... لذا يرجى اعادة رفع اخر برنامج لو تكرمت 

السلام عليكم

إنت عشان تطبعها على A3 فدة صعب جدا بس ممكن تتطبع على Plotter وتبقى حلوة جدا وعشان تطبعها لازم تكون موصل ومعرف طابعة عندك عشان الاعدادات وانا لو عرفت اعملها قريبا هرفعهالك