data girilen hücrede işlem

[benbarbaros]

selam arkadaşlar; senelerdir excel kullanmama rağmen bugüne kadar hiç bir şekilde formül kullanma ihtiyacı hissetmedim. bu aralar işim dolayısı ile bunun bir eksiklik olduğunu fark ettim. sizin sayenizde bu eksikliğimi gidermek istiyorum.

konuyu fazla uzatmadan yapmak istediğim ama beceremediğim bir sorunum var.

a1 hücresinde ilgili ürüne ait birim fiyatı yer almaktadır
b1 hücresine ise ilgili ürüne ait kullanım miktarını girdiğimde

çıkan sonucu tekrar b1 hücresinde almak istiyorum.

böyle bir işlem mümkünmüdür. yardımlarınız için şimdiden teşekkür ederim.

 

[leumruk]

selam arkadaşlar; senelerdir excel kullanmama rağmen bugüne kadar hiç bir şekilde formül kullanma ihtiyacı hissetmedim. bu aralar işim dolayısı ile bunun bir eksiklik olduğunu fark ettim. sizin sayenizde bu eksikliğimi gidermek istiyorum.

konuyu fazla uzatmadan yapmak istediğim ama beceremediğim bir sorunum var.

a1 hücresinde ilgili ürüne ait birim fiyatı yer almaktadır
b1 hücresine ise ilgili ürüne ait kullanım miktarını girdiğimde

çıkan sonucu tekrar b1 hücresinde almak istiyorum.

böyle bir işlem mümkünmüdür. yardımlarınız için şimdiden teşekkür ederim.

İsteğiniz makro ile yapılabilir.

 

[leumruk]

Örnek dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b1:b65536]) Is Nothing Then Exit Sub
sonuc = Target.Offset(0, -1) * Target
Application.EnableEvents = False
Target = sonuc
Application.EnableEvents = True
End Sub

 

[benbarbaros]

hocam çok teşekkür ederim. ellerinize sağlık şimdi ben yazdığınız makro kodunu kopyalayarak a2 * b2 ve c1 * c2 olarak çoğaltmak istediğimde

"Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b1]) Is Nothing Then Exit Sub
sonuc = [a1] * [b1]
Application.EnableEvents = False
[b1] = sonuc
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c2]) Is Nothing Then Exit Sub
sonuc = [a2] * [b2]
Application.EnableEvents = False
[b2] = sonuc
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b3]) Is Nothing Then Exit Sub
sonuc = [a3] * [b3]
Application.EnableEvents = False
[b3] = sonuc
Application.EnableEvents = True
End Sub

hata verdi hata kodunda " compile error -ambigous name deceted:worksheet_cahange''

 

[benbarbaros]

hocam ellerin dert görmesin

formülden kodu çoğaltarak a3-b3 ve a4-b4 hücreleri içinde aynı kodun içinde yer alan hücre adreslerini değiştirerek çoğaltmak istedim ama hata verdi..

bu konuda da yardım edebilrimisin

 

[leumruk]

hocam ellerin dert görmesin

formülden kodu çoğaltarak a3-b3 ve a4-b4 hücreleri içinde aynı kodun içinde yer alan hücre adreslerini değiştirerek çoğaltmak istedim ama hata verdi..

bu konuda da yardım edebilrimisin

Merhaba,
Şimdi çıkmam gerekti. Akşam sorunuzla ilgileneceğim.

 

[benbarbaros]

hiç problem deil hocam ilginiz için çok teşekkür ederim.

 

[leumruk]

Merhaba,
3 numaralı mesajı isteğinize göre güncelledim. Dosyayı yeniden deneyebilirsiniz.

 

[benbarbaros]

yardımlarınız için çok teşekkür ederim hocam .. ilerleyen zamanlarda tekrar yardımınıza ihtiyacım olacaktır. elleriniz dert görmesin ..

 

[leumruk]

yardımlarınız için çok teşekkür ederim hocam .. ilerleyen zamanlarda tekrar yardımınıza ihtiyacım olacaktır. elleriniz dert görmesin ..

Rica ederim.