excel sayfasındaki sayılara +19 eklemek

[siyar0044]

arkadaşlar benim çalıştığım excel sayfasında 1 den başlayarak yaklaşık 1000'e kadar sayı var yaptığım işin sayısı kadar numara veriyorum
herbir hücrede ayrı ayrı rakamlar örneğin b13 hücresinde 1 sayısı f45 hücresinde 2sayısı h52 hücresinde 67 gibi sayılar bulunmakta
bu sayılar belli düzen içerisinde değil yani hepsi bir sütün veya satır üzerinde değil farklı yerlerde bulunmakta
şimdi ben bu sayıları verirken 99 dan 118 e geçmişim arada 19 tane sayı atlamışım
bu sayıları verirken rengi kırmızı ve altı çizili olarak yazdım
ctrl+f yapıp biçime göre arattığım zaman vermiş olduğum sayıları buluyor ben bu sayıları tek seferde nasıl +19 ekleyebilirim yoksa hepsini tek tek girmem gerekecek yardım ederseniz sevinirim

 

[Necdet]

Boş bir hücreye 19 yazın ve bu hücreyi Kopyalayın
hangi hücrelere 19 ekleyecekseniz o hücreleri Ctrl tuşuna basarak teker teker seçin (düzenliyse bir çırpıda da seçebilirsiniz)
Özel yapıştırı seçin
ve Topla deyin

 

[Recep İpek]

Kullandığınız sayfada sıra numarasından başka sayılar yok ise aşağıdaki kodları kullanabilirsiniz.

Sadece artırılacak alanı seçip bu makroyu çalıştırmanız yeterlidir.

Önce sayıları doğru arttırdığını birkaç hücrede kontrol edin.
Ayrıca makroyu çalıştırdığınız hücrede tekrar aynı makroyu çalıştırmayınız.

Sub RakamArttır()
Dim a As Variant
For Each Hucre In Selection
If Hucre.Value > 98 Then
a = Hucre.Value + 19
Hucre.Value = a
End If
Next
End Sub