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

اعلان هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :YasserKhalil
عدد النتائج (5992) نتيجة
25-05-2019 09:55 صباحا
icon كود ربط اليست بوكس مع خلايا اكسيل | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 هل تريد إظهار بيانات العمود الثاني فقط كما في الملف أم تريد إظهار كل الأعمدة في الليست بوكس
وإذا كانت إجابتك بإظهار كل الأعمدة ما هو الشكل المتوقع في الليست بوكس في هذه الحالة حيث أن هناك اختلاف في القيم في أكثر من عمود

ويرجى وضع الشرح في الموضوع نفسه وليس داخل الملف فقط
25-05-2019 09:23 صباحا
icon طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟ | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 أحسن الله إليك أخي الغالي علي ومشكور على حسن متابعتك
24-05-2019 05:10 مساء
icon طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟ | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 السلام عليكم
يجب أن تكون البيانات متطابقة لكي تحصل على ما تريد
عموماً جرب الكود التالي عله يفي بالمطلوب إن شاء العلي القدير
Option Explicit

Dim ws As Worksheet

Sub Test()
Dim r1 As Range, r2 As Range

Application.ScreenUpdating = False
Set ws = ThisWorkbook.Worksheets(1)
Set r1 = ws.Range("A5:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
Set r2 = ws.Range("D5:D" & ws.Cells(Rows.Count, 4).End(xlUp).Row)

r2.Resize(, 2).Replace "عبدال", "عبد ال", xlPart

r1.Offset(, 8).Value = Evaluate(r1.Address & "&"" - ""&" & r1.Offset(, 1).Address)
r2.Offset(, 3).Value = Evaluate(r2.Address & "&"" - ""&" & r2.Offset(, 1).Address)
ws.Range("G4").Value = "Helper"

With ws.Sort
.SortFields.Clear
.SortFields.Add ws.Range("G4"), CustomOrder:=KeyRange
.Header = xlYes
.SetRange ws.Range("D4").CurrentRegion
.Apply
.SortFields.Clear
End With

ws.Columns("G:I").ClearContents
Application.ScreenUpdating = True
End Sub

Function KeyRange() As String
Dim a, i As Integer

With ws
a = .Range("I5:I" & .Cells(Rows.Count, "I").End(xlUp).Row + 1).Value

For i = LBound(a, 1) To UBound(a, 1)
KeyRange = KeyRange & IIf(KeyRange <> "", ",", "") & a(i, 1)
Next i
End With
End Function
24-05-2019 08:09 صباحا
icon تعديل كود الترحيل | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 جزاكم الله خيراً إخواني على تفاعلكم المثمر
وكل عام وأنتم بخير
23-05-2019 10:12 مساء
icon تعديل كود الترحيل | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك أخي الحبيب سليم وجزيت خيراً
23-05-2019 03:24 مساء
icon تعديل كود الترحيل | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 يتم الترحيل معي لآخر عمود بدون مشاكل .. هلا أرفقت صورة بالمشكلة؟
23-05-2019 02:22 مساء
icon تعديل كود الترحيل | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 راجع الكود وتأكد من آخر عمود يتم الترحيل منه
23-05-2019 01:01 مساء
icon تعديل كود الترحيل | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim sh As Worksheet
Dim m As Long
Dim r As Long

Application.ScreenUpdating = False
Set ws = ThisWorkbook.Worksheets(1)
Set sh = ThisWorkbook.Worksheets(2)
m = sh.Cells(Rows.Count, 1).End(xlUp).Row
If sh.Cells(m, 1) <> "" Then m = m + 1

r = ws.Cells(10, 1).End(xlUp).Row
If r < 3 Then Exit Sub

ws.Range("A3:E" & r).Copy sh.Range("A" & m)
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
23-05-2019 12:43 مساء
icon برنامج مكابس بلوك | الكاتب :YasserKhalil |المنتدى: تطبيقات محاسبيه بالاكسيل
 لا حول ولا قوة إلا بالله ...
23-05-2019 12:41 مساء
icon شرح أنواع المقبوضات - حسام خطاب | الكاتب :YasserKhalil |المنتدى: منتدى المحاسبة
 أخي الكريم أحمد
هل حقاً استفدت من كل هذه الموضوعات التي قمت بالرد فيها في هذا الوقت الوجيز؟!!
23-05-2019 12:39 مساء
icon كتاب رائع فى شرح المحاسبه الماليه للمبتدئين | الكاتب :YasserKhalil |المنتدى: منتدى المحاسبة
 ردود من أجل إكثار عدد الردود أمر غير مقبول
21-05-2019 08:23 صباحا
icon البحث من خلال الكومبوكس | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 بارك الله فيكم
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

الصفحة 1 من 500 < 1 2 3 4 500 > الأخيرة »





الساعة الآن 11:01 مساء

أعلن هنا
أعلن هنا
أعلن هنا