برجاء المساعدة

[Fady EL-Shafey]

بعد اذنكم انا عملت المعادلة دى بس شغالة ع حقل n2 فقط

عاوزها تشتغل علي عامود n كامل

If Range("b2") <= 9 Then

    Range("n2") = ([e2] & "0" & [C2] & "0" & "0" & "0" & "0" & "0" & [b2])

    ElseIf Range("b2") <= 99 Then Range("n2") = ([e2] & "0" & [C2] & "0" & "0" & "0" & "0" & [b2])
End If

ارجوا الافادة 

[محمد هشام.]

جرب هدا 

Sub TEST()
Dim LR As Long, Formul As String

Formul = "=IF(B2="""","""",IF(B2<=9,E2&""0""&C2&""00000""&B2,IF(B2<=99,E2&""0""&C2&""0000""&B2)))"

Range("N2:N" & Cells(Rows.Count, 2).End(xlUp).Row) = [Formul]
      
LR = Range("B" & Rows.Count).End(xlUp).Row

Range(Range("N2"), Range("N" & LR)).FillDown

With Range("N2:N" & LR)
         .Value = .Value
       End With
End Sub

 

[Fady EL-Shafey]

20 ساعات مضت, Fady EL-Shafey said:

 

مشكور اخى الكريم 

اولا المعادلة لا تعمل .. تكتب كنص

ثانيا المطلوب انها تتنفذ ع كل سطر ع لوحدة

يعني n2 ياخد قيم e2 و c2 و و b2

و n3 ياخد قيم e3 و c3 و b3 

وهكذا

ومشكور ع وقتك ❤❤

تم تعديل ديسمبر 19, 2023 بواسطه Fady EL-Shafey

[alliiia]

Sub Test ()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") 'غير لاسم الشيت حقك

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row 

    Dim i As Long
    For i = 2 To lastRow '
        If ws.Cells(i, "B").Value <= 9 Then
            ws.Cells(i, "N").Value = ws.Cells(i, "E").Value & "0" & ws.Cells(i, "C").Value & "000000" & ws.Cells(i, "B").Value
        ElseIf ws.Cells(i, "B").Value <= 99 Then
            ws.Cells(i, "N").Value = ws.Cells(i, "E").Value & "0" & ws.Cells(i, "C").Value & "00000" & ws.Cells(i, "B").Value
        End If
    Next i
End Sub