الناموس في شرح القاموس

[خالد الرشيدى]

السلام عليكم

استاذنا القدير / ياسر خليل

موضوع وطريقه عرض قمة فى التميز .. زادك الله علماً ورفعه .. وجزاك الله خيراً اخى الفاضل

تقبل خالص تقديرى لشخصكم المحترم

[محي الدين ابو البشر]

39 دقائق مضت, ياسر خليل أبو البراء said:

أخي الفاضل محي الدين أبو البشر

بارك الله فيك على مرورك العطر بالموضوع

إليك التعديل البسيط ..تم وضع جملة IF لاختبار إذا ما كانت القيمة فراغ ام لا ..قبل تخزينها في القاموس

Sub GetUniqueValues()
    Dim myData As Variant, Temp As Variant
    Dim Obj As Object, I As Long
    
    Set Obj = CreateObject("Scripting.Dictionary")
    
    myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    
    For I = 1 To UBound(myData)
        If Not IsEmpty(myData(I, 1)) Then
            Obj(myData(I, 1) & "") = ""
        End If
    Next I
    
    Temp = Obj.Keys
    
    Range("E1").Resize(Obj.Count, 1) = Application.Transpose(Temp)
End Sub

تقبل تحياتي

بارك الله بك استاذي العزيز

[ياسر خليل أبو البراء]

أخي الحبيب خالد الرشيدي

بارك الله فيك وجزيت خيراً على مرورك العطر بالموضوع .. وجزيت خيراً بمثل ما دعوت لي وزيادة

وننتظر منك موضوعات مستقلة .. لأن لك باع طويل لا يعرفه الكثيرون .. ننتظر منك إبداعات جديدة

 

أخي العزيز محي الدين

بارك الله فيك ومشكور على مرورك العطر بالموضوع وأرجو أن تكون قد استقدت منه إن شاء الله

 

تقبلوا وافر تقديري واحترامي

[احمد العدوى]

السلام عليكم

أخى الحبيب / ياسر

ماشاء الله

أفاض الله عليك من علمه وهيأ لك سبله وأضاءها لك

نحن وأنت والمسلمين

ودائماً

[ياسر خليل أبو البراء]

وعليكم السلام أخي الفاضل أحمد العدوي

بارك الله فيك وجزيت خيراً على دعائك الطيب ومرورك العطر بالموضوع

تقبل تحياتي