Hücre içindeki metni değiştirmeden sayı değerini arttırma

[kadir78]

İyi günler. Hücre içindeki metni değiştirmeden sayı değerini arttırma işlemini makro kodları ile yapabilirmiyiz. Yardımcı olurmusunuz.

Örnek :

A2 hücresindeki veri : x = 1
A6 hücresindeki veri : x = 11
A10 hücresindeki veri : x = 21
A14 hücresindeki veri : x = 31
A18 hücresindeki veri : x = 41 vs.

Bana lazım olan ise makro kodları ile hücre içerisindeki sayı değerlerini 1056 ekleyerek yükseltmek. Yukarıdaki değerleri aşağıdaki değere dönüştürmek.

A2 hücresindeki veri : x = 1057
A6 hücresindeki veri : x = 1067
A10 hücresindeki veri : x = 1077
A14 hücresindeki veri : x = 1087
A18 hücresindeki veri : x = 1097 vs.

 

[PLİNT]

Merhaba
Bütün hücrelerde örneğinizdeki gibi (eklenecek sayıdan önce) "=" var ise;
aşağıdaki gibi olabilir.

[SIZE="2"]Sub ekle()
For a = 2 To Cells(Rows.Count, 1).End(3).Row
f = UBound(Split(Cells(a, 1), "="))
If f > 0 And IsNumeric(Right(Trim(Cells(a, 1).Value), 1)) = True Then
Cells(a, 1) = Replace(Cells(a, 1), Trim(Split(Cells(a, 1), "=")(f)), Trim(Split(Cells(a, 1), "=")(f)) + 1056)
End If
Next
End Sub[/SIZE]

 

[kadir78]

Çok teşekkür ederim. Tek kelime ile Muhteşem. Sağolun. Elinize emeğinize sağlık.