هل ممكن ---تعديل على كود---

[ريان أحمد]

السلام عليكم

في المرفق كود يقوم بتحويل البيانات بشروط لكن كيف أدخل قيمة الفراغ والشرح في المرفق

tra don.rar

[طارق محمود]

السلام عليكم

أخي طاهر

ضع في الخلية B2 علامة = فقط

بدون علامات تنصيص ولاأي شيء

فقط

=

[ريان أحمد]

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

لدي إستفسار آخر لو سمحت ماذا عن شرط بدون فراغ

[الـعيدروس]

السلام عليكم

بعد اذن الاستاذ الحبيب طارق

اضفت شرط للكود في حال الخلية فارغة يعتمد القيمة "="

Sub Bouton1_QuandClic()

    Sheets("All2").Select

    Range("s1:bw2800").ClearContents

    Range("G3").Select

    With Feuil1

    If IsEmpty(.[B2]) Then .[B2] = "="

    Sheets("bd").Range("A1:be2800").AdvancedFilter Action:=xlFilterCopy, _

	    CriteriaRange:=Sheets("con").Range("a1:be2"), CopyToRange:=Range("s1:bw2800"), Unique:=False

    .[B2] = Empty

    End With

End Sub