Birbirini Tamamlayan Hücreler

[baydeniro]

Merhaba arkadaşlar. Hepimizin bildiği gibi excel 2 hücre arasında birbirine bağlı formülasyon var ise hata verir. Benim buna benzer bir çözüme gereksinmem var. Ekteki dosyada A sütununa TL rakamlar girilirse dosya kendiliğinden B sütünuna kura göre $ karşılığını yazacak. Eğer B sütununa $ girilirse A sütununa kura göre TL karşılığı yazılacak. Bunu gerçekleştirmek olası mı ?

 

[emrexcel123]

kur

arkadaşım kur nedir?

 

[Korhan Ayhan]

Selamlar,

KAYIT isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A2:B65536]) Is Nothing Then Exit Sub
    KUR = Sheets("KUR").Range("B2")
    If Target.Column = 1 And Target <> "" Then
    Cells(Target.Row, 2) = Target / KUR
    ElseIf Target.Column = 2 And Target <> "" Then
    Cells(Target.Row, 1) = Target * KUR
    End If
End Sub

 

[Merhum İdris SERDAR]

arkadaşım kur nedir?

Kur=Parite

İki değişik paranın biribirlerine göre değerleri.

Fıkra:

Parite nedir?

Olayımız, henüz dalgalı döviz kurlarının uygulanmadığı yıllarda ABD-Kanada sınırındaki bir kasabada geçmektedir. Bilindiği gibi, her iki ülke de para birimi olarak 'dolar' kullanmaktadırlar. Yalnız, her ikisi de kendi paralarının daha değerli olduğunu iddia etmektedirler. Şöyle ki Kanadalılara göre: parite yani kur 1 ABD Doları = 90 Kanada Cent'i, Amerikalılara göreyse parite yani kur, 1 Kanada Doları = 90 ABD Cent'idir.

Amerikalının biri, cebindeki 1 dolarla dolaşmaya çıkar. Bir ara karnı acıkır ve küçük bir kek alır. Kekin fiyatı 10 centtir. Cebindeki 1 doları verir. pastacı bozuk para ararken kasasının bir köşesinde 1 Kanada doları bulur, onu verir (90 cente eşit ya!).

Sınırı yürüyerek geçerek Kanada tarafına geçer. Kanada da dolaşmaya başlar. Orada da bir pastane görür. Buranın da kekinin tadına bakalım der. İçeriye girer. Kek ister. Fiyatının ne olduğunu sorar. Pastacı "10 Kanada centi" der. Adam cebindeki 1 Kanada dolarını verir. Pastacıda da bozuk para yok. Para üstü olarak 1 ABD doları verir (90 Kanada centine eşit ya!). Oradan da ayrılıp evine döner.

Sonra düşünmeye başlar: "Yahu sabah evden çıkarken cebimde 1 ABD Dolarım vardı. Peki, iki kekin parasını kim verdi?"


Fıkradaki bu işleme de arbitraj denir. Kur farklarından ötürü para kazanmak için yapılan işlem.
..

 

[emrexcel123]

kur değeri

sn yurttas "kur" un ne olduğunu biliyorum sormamdaki amaç kur kaçtan alınacak şeklinde bir soruydu ayrıca bu fıkra için teşekkür ederim demek ki ABD ve Kanada arası bir yerde otursak çok para kazanırız... :mrgreen: ß@

 

[Merhum İdris SERDAR]

sn yurttas "kur" un ne olduğunu biliyorum sormamdaki amaç kur kaçtan alınacak şeklinde bir soruydu ayrıca bu fıkra için teşekkür ederim demek ki ABD ve Kanada arası bir yerde otursak çok para kazanırız... :mrgreen: ß@

Sorunuzu yanlış algılamışım.

Neyse. Bilmeyen olabilir, ve fıkra hatırına mesajı silmiyorum.


..

 

[baydeniro]

Teşekkürler

Sayın Cost Control yani ne kadar teşekkür etsem azdır. Hani Bülent Ersoy'un dediği gibi "fevkaladenin de fevkınde". Üstadlar sizi boşuna "uzman" olarak seçmemiş. Allah daha nice mevkileri nasip eder inşallah. Çok çok teşekkürler.

 

[baydeniro]

Sayın Cost Control, döviz kurunu tarihe endeksli yapabilir miyiz ? Yani 1 ocaktaki bir işlemde 1 ocak kurunu, 2 ocaktaki işlemde 2 ocak kurunu alsın.

 

[baydeniro]

Sayın yurttas fıkra için teşekkürler. emrexcel123 size de teşekkür ederim. Yanlış anlama olmasın, amacım nutuk çekmek falan değil, sizin sağlamış olduğunuz fırsat ile bir konuda genel anlamda görüşümü belirtmek isterim.

Sonuçta burası bir forum ve insanlar yanlış anlayabileceği gibi bazı sözleri vesile olarak değerlendirip yeni açılımlar da getirebilirler. Sayın yurttas da böyle yapmış, biraz denk gelen bir durum üzerine güzel bir fıkra eklemiş. Buradaki amacının birisini kırmak veya başka türlü bir olumsuzluk içinde olmayı hedeflediğini şahsen ben hissetmedim. Hayat kısa ve her anımızı neşe içinde geçirmek varken bazen öylesine basit şeyler için kırılıyoruz ki. Hep düşünmüşümdür, keşke taklit sanatçıları benim taklitimi yapsalar, benimle dalga geçseler diye. Ben kendimle hep dalga geçerim, önce kendimi ti ye alırım ki etraf alınmasın diye. Bana çok ta eğlenceli gelir.

 

[emrexcel123]

sorun yok

arkadaşlar (özellikle sn yurtta&#351 herhangi bir sorun yok ortada yanlış anlamayın ben sadece görüşümü belirttim sorun çıkartma gibi bir hakkımız yok ki ne de olsa hepimiz paylaşım için buradayız yani ayrıca sn serdar okan bu yapmak için yazılan kuru depolamanız gerekebilir yani tekrar işlem yapabilmek için ve görüntülemek için yani kur isminde bir sayfa oluşturursanız daha kolay olur kanısındayım...
HER ŞEY PAYLAŞIM İÇİN... :arkadas:

 

[baydeniro]

Merhaba emrexcel123, anlayışın için teşekkürler. Dosya içinde KUR diye bir sayfa var zaten. Herhalde senin gözünden kaçmış.

 

[emrexcel123]

herhangi

arkadaşım dosyanı fazla inceleyemedim sayfa isimlerini tam bilmiyorum herhangi bir sayfaya (herhangi bir sayfa ismi olabilir.) depolaman için diyorum ok ... :mrgreen:

 

[Korhan Ayhan]

Selamlar,

Sayın Cost Control, döviz kurunu tarihe endeksli yapabilir miyiz ? Yani 1 ocaktaki bir işlemde 1 ocak kurunu, 2 ocaktaki işlemde 2 ocak kurunu alsın.

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A2:B65536]) Is Nothing Then Exit Sub
    On Error GoTo HATA
    KUR = Evaluate("=INDEX(KUR!A:B,MATCH(" & Cells(Target.Row, 3).Address & ",KUR!A:A,0),2)")
    If Target.Column = 1 And Target <> "" Then
    Cells(Target.Row, 2) = Target / KUR
    ElseIf Target.Column = 2 And Target <> "" Then
    Cells(Target.Row, 1) = Target * KUR
    End If
    Exit Sub
HATA:
    If Cells(Target.Row, 3) = "" Then
    MsgBox "Lütfen ilk önce tarih giriniz !", vbExclamation, "Dikkat !"
    Target = "": Target.Select
    Else
    MsgBox Cells(Target.Row, 3) & " tarihine ait kur bilgisi bulunamamıştır !" & vbCrLf & vbCrLf & "Lütfen kur bilgisini girip tekrar deneyiniz.", vbExclamation, "Dikkat !"
    Target = "": Target.Select
    End If
End Sub

 

[baydeniro]

Teşekkürler

Sayın Cost Control, ne diyeyim tahtalara vuruyorum nazar değmesin. Allah böyle beyinleri başımızdan eksik etmesin. Yani excele olan sevgimi daha da artırdınız. Çok çok teşekkürler. Bu koda daha başka ne denir !!! Sağlıcakla kalın.