محتاج تحويل الجرام الى كيلو فى نفس الخليه بدون انشاء خلايا جديده

[احمد عـــزام]

يرجى المساعده خلايا ارقام بالجرام مطلوب تحويلها الى كيلو كما هما  من غير عمل خلايا جديده 

وارجو شرح 

الجرام.xlsx

تم تعديل مارس 6, 2023 بواسطه احمد عـــزام
مطلوب تحويل الجرام الى كيلو بنفس الخليه

[lionheart]

Try

Sub Test()
    Dim arr, rng As Range, i As Long, j As Long
    Set rng = Range("H9:N" & Cells(Rows.Count, "H").End(xlUp).Row)
    arr = rng.Value
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            arr(i, j) = Round(arr(i, j) / 1000, 2)
        Next j
    Next i
    rng.Value = arr
End Sub

 

[احمد عـــزام]

اشكرك جدا جدا ماشاء الله هذا ما اريده...ربنا يبارك فيك 

طب لو انا محتاج اعملها على الخليه اللى انا عايزها  فقط

[lionheart]

You can change this line 

Set rng = Range("H9:N" & Cells(Rows.Count, "H").End(xlUp).Row)

to

Set rng = Selection

Now you can select one cell or more and run the code to do the task for you