Hücre Verisi ile Makro Kodunda Değişiklik Yapma

[kadir78]

İyi günler. Aşağıda kullandığım makro kodunda kırmızı ile işaretlediğim sayı değerini "Sayfa1 A1" hücresinde bulunan sayı değerine göre değiştirmek mümkünmüdür. "Sayfa1 A1" hücresine bir sayı değeri girildiğinde örnek olarak "2140" sayı değeri yazıldığında, makro kodundaki sayı değerini değiştirmesi gerekiyor. Yardımcı olurmusunuz.

Sub Makro1()
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)) + [COLOR="Red"]1056[/COLOR])
End If
Next
End Sub

 

[askm]

Eklediğiniz kodda ilk haneye bakıyor. Örnek dosya eklerseniz bakalım.