Koddaki eksik nerede?

[mlhtrn]

sayfa 1 in 73 74 75 inci satırların D kolonunda bulunan rakamları her tıkladığımda yüzde 10 artıran kod yazmaya çalışıyorum fakat yazdığım kod sadece (74,4) ile (75,4) de yüzde 10 artıs saglıyor diğer hücreye neden artış sağlanmıyor çözemedim yardımlarınızı bekliyorum

 

[accountant80]

Merhaba Kodu dener misiniz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("D73").Value = (Range("D73").Value) + (Range("D73").Value / 100 * 10)
Range("D74").Value = (Range("D74").Value) + (Range("D74").Value / 100 * 10)
Range("D75").Value = (Range("D75").Value) + (Range("D75").Value / 100 * 10)


End Sub

 

[mlhtrn]

Öncelikle zaman ve emek harcadığınız için teşekkür ederim. Kod çalışıyor aynen fakat benim normalde bu kodu kullanacağım satır sayısı 3 değil yani bir döngü yapmam lazım kendisi satırlarda aşaya doğru geçiş yaparak değerleri arttırması lazım bu şekilde tek tek 1000 satır girmek yerine bir döngü oluşturacak bir kod yazabilirmisiniz ?

 

[accountant80]

Şu kodu dener misiniz? i değerini kendinize göre belirleyebilirsiniz. Ben 173 e kadar yaptım.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
For i = 73 To 173
If Range("D" & i).Value = "" Then Exit Sub

Range("D" & i).Value = (Range(("D" & i)).Value) + (Range(("D" & i)).Value / 100 * 10)

Next i
End Sub

 

[mlhtrn]

teşekkür ederim istediğimi tam anlamıyla karşıladı ellerinize sağlık...

 

[accountant80]

Güle Güle kullanın