Şehirlerin Toplamları Hk.

[Mdemir63]

Selamlar

Ekteki dosyada Kodlar Toplamı doğru yapıyor,
ancak şehir ismini yanlış getiriyor. Kodlarda ne gibi değişikli yapmam gerektiğini çözemedim.


Saygılar

 

[Mdemir63]

Selamlar

Bu kodlar Tek şehir ismini getiriyor.
Nedenini bulamadım

Sub SehirToplam()
      'Microsoft Scripting Runtime Modülü Yüklenmeli
      Dim dic As New Dictionary: Dim arr As Variant: Dim i As Long
      Dim j   As Long: Dim k  As Variant: Dim n  As Integer
      Range("J1").CurrentRegion.Offset(1).ClearContents
      arr = Range("A1").CurrentRegion.Value
      j = 0
      For i = LBound(arr, 1) To UBound(arr)
          k = arr(i, 1)
          If Not dic.Exists(k) Then
              j = j + 1
              dic.Add k, j
              arr(j, 2) = arr(i, 3)
          Else
              arr(dic.Item(k), 2) = arr(dic.Item(k), 2) + arr(i, 3)
          End If
      Next i
      Range("J1").Resize(j, 2) = arr
End Sub

 

[Mdemir63]

Arkadaşlar konu güncel

 

[veyselemre]

 

[Mdemir63]

@veyselemre Hocam Elinize sağlık.
Çok teşekkür ederim

Saygılar