para birimine göre sıralama

[ElektroNick]

merhaba,
excel'in standardında böyle bir özellik yok galiba. Site içeriğini gezindim ama malesef birşey bulamadım. Bu konuda bana yardımcı olabilir misiniz? şimdiden çok teşekkür ederim.

 

[YUSUF44]

sorunu tam olarak anlatsaydınız ya da örnek verseydiniz iyi olurdu.

 

[ElektroNick]

10000 in üzerinde satırım var. Her bir satırda farklı para birimleriyle bedeller yazılmış durumda. Para birimine göre sıralayıp toplamlarını almak istiyordum.

 

[Mahir64]

10000 in üzerinde satırım var. Her bir satırda farklı para birimleriyle bedeller yazılmış durumda. Para birimine göre sıralayıp toplamlarını almak istiyordum.

MErhaba,
Örnek dosyanızdan bir kesit paylaşın. Bir kaç çözüm bulunmuş soru hatırlıyorum.

 

[bedri41]

10000 in üzerinde satırım var. Her bir satırda farklı para birimleriyle bedeller yazılmış durumda. Para birimine göre sıralayıp toplamlarını almak istiyordum.

Farklı para birimlerini toplamak için sıraya koymanıza gerek yok.

Boş bir modül içerisine aşağıdaki kodları kopyalayıp, USD ve EURO toplamlarını alabilirsiniz. Hiç bir örnek görmeden ancak bu kadar yardım edebilirim.
Kolay Gelsin

Public Function TOPLAUSD( _
ParamArray vInput() As Variant) As Variant
Dim rParam As Variant
Dim rCell As Range
Dim vTemp As Variant

Application.Volatile
On Error GoTo Hata
For Each rParam In vInput
If TypeName(rParam) = "Range" Then
With rParam
For Each rCell In Intersect( _
.Cells, .Cells.Parent.UsedRange)
With rCell
If .NumberFormat = "#,##0.00 [$$-C0C]" Then
If IsError(.Value) Then
vTemp = .Value
Exit For
ElseIf VarType(.Value2) = vbDouble Then
vTemp = vTemp + .Value2
End If
End If
End With
Next rCell
End With
End If
Next rParam
TOPLAUSD = vTemp
Devam:
On Error GoTo 0
Exit Function
Hata:
If Err.Number = 6 Then TOPLAUSD = CVErr(xlErrNum)
Resume Devam
End Function
Public Function TOPLAEURO( _
ParamArray vInput() As Variant) As Variant
Dim rParam As Variant
Dim rCell As Range
Dim vTemp As Variant

Application.Volatile
On Error GoTo Hata
For Each rParam In vInput
If TypeName(rParam) = "Range" Then
With rParam
For Each rCell In Intersect( _
.Cells, .Cells.Parent.UsedRange)
With rCell
If .NumberFormat = "#,##0.00 [$€-1]" Then
If IsError(.Value) Then
vTemp = .Value
Exit For
ElseIf VarType(.Value2) = vbDouble Then
vTemp = vTemp + .Value2
End If
End If
End With
Next rCell
End With
End If
Next rParam
TOPLAEURO = vTemp
Devam:
On Error GoTo 0
Exit Function
Hata:
If Err.Number = 6 Then TOPLAEURO = CVErr(xlErrNum)
Resume Devam
End Function

 

[ElektroNick]

öncelikle yardımlarınız için teşekkür ederim. örnek bir kesit ekledim. Buradan görebilirsiniz. Örnekte göreceğiniz döviz kurlarına göre toplamları alıp, akabinde her kura göre toplamları özet şeklinde ayrı bir yere yazmam lazım.

Sn.Bedri bey, excel'de başlangıç düzeyindeyim diyebilirim. Gönderdiğiniz yazılımı kopyalayıp, nereye yapıştıracağım

 

[bedri41]

öncelikle yardımlarınız için teşekkür ederim. örnek bir kesit ekledim. Buradan görebilirsiniz. Örnekte göreceğiniz döviz kurlarına göre toplamları alıp, akabinde her kura göre toplamları özet şeklinde ayrı bir yere yazmam lazım.

Sn.Bedri bey, excel'de başlangıç düzeyindeyim diyebilirim. Gönderdiğiniz yazılımı kopyalayıp, nereye yapıştıracağım

Göndermiş olduğunuz örnek üzerinde formülleri uyguladım dosyayı ekte gönderiyorum. Makro ile ilgili problem yaşarsanız Makro güvenlik düzeyini düşük olarak seçip kaydederek deneyin.
Kolay Gelsin.

 

[Erdal]

Merhabalar
Eki inceleyiniz.

 

[ElektroNick]

herkese öncelikle çok teşekkür ederim.
Erdal Bey, siz para birimlerini ayrı bir sütuna eklemişsiniz. bunu bir formülle mi yaptınız?

Bedri bey, emeğinize sağlık, makro konusunda bilgim sıfır olduğu için, sizin hazırladığınız modülleri başka bir excele nasıl aktarabilirim?

 

[bedri41]

Bedri bey, emeğinize sağlık, makro konusunda bilgim sıfır olduğu için, sizin hazırladığınız modülleri başka bir excele nasıl aktarabilirim?

Alt F11 tuşları ile excel dosyanızın kod bölümünü açın sol üst köşedeki menü yardımıyla sayfaya bir modül ekleyin bu modül içerisine örnek dosyanız modülü içindeki kodları kopyalayıp yapıştırın.
Veya yukarıdaki örnek dosyayı kulladığınız dosya yapın ve diğer dosyanızdaki verileri bu dosyaya taşıyın.
Son olarakta forumda konu ile ilgili arama yapın pek çok formül yardımıyla yapılmış çözüm bulacaksınız. Bu formüllerden yararlanabilirsiniz.

Kolay Gelsin