أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





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

السلام عليكم ...توقف عمل كود الترحيل وكذلك توقف كود طباعه الجزء المحدد في حال كانت الصفحة محمية. [code]PGJyIC8+DQpTdWIgU ..



02-04-2020 04:02 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

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

Sub Print_Selection()
Dim Cel As Range
Dim Rng As Range
Dim Del_Rng As Range
ScreenOff
Return_Sh = ActiveSheet.Name
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.UsedRange.Borders.LineStyle = xlNone
'===============================================================
Set Rng = Selection
Rng.Interior.ColorIndex = 4
Set SourceRange = ActiveSheet.Cells
Set destrange = ActiveSheet.Cells
SourceRange.Copy
destrange.PasteSpecial (xlValues)
Application.CutCopyMode = False
'===============================================================
For Each Cel In ActiveSheet.UsedRange
    If Cel.Interior.ColorIndex <> 4 Then
        If Del_Rng Is Nothing Then
            Set Del_Rng = Cel
        Else
            Set Del_Rng = Application.Union(Del_Rng, Cel)
        End If
    End If
Next
Del_Rng = ""
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
'===============================================================
For Each shp In ActiveSheet.Shapes
        shp.Delete
Next shp
'===============================================================
ActiveSheet.PrintOut
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets(Return_Sh).Select
'===============================================================
ScreenOn
Set Cel = Nothing
Set Del_Rng = Nothing
End Sub

خطا في مود الترحيل 

Sub ترحيل()
Dim lastRow As Integer, WS As Worksheet, SH As Worksheet
Set WS = ThisWorkbook.Worksheets("قائمة"): Set SH = ThisWorkbook.Worksheets("اسماء المراجعين")
lastRow = WS.Cells(Rows.Count, 2).End(xlUp).Row
With SH: lr = SH.Cells(Rows.Count, 2).End(xlUp).Row + 1
    With .Range("B" & lr): .NumberFormat = "[$-,101]yyyy/mm/dd;@": .Value = Date: .Cells(, 1).Resize(ColumnSize:=4).Merge
    With .Cells(, 1).Resize(ColumnSize:=4): .Borders.Value = 1: .Borders.Weight = xlMedium: .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter: .Font.Bold = True: .Font.ColorIndex = xlAutomatic: .Interior.ThemeColor = xlThemeColorDark1: .Interior.TintAndShade = -0.349986266670736: End With: End With
End With
WS.Range("b2:e" & lastRow).Copy
SH.Range("b" & lr + 1).PasteSpecial Paste:=xlPasteValues
WS.Range("b2:b" & Rows.Count).ClearContents
MsgBox "لقد تم ترحيل البيانات بنجاح"
End Sub

 
 
  244526709_.cc63e2ac93a16a6bb44fbd00394fe38d.png   تحميل png 244526709_.cc63e2ac93a16a6bb44fbd00394fe38d.png مرات التحميل :(1)
الحجم :(60.377) KB
  970563545_.1e42a70c2b9162fafcd1a91188dac3b1.png   تحميل png 970563545_.1e42a70c2b9162fafcd1a91188dac3b1.png مرات التحميل :(0)
الحجم :(69.692) KB
 
  ترحيل وطباعة المحدد.xls   تحميل xls مرات التحميل :(3)
الحجم :(482.304) KB


02-04-2020 04:11 مساء
مشاهدة مشاركة منفردة [1]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 480
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif توقف عمل كود الترحيل وكذلك توقف كود طباعه الجزء المحدد في حال كانت الصفحة محمية




الكلمات الدلالية
السلام ، عليكم ، ...توقف ، الترحيل ، وكذلك ، توقف ، طباعه ، الجزء ، المحدد ، كانت ، الصفحة ، محمية. ،


 










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

الساعة الآن 04:58 صباحا