اذهب الي المحتوي
أوفيسنا

حسونة حسين

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,003

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    27

 نوع المحتوي 

مشاركات المكتوبه بواسطه حسونة حسين

    ترحيل واستخراج بيانات

    في منتدى الاكسيل Excel

    قام بنشر

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

    تفضل اخي 

    Option Explicit

Sub Search_Transfer()
    Dim WS As Worksheet, cel As Range, lr As Long, Temp(), I As Long, J As Long, X
    Set WS = ThisWorkbook.Worksheets("Sheet2")
    lr = WS.Cells(Rows.Count, "R").End(xlUp).Row
    For Each cel In WS.Range("R5:R" & lr)
        If cel <> "" Then
            X = Application.Match(cel, WS.Columns(13), 0)
            If Not IsError(X) Then
                I = I + 1
                ReDim Preserve Temp(1 To 15, 1 To I)
                Temp(1, I) = I
                For J = 2 To 15
                    Temp(J, I) = WS.Cells(X, J).Value
                Next J
            End If
        End If
    Next cel
    Temp = Application.Transpose(Temp)
    If I > 0 Then WS.Range("V5").Resize(I, UBound(Temp, 2)).Value2 = Temp
End Sub

     

    • Like 2

    تحيل من اعمدة الى اعمدة يتم تحديدها واختيارها

    في منتدى الاكسيل Excel

    قام بنشر

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

    تفضل 

    Sub Transfer_Non_Adjacent_Columns_Using_Arrays_By_Yasser_Khalil()
    Dim arr As Variant, i As Variant, cr As Variant, j As Long
    arr = Sheets("ورقة1").Range("A1").CurrentRegion.Value
    'الأعمدة المطلوب الترحيل إليها
    cr = Array(5, 8, 11, 15, 17, 20)
    'أرقام الأعمدة المطلوب ترحيلها
    For Each i In Array(1, 2, 3, 4, 5, 6)
        Sheets("ورقة2").Cells(1, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i)
        j = j + 1
    Next i
End Sub

     

    • Like 2
    • Thanks 1

    ترتيب و sort

    في منتدى الاكسيل Excel

    قام بنشر

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

    جرب هذا لعله طلبك 

    Option Explicit

Sub Sort4()
    Dim Ws As Worksheet
    Set Ws = ThisWorkbook.Worksheets("Sheet1")
    With Ws
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.Range("E10:E13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=.Range("F10:F13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=.Range("G10:G13"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=.Range("H10:H13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Ws.Range("E9:H13")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

     

    • Like 2

    تعديل على مديول

    في منتدى الاكسيل Excel

    قام بنشر

    قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
    و بصفة خاصة نؤكدعلى ما يلي
    1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
    2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
    3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
    4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
    5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
    ومخالفة ذلك تعرض الموضوع للحذف

     

    هذا الموضوع مخالف لقوانين المنتدي

    ××××××××

    موضوع مكرر
    ××××××××
    يغلق
    ××××××××

×
×
  • اضف...

Important Information

  I accept