كيف استطيع ان اجمع على رقم خلية (في معادلة)

[Amro osama]

السلام عليكم 

 

لدي جدول أفقي به بيانات و اريد نقل بياناته الى جدول رأسي بمعادلات ارتباط

مع العلم ان البيانات مدخلة بعمود و العمود التالي له فارغ

مرفق ملف لتوضيح المطلوب

 

و شكرا جزيلا

أريد معادلة لاستكمال بيانات الجدول الرأسي من الأفقي مع مراعاة تخطي الفراغات.rar

تم تعديل يونيو 17, 2017 بواسطه Amro osama

[ابراهيم الحداد]

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

تفضل اخى الكريم

 

أريد معادلة لاستكمال بيانات الجدول الرأسي من الأفقي مع مراعاة تخطي الفراغات.rar

[Amro osama]

4 hours ago, زيزو العجوز said:

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

تفضل اخى الكريم

 

أريد معادلة لاستكمال بيانات الجدول الرأسي من الأفقي مع مراعاة تخطي الفراغات.rar

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

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

 فعلا جربت المعادلات و اشتغل معايا تمام

بس المشكلة رفعلي حجم الملف بتاعي من نص ميجا ل 15 ميجا

هل في حل علشان اقلل حجم الملف؟

و شكراً

تم تعديل يونيو 18, 2017 بواسطه Amro osama

[سليم حاصبيا]

اذا كان حجم البيانات كبيراً يمنك استعمال الماكرو 

Option Explicit
Sub Transpose_range()
If ActiveSheet.Name <> "Salim" Then Exit Sub
Dim my_rg As Range
Dim Ro, Col As Integer
Range("b9:c100000").Clear
Ro = 3
Col = ActiveSheet.Cells(3, Columns.Count).End(1).Column

    With Cells(9, 2).Resize(Col - 1, 2)
        .Value = Application.Transpose(Range(Cells(Ro, 2), Cells(4, Col)))
        .Borders.LineStyle = 1
        .SpecialCells(4).EntireRow.Delete
    End With
End Sub

الملف مرفق

الورقة Salim

 

Transpose_Data.rar

[Amro osama]

On 6/18/2017 at 6:08 AM, سليم حاصبيا said:

اذا كان حجم البيانات كبيراً يمنك استعمال الماكرو 

Option Explicit
Sub Transpose_range()
If ActiveSheet.Name <> "Salim" Then Exit Sub
Dim my_rg As Range
Dim Ro, Col As Integer
Range("b9:c100000").Clear
Ro = 3
Col = ActiveSheet.Cells(3, Columns.Count).End(1).Column

    With Cells(9, 2).Resize(Col - 1, 2)
        .Value = Application.Transpose(Range(Cells(Ro, 2), Cells(4, Col)))
        .Borders.LineStyle = 1
        .SpecialCells(4).EntireRow.Delete
    End With
End Sub

الملف مرفق

الورقة Salim

 

Transpose_Data.rar

ممتاذ :)

شكرا جزيلا على مجهودك 

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