ctrl+f ile arttığım değerler +1 değer yükseltmek

[siyar0044]

arkadaşlar benim çalıştığım excel sayfada örneğin 4r - 6r - 7r - 11r - 15r vb gibi deeğerler bulunmakta sonları hep "r" ile bitmekte benim yapmak istediğim ctrl+f ile arattığım zaman bu değerlere 1 eklemek 4r değeri 5r olacak 16r değeri 17r olacak bunu yapabilirmiyiz acaba

 

[alpi]

1-Değerleri artırmak için Ctrl+F ile aratmak zorunda mısınız?
2-arama yapmadan verileri artırsak olmaz mı?
3-Verileriniz hangi sutünda?

 

[siyar0044]

bu excelde çizilmişkroki olduğu için belirli bi düzen yok yani hepsi bi sütünda değil rastgele yerlerde
tek tek değerler de verilebilir ama 450-500 arası rakamı değiştireceğim ve bunun gibi çok iş olduğu için biraz uğraştıracağını düşündüm

 

[siyar0044]

aklıma şöyle bişey geldi önce sonu 0r ile bitenleri aratıp değiştir seçeneğinden 01l olarak değiştirecem sonra 1rleri aratıp 2l olarak değiştirecem bu şekilde 11r-21r-31r vb olarak değiştirip aramaları3r-4r.......9r oarak yapıp en sonunudada tüm l harflerini aratıp değiştir seçeneğinden r olarak değiştirecem bu işlemi epey kısaltacak işlemimi 11 işlemden sonra tamamlamış olacam ama bunun daha pratik yplu varsa bilmek isterim

 

[Levent Menteşoğlu]

Bence bunun en pratik yolu verileri formülize etmektir. Örneğin A1 hücresine 0 yazıp, diperlerinide buna göre formülize edeiblirsiniz. (A1+1)&"r" , (A1+2)&"r", ..... gibi. Böylece A1 hücresindeki veriyi arttırdığınızda tüm verilerde birer artacaktır.

 

[alpi]

Sayın Siyar aşakğıdaki kodları deneyin

Option Explicit
Sub BulVeDeğiştir()
Dim Bulunan As Range
Dim İlkHücre As String
ThisWorkbook.Sheets("Sayfa1").Select 
'Yukarıdaki sayfa adını Hangi sayfada işlem yapılacaksa ona göre değiştiriniz.

Set Bulunan = Cells.Find("r")
İlkHücre = Bulunan.Address
Değiştir Bulunan
Do
    Set Bulunan = Cells.FindNext(Bulunan)
    If İlkHücre = Bulunan.Address Then Exit Sub
    Değiştir Bulunan
Loop
End Sub
Sub Değiştir(Bulunan As Range)
    Dim Rakam As String
    Rakam = Left(Bulunan.Text, Len(Bulunan.Text) - 1)
    If Right(Bulunan.Value, 1) = "r" And IsNumeric(Rakam) Then
            Bulunan.Value = Rakam + 1 & "r"
    End If
End Sub