Dinamik Çarpım makrosu

[excellkurdu]

Değerli arkadaşlar,
förmül kullanmadan K23 e yazdığım bir sayı sonucu, K23*O23 çarpım sonucunu S23 e yazdırabilirmiyiz? Bu işlem sadece K23 e yazdığım sayı ile olmasını istiyorum, bu mümkün mü? Şimdiden teşekkür ederim.

Cells(23, 19) = Cells(23, 11) * Cells(23, 15)

 

[Muhammet Okumuş]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K23")) Is Nothing Then Exit Sub
Range("S23") = Range("K23") * Range("O23")
End Sub

kodu deneyiniz.

 

[excellkurdu]

Muhammet Bey çalışmadı.
Ambiguous name detected: Worksheet_Change hatası verdi

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[excellkurdu]

hocam sorun aynı sayfada kullandığım 2 adet Worksheet_Change kodu. Kodum aşağıdadır. Bu kodu farklı sayfaya taşırsam, Aynı sayfa için olan [K17], [K18], [K19]..., gibi hücreleri xxx sayfasına taşırsam xxx sayfasında [K17], [K18], [K19].... hücreleri nasıl tanımlayabiliriz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K17]) Is Nothing Then Exit Sub
    If [K17] <> "" Then
    Set BUL = Sheets("Biyosidaller").Range("H:H").Find([K17].Value, , , xlWhole, , xlNext)
        If Not BUL Is Nothing Then
        [K18] = Sheets("Biyosidaller").Range("A" & BUL.Row)
        [K19] = Sheets("Biyosidaller").Range("B" & BUL.Row)
        [K20] = Sheets("Biyosidaller").Range("F" & BUL.Row)
        [K21] = Sheets("Biyosidaller").Range("D" & BUL.Row)
        [K22] = Sheets("Biyosidaller").Range("E" & BUL.Row)
        [M23] = Sheets("Biyosidaller").Range("L" & BUL.Row)
        [O23] = Sheets("Biyosidaller").Range("M" & BUL.Row)
        [Q23] = Sheets("Biyosidaller").Range("N" & BUL.Row)
        [S23] = Sheets("Biyosidaller").Range("T" & BUL.Row)
        [U23] = Sheets("Biyosidaller").Range("S" & BUL.Row)
   End If
End If
End Sub

 

[excellkurdu]

Tek kullanımda kod çalışıyor. sorun Worksheet_Change den olduğundan farklı başlık açıyorum. Teşekkür ederim Muhammet Bey.

 

[Muhammet Okumuş]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K17]) Is Nothing Then Goto 10
If [K17] <> "" Then
Set BUL = Sheets("Biyosidaller").Range("H:H").Find([K17].Value, , , xlWhole, , xlNext)
If Not BUL Is Nothing Then
[K18] = Sheets("Biyosidaller").Range("A" & BUL.Row)
[K19] = Sheets("Biyosidaller").Range("B" & BUL.Row)
[K20] = Sheets("Biyosidaller").Range("F" & BUL.Row)
[K21] = Sheets("Biyosidaller").Range("D" & BUL.Row)
[K22] = Sheets("Biyosidaller").Range("E" & BUL.Row)
[M23] = Sheets("Biyosidaller").Range("L" & BUL.Row)
[O23] = Sheets("Biyosidaller").Range("M" & BUL.Row)
[Q23] = Sheets("Biyosidaller").Range("N" & BUL.Row)
[S23] = Sheets("Biyosidaller").Range("T" & BUL.Row)
[U23] = Sheets("Biyosidaller").Range("S" & BUL.Row)
End If
End If

10

If Intersect(Target, Range("K23")) Is Nothing Then Exit Sub
Range("S23") = Range("K23") * Range("O23")

End Sub

O zaman bu şekil deneyiniz.

 

[excellkurdu]

O zaman bu şekil deneyiniz.

K17, V17, S23 hücrelerinde worksheet_change işlevini kullandım. Hocam dosyayı gönderdim bakarsanız çok sevinirim.

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[excellkurdu]

Hata verdi. [k17] de kaldı. "Expected Function or variable"

 

[Muhammet Okumuş]

Dosyayı güncelledim. Bir daha bakınız.

 

[excellkurdu]

Muhammet Bey teşekkür ederim. Allah razı olsun. Sorun kalmadı

 

[Muhammet Okumuş]

Rica ederim. İyi çalışmalar.