girilen değere göre koordinat artışı

[k0081]

Merhaba arkadaşlar;
C2 den başlayan ve C80 devam eden bir dizi koordinatlar mevcut..

4,0000
8,0000
11,000
15,800

....

gibi..yapmak istediğim; H3 e bir değer girip, mesela 2 bu değerin diğer koordinatları çarparak artırması..

4,0000 = 8,0000
8,0000 = 16,000
11,000 = 22,000

gibi değişmesi.. yardımcı arkadaşa şimdiden teşekkürler..

 

[uzmanamele]

Merhaba

Bunun gibi mi?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [h3]) Is Nothing Then Exit Sub
Range("h3").Copy
Range("b2:b" & Range("b65536").End(3).Row).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[k0081]

Merhaba

Bunun gibi mi?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [h3]) Is Nothing Then Exit Sub
Range("h3").Copy
Range("b2:b" & Range("b65536").End(3).Row).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

hocam bu kodu çalıştıramadım.. sanırım bu h3 girilen değeri B2 den başlayarak h3 e girileni kopyalıyor.. doğrumudur ?
*****************************************
pardon hocam özür... aynen budur.. çok teşekkür ediyorum.. elinize yüreğinize sağlık..