البحث في الموقع
Showing results for tags 'بسم'.
تم العثور علي 3 نتائج
-
التعديل على الكود بحيث يبقي الملف الاساسي مفتوح وغلق تلقائي للنسخه المستحدثة الملف مرفق مع الشرح وهذه نسخه عن الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As String Dim Destwb As Workbook Dim path As String path = "D:\hhh\" If Target.Column = 3 Then lr = Sheets(1).Range("c" & Rows.Count).End(xlUp).Rows.Value End If With Application .ScreenUpdating = False .EnableEvents = False End With Set Destwb = ActiveWorkbook With Destwb .SaveAs Filename:=path & lr, FileFormat:=52 .Close SaveChanges:=False End With MsgBox "You can find the new file in " & lr With Application .ScreenUpdating = True .EnableEvents = True End With End Sub نرجو من الاساتذه المشاركه مع خالص تحياتي
-
التعديل على الكود بحيث يبقي الملف الاساسي مفتوح وغلق تلقائي للنسخه المستحدثة الملف مرفق مع الشرح وهذه نسخه عن الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As String Dim Destwb As Workbook Dim path As String path = "D:\hhh\" If Target.Column = 3 Then lr = Sheets(1).Range("c" & Rows.Count).End(xlUp).Rows.Value End If With Application .ScreenUpdating = False .EnableEvents = False End With Set Destwb = ActiveWorkbook With Destwb .SaveAs Filename:=path & lr, FileFormat:=52 .Close SaveChanges:=False End With MsgBox "You can find the new file in " & lr With Application .ScreenUpdating = True .EnableEvents = True End With End Sub نرجو من الاساتذه المشاركه مع خالص تحياتي SAVEASFILE.rar
-
اخواتي الاساتذه بعد البحث وجدت الملف المرفق اريد إضافة كود لتغير اتجاه الكوماندوز بار من اليمين الى اليسار الملف مرفق مع صور أتمنى المساعدة حتى يستفيد منه جميع الأعضاء اذكرنا بالخير MenuMaker_UFrmAPI.rar
