(14/12/2023, 16:08)feraz yazdı: Helal olsun.Önemli değilde hata mesajı nedir.Örneğin aklıma gelen değişken tanımlamaması hatası olabilir.

Function benzersizFirmalar(ByVal i As Long) As Dictionary
  Dim dic As Dictionary, son As Long, say As Long, ii As Long, key As String
    say = 0
    Set dic = New Dictionary
    With ThisWorkbook.Worksheets("Özet Tablo")
        son = Worksheets(.Cells(i, 1).Value).Range("C" & Rows.Count).End(3).Row

        If son < 2 Then GoTo sonSub
        For ii = 2 To son
            key = ThisWorkbook.Worksheets(.Cells(i, 1).Value).Range("C" & ii).Value
            dic(key) = dic(key) + 1
        Next
    End With
sonSub:
    Set benzersizFirmalar = dic
End Function


Koyu renkte olan kısmını hata veriyor...

Sayın üstadım anlaşamıyoruz.
Koyu yer neresi?

Öncedende yazmıştım hata mesajı nedir diye.
Tekrar öncedende yazmıştım yolladığım dosya denedinizmi çalışıyormu diye cevap alamadım o dosya için.

Ayruca öncedende yazmıştım ilk ve son eklediğiniz dosya ile yakından uzaktan alakası yok diye zaten kod çalışsa bile sizin ekleyipte benim sildiğim dosyada çalışmaz.

Eğer yollqdığım dosya çalışıyorsa yani doğru sonuç veriyorsa örneğinizi tekrar yükleyin fazla kalabalık sayfa olmasın ve gerçek veriler olmasın.Yok çalışmıyorsa benden bu kadar abey.
Ayrıca Access ile alakası yoktu resimde Access var.
Aynı şeyleri papağan gibi yazıp duruyoruz

(15/12/2023, 10:26)feraz yazdı: Sayın üstadım anlaşamıyoruz.
Koyu yer neresi?

Öncedende yazmıştım hata mesajı nedir diye.
Tekrar öncedende yazmıştım yolladığım dosya denedinizmi çalışıyormu diye cevap alamadım o dosya için.

Ayruca öncedende yazmıştım ilk ve son eklediğiniz dosya ile yakından uzaktan alakası yok diye zaten kod çalışsa bile sizin ekleyipte benim sildiğim dosyada çalışmaz.

Eğer yollqdığım dosya çalışıyorsa yani doğru sonuç veriyorsa örneğinizi tekrar yükleyin fazla kalabqlık sayfa olmasın ve gerçek veriler olmasun.Yok çalışmıyorsa benden bu kadar abey.
Ayrıca Access ile alakası yoktu resimde Access var.
Aynı şeyleri papağan gibi yazıp duruyoruz

Örnek dosyayı koydum, çok teşekkür ederim.

(18/12/2023, 09:25)cdenktas yazdı:

(15/12/2023, 10:26)feraz yazdı: Sayın üstadım anlaşamıyoruz.
Koyu yer neresi?

Öncedende yazmıştım hata mesajı nedir diye.
Tekrar öncedende yazmıştım yolladığım dosya denedinizmi çalışıyormu diye cevap alamadım o dosya için.

Ayruca öncedende yazmıştım ilk ve son eklediğiniz dosya ile yakından uzaktan alakası yok diye zaten kod çalışsa bile sizin ekleyipte benim sildiğim dosyada çalışmaz.

Eğer yollqdığım dosya çalışıyorsa yani doğru sonuç veriyorsa örneğinizi tekrar yükleyin fazla kalabqlık sayfa olmasın ve gerçek veriler olmasun.Yok çalışmıyorsa benden bu kadar abey.
Ayrıca Access ile alakası yoktu resimde Access var.
Aynı şeyleri papağan gibi yazıp duruyoruz

Örnek dosyayı koydum, çok teşekkür ederim.

Merhabalar, tekrar rahatsız ediyorum, dosyaya bakabildiniz mi?

çok teşekkür ederim.

Dosyaya baktım karma karışık ve anlamadım benden bukadar.
Heralde ilk eklediğinize göre çözmüştük ama bu farklı ve neyin ne olduğu belli değil.

Kolay gelsin çözmek isterdim ama beni aştı kusura bakmayın.

(10/01/2024, 12:11)feraz yazdı: Dosyaya baktım karma karışık ve anlamadım benden bukadar.
Heralde ilk eklediğinize göre çözmüştük ama bu farklı ve neyin ne olduğu belli değil.

Kolay gelsin çözmek isterdim ama beni aştı kusura bakmayın.

Tekrar emeğinize sağlık, çok teşekkür ederim.