Formul sonucu yazan hücreye veri girisi

[memetlee]

Aslında bunun cevabının oldugunu biliyorum yeni konu acmamak icin cok baktım fakat goremeyince acmak durumunda kaldım.

formülde
a1 3
b1 2
c1 =a1*b1 (6) yazıyor iken
c1 hücresine 6 yazdıgımda a1 e 3 yazdırmak istiyorum

 

[Korhan Ayhan]

Merhaba,

Sorunuz tam anlaşılmıyor. Örnek dosya ekleyerek açıklar mısınız?

 

[uzmanamele]

Aslında bunun cevabının oldugunu biliyorum yeni konu acmamak icin cok baktım fakat goremeyince acmak durumunda kaldım.

formülde
a1 3
b1 2
c1 =a1*b1 (6) yazıyor iken
c1 hücresine 6 yazdıgımda a1 e 3 yazdırmak istiyorum

Merhaba
Formül yazılmış hücreye tekrar veri yazamazsınız.
Bunun yerine "Hedef Ara" seçeneğini kullanın.

 

[memetlee]

formul olan hucreye deger girilmesi

cvp icin tesekkur ederim
tabloya ornek yazdım
alttaki iki acıklamada aynı farklı sekilde anlatım
saygılar

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız. D sütununa elle değer girdiğinizde kod çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2,D3:D" & Rows.Count)) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Target.Address(0, 0) = "B2" Then
        With Range("D3:D" & Cells(Rows.Count, "B").End(3).Row)
            .FormulaR1C1 = "=R2C2*RC[-1]"
        End With
    Else
        If Target.HasFormula Then Exit Sub
        If Target <> "" And Target.Offset(0, -1) <> 0 Then
            Range("B2") = Target / Target.Offset(0, -1)
        End If
    End If
End Sub

 

[memetlee]

cvp için tekrar teşekkür ederim kısmen oldu.
eksik kısmı ;
tekrar b2 ye deger girek istedigimde d sütunu işlem yapmıyor
yani b2 ve d sutunlarından ayrı ayarı işlem yapabilimiyim
şöyleki b2 ye girdim deger sonucu d3 te yer alıdıgı gibi tam tersi olan d3 e deger girdigimde saglaması nı yada ters işlemi b2 ye yazdırabilirmiyim
bunu daha önce gormustum bir tabloda
istedigi yerden hesaplama yaptırabiliyordu.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki kodu güncelledim. Tekrar denermisiniz.

 

[memetlee]

süper hocam cok tesekkkur ederim elinize saglik.
son olarak aynı islemi alt alta 10 satira yapacagim
kodu kopy past yapip sadece dx hicrelerinin adreslerini degistirsem olur herhalde
saygılar