(25/02/2016, 11:36)afatsum75 yazdı: Sub sade() i.Cells(son, 1) = WorksheetFunction.Max(i.Range("A2:A" & son)) + 1 i.Cells(son, 2) = n.Cells(mv, 2) i.Cells(son, 3) = n.Cells(mv, 3) i.Cells(son, 4) = n.Cells(mv, 4) i.Cells(son, 5) = n.Cells(mv, 5) i.Range(i.Cells(son, 7), i.Cells(son, sgun + 6)) = 1 ' i.Cells(son, "AL") = WorksheetFunction.Sum(i.Range("G" & son & ".AK" & son)) End Sub yukarıdaki düzeltmeyi yapın.
evet abım %85 duzledı sadece araya 3,4 gibi rakamlar atıyor neden ki acaba..