ماكرو للاستبدال

[محمد عدنان]

السلام عليكم و رحمة الله و بركاته 

ما هو ماكرو يقوم بقراءة العدد -1 في العمود d  يقوم بتغير القيمة التي مقابلها من ناجح الى متسرب 

مصنف 22.xlsx

[محمد هشام.]

جرب أخي الفاضل 

مصنف 22.xlsm

[محمد عدنان]

السلام عليكم 

شكرا لك استاذ @Hicham1470  

كل الاحترام و التقدير  انا اريد استبدال الخلية التي تقابل القيمة -1 بعبارة متسرب و ليس راسب  على ان لا تتغير باقي الخلايا

تم تعديل يوليو 21, 2022 بواسطه محمد عدنان

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

ربما

Sub test()
    Dim a
    Dim i&
    With Feuil1
    a = .Range(Range("D11"), .Range("D11").End(xlDown))
    For i = 1 To UBound(a)
        If a(i, 1) = -1 Then a(i, 1) = "متسرب"
    Next
    .Range("D11").Resize(UBound(a)) = a
    End With
End Sub

 

[محمد عدنان]

السلام عليكم  

الاستاذ @محي الدين ابو البشر  انا اريد من الكود فقط ان يستبدل -1 في الخلية المقابلة له  بمتسرب و ليس العمود كامل 

علما بأن العمود الذي به القيم -1 هو  BI و التغير في العمود  BI

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

Sub test()
    Dim a: Dim i&
    With Feuil1
    For i = 11 To Cells(Rows.Count, 4).End(xlUp).Row
        If .Cells(i, 4) = -1 Then .Cells(i, 5) = "متسرب"
    Next
    End With
End Sub

 

[محمد عدنان]

العمود الذي به القيم -1 هو  BI و التغير في العمود  BI 

شو اغير بالكود عشان يشتغل

كل الاحترام لك @محي الدين ابو البشر

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

Sub test()
    Dim a: Dim i&
    With Feuil1
    For i = 11 To Cells(Rows.Count, 4).End(xlUp).Row
        If .Cells(i, 2) = -1 Then .Cells(i, 2) = "متسرب"
    Next
    End With
End Sub

بمعني تريد استبدال -1 ب كلمة متسرب؟

[abdelfattahbadawy]

Sub test3()
    Dim a: Dim i&
    With Sheet1
    For i = 11 To Cells(Rows.Count, 4).End(xlUp).Row
        If .Cells(i, 4) = -1 Then .Cells(i, 3) = "متسرب"
    Next
    End With
End Sub

[محمد عدنان]

السلام عليكم 

الاساتذة @Hicham1470  , و الاستاذ @محي الدين ابو البشر  و الاستاذ @abdelfattahbadawy

كل الشكر و التقدير و جزاكم الله كل خير