السلام عليكم ممكن شرط هذا الجزء من الكود
With Sheets(v1)
With .Cells
.ReadingOrder = xlRTL
.Font.Name = "Calibri"
.Font.Size = 11
.HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter
.RowHeight = 19
.ColumnWidth = 9
End With
وشكرا
دى شيت قيد يومية ارغب فى ترحيلة الجزء التفصيلى بشيت منفصل بحيث الكود يعمل بترحيل الجزء الكامل بشيت كما هو والتفصيلى بشيت منفصل مرفق الملف
وشكرا ترحيل قيد يومية.xls
السلام عليكم
لدى شيت قيد يومية ارغب فى ترحيلة الجزء التفصيلى بشيت منفصل بحيث الكود يعمل بترحيل الجزء الكامل بشيت كما هو والتفصيلى بشيت منفصل مرفق الملف
وشكرا ترحيل قيد يومية.xls