veri girdiğim hücre yandaki hücre ile etkileşip yeni değeri girsin

[smakineci]

a1 hücresine "5" yazdığımı varsayalım.. b1 hücresine "100" yazıp "enter" e bastığımda b1 hücresine 500 yazmasını (a1 ile b1 i anlık çarpıp b1 hücresine yazsın) istiyorum. bunun basit bir formülü varmıdır yoksa makro ile filan mı yapılabilir.. yardımcı olursanız çok sevinirim.. teşekkürler

 

[ÖmerFaruk]

Aşağıdaki kodsu sayfanın kod penceresine aynen yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Target.Value * Target.Offset(0, -1)
    Application.EnableEvents = True
End Sub

 

[smakineci]

Aşağıdaki kodsu sayfanın kod penceresine aynen yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Target.Value * Target.Offset(0, -1)
    Application.EnableEvents = True
End Sub

yanıtınız için çok çok teşekkür ederim. kod sayfasına nasıl yapıştıracağımı bilmiyorum ama onu bulabilirim sanırım )

 

[ÖmerFaruk]

Bu işlemi istediğiniz Excel sayfanız açıkken Alt+F11 tuşuna basın, boş bir pencere gelecek
Çıkan pencereye kodu aynen yapıştırın.
Excel sayfanıza dönün. İşlemi deneyin.

Dosyanızı kaydederken Makro İçerebilen dosya olarak kaydedin.

 

[smakineci]

Bu işlemi istediğiniz Excel sayfanız açıkken Alt+F11 tuşuna basın, boş bir pencere gelecek
Çıkan pencereye kodu aynen yapıştırın.
Excel sayfanıza dönün. İşlemi deneyin.

Dosyanızı kaydederken Makro İçerebilen dosya olarak kaydedin.

Sn. Ömer Faruk bey.. öncelikle yardımlarınız için çok teşekkür ediyorum.. şuana kadar formülü çoklu satırlarda (b1:b10) gibi çalıştırdım.. ama satır ekleyip çıkardığımda kod bozuluyor (

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Target.Value * Range("A1")
    Application.EnableEvents = True
End Sub

 

[ÖmerFaruk]

Satır ekleyip çıkarmakdan kastınız nedir?

 

[smakineci]

Satır ekleyip çıkarmakdan kastınız nedir?

a1 hücresinde ki döviz kurunu b1:b10 aralığına yazdığım anda çeviriyor şu anda. ama araya satır ekle ve ya satır sil dediğimde debug hatası gibi birşey çıkıyor ve artık sistem çalışmıyor.

 

[ÖmerFaruk]

Şu şekilde kullanın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Target.Value * Range("A1")
    Application.EnableEvents = True
End Sub

 

[1mak1mak]

Hocam son kodu bende denedim ama alt satırlara indikçe sonuç hatalı veriyor.
Ancak #2 nolu mesajdaki kodunuz gayet güzel çalışıyor Kodu (B:B) olarak ayarlayınca.
Teşekkürler