İşlemin Sonucunu Diğer Hücrede Görmek

[zkaymak]

Merhalar
Sitenize yeni oldum. Biraz internette aramama rağmen istediğim çözümü bulamadım.
Şöyle birşey yapmak istiyorum; A1 hücresine 2*5 yazdığımda B1 hücresinde bunun sonucu görünsün ama A1 de formül 2*5 şeklinde görünmesi gerekiyor.
Bu konuda yardımcı olursanız sevinirim.

 

[Mahir64]

Merhaba,
Bunu nerede kullanacaksınız? Kullanacağız yere göre farklı çözümler üretilebilir.
A1 hücresine,
=FORMÜLMETNİ(B1)
B1 hücresine,
=2/5

 

[Haluk]

Sayfa modülüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        [B1] = Evaluate([A1].Text)
    End If
End Sub

.

 

[zkaymak]

Sayfa modülüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        [B1] = Evaluate([A1].Text)
    End If
End Sub

.

Yardımınız için teşekkür ettim ama hata verdi. Bu arada excele çok hakim değilim yanlış da yapmış olabilirim. Modül eklemeyi internetten bakarak denedim.
Uyarı şu şekilde; Compile error: invalid outside procedure

 

[Merhum İdris SERDAR]

.

Alternatif:

Bir modüle:

Function Hesapla(mtn As String)

    Application.Volatile
    Hesapla = Evaluate(Evaluate(Replace(mtn, ",", ".")))

End Function

B1 hücresine:

=hesapla(A1)


yazın.

 

[zkaymak]

.

Alternatif:

Bir modüle:

Function Hesapla(mtn As String)

    Application.Volatile
    Hesapla = Evaluate(Evaluate(Replace(mtn, ",", ".")))

End Function

B1 hücresine:

=hesapla(A1)


yazın.

Yardımınız için çok teşekkür ettim bu şekilde oldu. Basit gibi görünen benim için önemli birşeydi.
İyi Akşamlar

 

[zkaymak]

Bu modül excel'de olmuştu ama open office'e kopyalayınca çalıştıramadım. Farklı birşey mi yapmak gerekiyordu?

 

[Mahir64]

Profilinizde Open Office yazsaydınız ona uygun çözüm önerilirdi.
Excel Vers. ve Dili: 2013 türkçe yazmışsınız.

 

[zkaymak]

Profilinizde Open Office yazsaydınız ona uygun çözüm önerilirdi.
Excel Vers. ve Dili: 2013 türkçe yazmışsınız.

esasında ikisini de kullanıyorum. evde çalıştığım zaman excel kullanıyorum çünkü ona alışığım ama iş yerinde open office kullandığımız için buraya da kopyalamak istedim.

 

[Merhum İdris SERDAR]

.

Open Office kullanmadığım için durum nedir? Bilmiyorum.

.

 

[Haluk]

Function Eval(X As String) As Variant   
   Dim oCell As Object
   oCell = ThisComponent.getSheets().getByIndex(0).getCellByPosition(10, 0)
   oCell.formula = "=" & X
   Eval =   oCell.value
End Function

.

 

[zkaymak]

Function Eval(X As String) As Variant  
   Dim oCell As Object
   oCell = ThisComponent.getSheets().getByIndex(0).getCellByPosition(10, 0)
   oCell.formula = "=" & X
   Eval =   oCell.value
End Function

.

Teşekkür ettim ama çalışmadı. Modül olan kısma kodu kopyaladım ama çalıştıramadım. B hücresine =hesapla(A1) =value(a1) =eval(A1) yazdım. üçünü de denedim ama A1 in sonucunu göstemedim.

 

[Haluk]

LibreOffice'de çalışır...

.

 

[Haluk]

.

 

[zkaymak]

.

.

Basic söz dizimi hatası. C bir yöntem dışında kullanılamaz uyarısı alıyorum. Sizi de yordum ama direk o modül kısmına girip içini silip yukardaki kodu kopyaladım. Bir yerde hata yapıyorum sanırım.

 

[zkaymak]

https://resimyukle.io/r/jSgFtDI7Zz

şu linke yüklediğim ekran görüntüsünde kod ve hatam görünüyor.

 

[Merhum İdris SERDAR]

.

Kodun başındaki C#: silerek deneyin.

.

 

[zkaymak]

.

Kodun başındaki C#: silerek deneyin.

.

Tamamdır. Bu şekilde çalıştı. Teşekkür ederim yardımlarınız için.

 

[Haluk]

Hatayı boşverin, kodun başına yazdığınız C:# kısmını silin,

Sonra, formülü yazdığınız hücreyi seçin ve klavyeden F9 tuşuna basın.

.

 

[zkaymak]

Hatayı boşverin, kodun başına yazdığınız C:# kısmını silin,

Sonra, formülü yazdığınız hücreyi seçin ve klavyeden F9 tuşuna basın.

.

Sizi yordum ama virgüllü değer girince B Hücresi Sıfır değer gösteriyor. Neden acaba?