(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
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.