حمدي قام بنشر نوفمبر 26, 2021 مشاركة قام بنشر نوفمبر 26, 2021 السلام عليكم و رحمة الله و بركاته في البداية أتقدم بخالص الشكر لكل القائمين على الموقع و كل الأعضاء المحترمين اللذين يقدمون يد العون لكل محتاج ثانيا أنا بحثت كثيرا في الموقع حتى لا اتعب السادة الأعضاء و لم أوفق لدي كود بحث لا يعمل معي بالشكل الصحيح أرجو منكم المساعدة و جزاكم الله خيرا كود بجث.xlsx رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر نوفمبر 27, 2021 مشاركة قام بنشر نوفمبر 27, 2021 وعليكم السلام ورحمة الله وبركاته الملف الخاص بك ليس به مشاكل 1 رابط هذا التعليق شارك More sharing options...
حمدي قام بنشر نوفمبر 27, 2021 الكاتب مشاركة قام بنشر نوفمبر 27, 2021 اشكرك استاذي الفاضل على الاهتمام و الرد لكن عند اختيار شهر 10 يدخل معاهكم شهر 11 و العكس كود بجث.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر نوفمبر 27, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 27, 2021 Private Sub ComboBox1_Change() Const iCols As Integer = 11 Dim a(1 To 1000, 1 To iCols), b(), rng As Range, c As Range, i As Long, ii As Long With Sheets(1) Set rng = .Range("B3:M" & .Cells(Rows.Count, "B").End(xlUp).Row) rng.AutoFilter Field:=12, Criteria1:=ComboBox1.Value On Error Resume Next Set rng = .Range("B3").CurrentRegion.Columns(1).SpecialCells(xlCellTypeVisible) On Error GoTo 0 End With If Not rng Is Nothing Then For Each c In rng i = i + 1 For ii = LBound(a, 2) To UBound(a, 2) a(i, ii) = c.Offset(, ii - 1).Value Next ii Next c b = Application.Transpose(a) i = Application.Min(UBound(a, 1), i) ReDim Preserve b(1 To iCols, 1 To i) b = Application.Transpose(b) ListBox1.List = b End If End Sub 2 رابط هذا التعليق شارك More sharing options...
حمدي قام بنشر نوفمبر 28, 2021 الكاتب مشاركة قام بنشر نوفمبر 28, 2021 جزاك الله خيرا استاذي الفاضل و بارك الله فيك و ألف شكر كود جميل و فعال جعل الله ردك في ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.