مطلوب : تحويل الاعمده الى صفوف

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

اريد كود يقوم بتحويل الاعمده الى صفوف كما هو موضخ فى المرفق

مصفوفات.rar

[أبو حنــــين]

استعمل هذه الماكرو

Sub pastee()

LR = Range("K" & [K10000].End(xlUp).Row - 1)

With Range("K7:" & Range("K" & [K10000].End(xlUp).Row - 1).Address)

    .Select: .Copy

    End With

Range("A5").PasteSpecial Transpose:=True

Application.CutCopyMode = False

End Sub

[إبراهيم ابوليله]

الاخ ابو حنين

مشكورا على الرد

ولكن لى طلب اخر

ماذا لو اردنا استخراج النتائج فى SHEET2

[أبو حنــــين]

انظر اخي ابراهيم المرفق

نسخ مع تبديل الموضع.rar

[إبراهيم ابوليله]

اخى الفاضل

ابو حنين

اسف على الاطاله

ولكنى اقصد ان يكون الزر موجود فى شيت 2

والبيانات فى شيت 1

والاستخراج يتم فى شيت2

اتمنى ان اكون استطعت توضيح طلبى

[الـعيدروس]

السلام عليكم

بعد اذن الاستاذ الحبيب أبو حنين

تفضل

Public Sub Ali_Tr()

Dim Sh As Worksheet

Dim x, i

Set Sh = ورقة1

x = 1

For i = Sh.Cells(Rows.Count, "K").End(xlUp).Row - 1 To 7 Step -1

With ActiveSheet

.Cells(2, x) = Sh.Cells(i, "K")

End With

x = x + 1

Next

End Sub

[إبراهيم ابوليله]

الاخ عباد

مشكورا على الرد

ولكن ممكن شرح الكود اذا سمحت

على قدر المستطاع

بارك الله فيك

[إبراهيم ابوليله]

اخى الفاضل عباد

لى استفسار وطلب اخر

هذا الكود يقو ياستخراج النتائج من اخر خليه

وبذلك تكون النتائج المستخرجه هى كالتاى

100-200-300-400-وهكذا

وانا اريد استخراج النتائج من اعلى

بحيث تكون

400-300-200-100

وهكذا

[الـعيدروس]

عملت الكود حسب اتجاه البيانات

الموضحه في المرفق تبعك

وهكذا التعديل للعكس

Public Sub Ali_Tr()

Dim Sh As Worksheet

Dim x, i

Set Sh = ورقة1

x = 1

For i = 7 To Sh.Cells(Rows.Count, "K").End(xlUp).Row - 1 ' حلقة من الصف 7 حتى اخر خليه بها بيانات - صف

With ActiveSheet

' x = يمثل الصفوف في الحلقه وهنا حطيناه يمثل أعمده حتى أخر الحلقة

.Cells(2, x) = Sh.Cells(i, "K")

End With

x = x + 1

Next

End Sub

[احمد فضيله]

الاخ العزيز استاذ / ابو نصار

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

[إبراهيم ابوليله]

اخى الكريم

ابو نصار

بارك الله فيك

عمل اكثر من رائع

نسأل الله الا يحرمنا من مشاركاتك