محمد عدنان قام بنشر يوليو 20, 2022 مشاركة قام بنشر يوليو 20, 2022 السلام عليكم و رحمة الله و بركاته ما هو ماكرو يقوم بقراءة العدد -1 في العمود d يقوم بتغير القيمة التي مقابلها من ناجح الى متسرب مصنف 22.xlsx رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يوليو 21, 2022 مشاركة قام بنشر يوليو 21, 2022 جرب أخي الفاضل مصنف 22.xlsm 1 رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر يوليو 21, 2022 الكاتب مشاركة قام بنشر يوليو 21, 2022 (معدل) السلام عليكم شكرا لك استاذ @Hicham1470 كل الاحترام و التقدير انا اريد استبدال الخلية التي تقابل القيمة -1 بعبارة متسرب و ليس راسب على ان لا تتغير باقي الخلايا تم تعديل يوليو 21, 2022 بواسطه محمد عدنان رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر يوليو 21, 2022 مشاركة قام بنشر يوليو 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 رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر يوليو 21, 2022 الكاتب مشاركة قام بنشر يوليو 21, 2022 السلام عليكم الاستاذ @محي الدين ابو البشر انا اريد من الكود فقط ان يستبدل -1 في الخلية المقابلة له بمتسرب و ليس العمود كامل علما بأن العمود الذي به القيم -1 هو BI و التغير في العمود BI رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر يوليو 21, 2022 مشاركة قام بنشر يوليو 21, 2022 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 رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر يوليو 21, 2022 الكاتب مشاركة قام بنشر يوليو 21, 2022 العمود الذي به القيم -1 هو BI و التغير في العمود BI شو اغير بالكود عشان يشتغل كل الاحترام لك @محي الدين ابو البشر رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر يوليو 21, 2022 أفضل إجابة مشاركة قام بنشر يوليو 21, 2022 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 ب كلمة متسرب؟ رابط هذا التعليق شارك More sharing options...
abdelfattahbadawy قام بنشر يوليو 21, 2022 مشاركة قام بنشر يوليو 21, 2022 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 رابط هذا التعليق شارك More sharing options...
محمد عدنان قام بنشر يوليو 21, 2022 الكاتب مشاركة قام بنشر يوليو 21, 2022 السلام عليكم الاساتذة @Hicham1470 , و الاستاذ @محي الدين ابو البشر و الاستاذ @abdelfattahbadawy كل الشكر و التقدير و جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها