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

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


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





تعديل على ترحيل البيانات

مرحبا .. عدد تكرار القيم في عمود بشرط بحيث يتم ترحيل نتيجة البحث وليس الكلمات المختصرة في مربع البحث باللون الأصفر من sh ..


موضوع مغلق


14-06-2021 04:54 مساء
saherr
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-06-2021
رقم العضوية : 22491
المشاركات : 13
الجنس : أنثى
تاريخ الميلاد : 20-4-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 25
 offline 

مرحبا .. عدد تكرار القيم في عمود بشرط
بحيث يتم ترحيل نتيجة البحث وليس الكلمات المختصرة في مربع البحث باللون الأصفر
من sheet1   الى sheet2 ... طبعا زر الترحيل هو (PRINT) , شاكرين حسن تعاونكم

 
 
Hello.. the number of repetitions of values ​​in a column with a condition
 
 
 
  BookingTABLERErec.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(94.886) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim r As Range, lr As Long
    With Sheet1
        Application.Goto .Range("A6")
        ActiveCell.Offset(1, 0).Select
        Do Until ActiveCell.EntireRow.Hidden = False
            ActiveCell.Offset(1, 0).Select
        Loop
        lr = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row + 1
        For Each r In Intersect(Selection.EntireColumn, .AutoFilter.Range.SpecialCells(12))
            Sheet2.Cells(lr, 2).Value = r.Value
            lr = lr + 1
        Next r
    End With
    MsgBox "Done", 64
End Sub
عرض الإجابة




14-06-2021 07:54 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل على ترحيل البيانات
السلام عليكم أخي الكريم
لا يوجد تفاصيل كافية للمشكلة .. ما الأعمدة المراد ترحيلها بالضبط لأن الأعمدة غير متوافقة سوى في عمود واحد وهو المنطقة وأمر آخر يجب إزالة الفلترة في الورقة التي سيتم الترحيل إليها لكي لا تحدث مشاكل في الترحيل.

14-06-2021 07:59 مساء
مشاهدة مشاركة منفردة [2]
saherr
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-06-2021
رقم العضوية : 22491
المشاركات : 13
الجنس : أنثى
تاريخ الميلاد : 20-4-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 25
 offline 
look/images/icons/i1.gif تعديل على ترحيل البيانات
شكرا أخ ياسر على سرعد الرد .. العامود المراد ترحيله فقط عامود A  المسمى بالمنطقة
عندما ابحث عن منطقة باحرف قليلة معينة تظهر اسم المنطقة المخزنة بالكامل 
هذا الذي اريد ترحيله (نتيجة البحث التي تظهر اسم المنطقة بالكامل والمخزنة بالجدول مسبقا) اريد ترحيلها الى اي مكان في ورقة أخرى
كذلك تم ازالة الفلترة في الورقة التي سيتم الترحيل لها مرفق الملف بعد ازالة الفلترة
 
 
  BookingTABLERErec.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(98.698) KB


14-06-2021 08:28 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل على ترحيل البيانات
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim r As Range, lr As Long
    With Sheet1
        Application.Goto .Range("A6")
        ActiveCell.Offset(1, 0).Select
        Do Until ActiveCell.EntireRow.Hidden = False
            ActiveCell.Offset(1, 0).Select
        Loop
        lr = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row + 1
        For Each r In Intersect(Selection.EntireColumn, .AutoFilter.Range.SpecialCells(12))
            Sheet2.Cells(lr, 2).Value = r.Value
            lr = lr + 1
        Next r
    End With
    MsgBox "Done", 64
End Sub

14-06-2021 08:50 مساء
مشاهدة مشاركة منفردة [4]
saherr
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-06-2021
رقم العضوية : 22491
المشاركات : 13
الجنس : أنثى
تاريخ الميلاد : 20-4-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 25
 offline 
look/images/icons/i1.gif تعديل على ترحيل البيانات
الله يجزيك كل خير أخ ياسر هذا الهدف اللي بدي اياه 
وزبطت الأمور بارك الله فيك
 
May God reward you with all the best brother Yasser, this is the goal that I want
 

14-06-2021 09:05 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل على ترحيل البيانات
بارك الله فيك أخي الكريم 
والحمد لله الذي بنعمته تتم الصالحات



الكلمات الدلالية
تعديل ، ترحيل ، البيانات ،


 










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

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