Döviz Karşılığı Nasıl Bulunur

[baydeniro]

Merhaba arkadaşlar. Bir tablodaki tutarların günlük döviz kuruna göre döviz bedelleri makro ile hesaplatılıp, özet rapor bölümüne yazdırılabilir mi ? Örnek dosya ektedir.

 

[baydeniro]

Bu konuda bilgisi olan var mı arkadaşlar ?

 

[baydeniro]

Bu konuda bilgisi olan var mı arkadaşlar ?

 

[hamitcan]

"E" sütununu oluşturmak istiyorsunuz ama "J" sütununda "E" sütunundan faydalanmışsınız.

 

[baydeniro]

Sayın hamitcan ilginiz için teşekkür ederim. Sanıyorum bir yanlış anlama var.
J sütunu orada fikir vermesi için bulunmaktadır. Nihai dosyada beklenen çözüm J sütunu olmadan RAPOR sayfası E sütunundaki rakamları elde etmektir.

Yani J sütunu ile çözüm var, ancak bu çözüm her satırda formül gerektirdiği için buna makro ile daha kısa bir çözüm yaratılabilir mi arayışı !!!

 

[baydeniro]

Bu konuda bilgisi olan var mı arkadaşlar ?

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub nn()
    Set S1 = Sheets("DOVIZ KURU")
    Set s2 = Sheets("RAPOR")
    Set s3 = Sheets("KAYIT")
    For i = 2 To s3.[a65336].End(3).Row
        s3.Cells(i, 6) = s3.Cells(i, 5) / S1.Cells(WorksheetFunction.Match(s3.Cells(i, 2), S1.Columns(1), 0), 2)
    Next
    For i = 2 To 6
        s2.Cells(i, 6) = WorksheetFunction.SumIf(s3.[c2:c11], s2.Cells(i, 2), s3.[f2:f11])
    Next
    s3.Columns(6).Clear
End Sub

 

[baydeniro]

Sayın hamitcan, hocam aşmıssınız .....

Çok çok teşekkürler.

 

[hamitcan]

Sayın serdarokan, abartmayın lütfen. Siz de bunları yapabilirsiniz. Öncelikle örnekleri biraz inceleyin daha sonra siz de aynısını yapmaya çalışın. Bakıyorum şimdiye kadar 1130 mesaj göndermişsiniz. Artık sitede siz de böyle konularda soru soran değil yanıtlayan olmalısınız diye düşünüyorum.
Umuyorum bu yazdıklarımdan farklı bir anlam çıkarmazsınız. Amacım siteye yeni "uzman" arkadaşlar katmak. Siz de bu kişilerden neden olmayasınız!...