Hücrelerdeki sayıları yükseltme

[kadir78]

İyi günler. Hücre içerisinde bulunan sayıların yükselme işlemini makro kodları ile yapmam lazım yardımcı olur musunuz.

Örnek : A1 hücresindeki değer 2017 / 25
A5 hücresindeki değer 2017 / 30
A10 hücresindeki değer 2017 / 35
A15 hücresindeki değer 2017 / 40
A20 hücresindeki değer 2017 / 45
A25 hücresindeki değer 2017 / 50 vb sayı değerlerini

A1 hücresindeki değer 2017 / 52
A5 hücresindeki değer 2017 / 57
A10 hücresindeki değer 2017 / 62
A15 hücresindeki değer 2017 / 67
A20 hücresindeki değer 2017 / 72
A25 hücresindeki değer 2017 / 77 gibi

değiştirme işlemini makro kodları ile değiştirmem gerekiyor. Yardımcı olur musunuz.

 

[Mustafa MUTLU]

Hücrede 2017 / 52 böle mi görünecek yoksa 38,78 sonuç mu görünecek.

 

[kadir78]

Sayı sonucu değil. 2017 / sayı şeklinde

2017 / 15 , 2017 / 25 , 2017 / 52 gibi

 

[askm]

Örnek dosyanızı eklerseniz bakalım. Sanırım 27 artırmanız gerekiyor.

 

[kadir78]

Bana lazım olan işlem sadece hücrelerdeki sayı değerini makro kodlarıyla arttırmak aslında.

 

[askm]

O zaman şu kodlar işinize yarar.

Sub ASKM_Sayi_Artir()
Dim SonSat As Long
Dim sayi As Integer
SonSat = Range("A" & Rows.Count).End(xlUp).Row
Cells(1, 1) = "2017 / " & Int(Split(Cells(1, 1), "/")(1)) + 27
For i = 5 To SonSat Step 5
    sayi = Split(Cells(i, 1), "/")(1)
    Cells(i, 1) = "2017 / " & Int(sayi) + 27
Next i
MsgBox "Sayilar artırıldı...", vbInformation, "ASKM"
End Sub

 

[kadir78]

Çok teşekkür ederim. Elinize, emeğinize sağlık. Sağolun.

 

[askm]

Rica ederim. İyi akşamlar.