Sütundaki veriye göre Eğersay

[Bakigemlik]

Merhaba,

Ekli dosya hakkında desteğinizi rica ederim,

Teşekkürler,

 

[aliveli06]

Tarifinize göre dosyanızda izmir=4 ankara=2 olması lazım değilmi

 

[Bakigemlik]

Evet sayılar aşağıdaki gibi olmalı

Ankara 2
Bursa 6
Adana
Yozgat 4
Yalova 3
izmir 4
Adıyaman 1

 

[aliveli06]

sorunuzun makro ile çözümü linktedir. Veri sayfanızdaki şehir isimleri ile
11.09.2014 sayfanızdaki şehir isimlerinin aynı olmasına dikkat ediniz.

Sub sayy()
Dim s1 As Worksheet, sv As Worksheet, sayaç As Integer, sayaç2 As Integer
Set s1 = Sheets("11.09.2014")
Set sv = Sheets("veri")
Application.ScreenUpdating = False
sv.Range("b2:b100").ClearContents
    For y = 2 To sv.Range("a65536").End(3).Row
        For i = 3 To s1.Range("a65536").End(3).Row
            If s1.Cells(i, 3) = sv.Cells(y, 1) Then
            sayaç = sayaç + 1
            End If
                If s1.Cells(i, 3) = "" Then
                    If s1.Cells(i, 2) = sv.Cells(y, 1) Then
                        sayaç2 = sayaç2 + 1
                    End If
                End If
        Next i
    sv.Cells(y, 2) = sayaç + sayaç2
    sayaç = Empty
    sayaç2 = Empty
    Next y
Application.ScreenUpdating = True
End Sub

 

[Bakigemlik]

Merhaba,

Öncelikle çözüm için teşekkürler,

Bunu formulle yapmanın imkanı yokmudur, şu nedenle söylüyorum her shette benim farklı bir tarih var ve ben veri sayfasında bu shetlerdeki verileri girdikçe görmek istiryorum,

Teşekkürler,

 

[aliveli06]

formülle yapılabilirmi bilmiyorum ama yapılıyorsa eğer üstadlar yardım edeceklerdir iyi çalışmalar.