Satır makrosu

[f_alkan]

Ekte sorumuz mecuttur.ilgilenen arkadşlara tşk eder, hayırlı günelr dilerim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları denemeden önce dosyanızın yedeğini almayı unutmayınız.

Sub Satir_Duzenle()
    
    Dim i       As Long
    Dim Tutar   As Double
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "A").End(3).Row To 3 Step -1
    
        Tutar = Cells(i, "C")
        
        Range("A" & i & ":C" & i).Copy
        Range("A" & i).Insert Shift:=xlDown
    
        Range("C" & i) = Tutar * Range("R1")
        Range("C" & i + 1) = Tutar * Range("R2")
        
    Next i
    
    Application.CutCopyMode = False
    MsgBox "SATIRLARA AYRILMIŞTIR...."
    
End Sub

 

[f_alkan]

tşk eder, hayırlı günler dilerim.