DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Arttir()
For satir = 2 To WorkSheetFunction.CountA(Sheets(ActiveSheet.Name).[A1:A10000])
Sheets(ActiveSheet.Name).Cells(satir, 1) = Sheets(ActiveSheet.Name).Cells(satir, 1) * 1,15
Next satir
End Sub