Sıralama ve Saydırma

[apulat]

Arkadaşlar elimde aşağıdaki gibi bir liste var bu listede B sütunuda aralarında boşluk, tek ve mükerer olan olan sayılar yazıyor
sizden yarcımınızı istiyorum uygun bulursanız

İsteğim şu:
B sütunuda alt alt bulunan satırlar kontrol edilerek dolu olan satırlar sayılacak ama mükerrer olanlardan sadece bir tanesi sayılacak ve toplam kaç adeti mükerer olmayan kayıt varsa o değer c1 sütununa Toplam X kayıt var yazacak
Bunu Yapacak bir macro kodu lazım yardımcı olursanız sevinirim
Not: Program Accesste yapıldı datalar excele gönderiyor gönderme tamamamlandıktan sonra bu işlemi yapmasını istiyorum
Saygılarımla

S.No Sayı
1 350780
2 350780
3 350780
4 350780
5 123456
6 357436
7 329323
8 355485
9 344114
10 319783
11 389769
12 389768
13 357233
14 350780
15 350780
16 350780
17 350780
18 350780
19 350780
20 350780
21 350780
22 350780
23 350780
24 350780
25 226923
26 226923
27 123456
28 123456
29 291369
30 291369
31 316260
32 320953
33 114461
34 306587
35 310801
36 315909
37 319298
38 346980
39 312780
40 309819
41 252673
42 252673
43 358795
44 306911
45 329323
46 329323
47 319783
48 358795
49 359062
50 357436
51 359062
52 319783
53 312780
54 357436
55 306911
56
57
58
59
60
61
178 123456
179 358795
180 312780
181 252673
182 306911
183 357436
184 329323
185 319783
186
187
188
189
190 226923
191 79909
192 358622
193 358622
194 322070
195 300643
196 159622
197 355485
198 319783
199 322727
200 357436
201 344114
202 356495
203 389769
204 332973
205 389768
206 332973
207 359062
208 315776
209 155803
210 329323
211 155803
212
213
214
270 203244
271 203244
272 203244
273 203244
274 358795
275 312780
276 357436
277 252673
278 329323
279 306911
280
281 339646
282 339646
283 339646
284 315776
285 315776
286

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub kontrol()
benzersiz = 0
For i = 2 To Cells(Rows.Count, "B").End(3).Row
If Cells(i, "B") <> "" And WorksheetFunction.CountIf(Range("B1:B" & i - 1), Cells(i, "B")) = 0 Then
benzersiz = benzersiz + 1
End If
Next
[C1] = benzersiz
MsgBox ("B sütununda " & benzersiz & " adet benzersiz değer bulundu ve C1 hücresine yazıldı")
End Sub

 

[apulat]

Sayın YUSUF44
İlginiz için teşekkürler denedim fakat sadece değeri 1 olarak gösteriyor

S.N. Sayı Toplam (37) kayıt bulunmaktadır
1 114461
2 155803
3 159622
4 203244
5 226923
6 252673
7 291369
8 300643
9 306587
10 306911
11 309819
12 310801
13 312780
14 315776
15 315909
16 316260
17 319298
18 319783
19 320953
20 322070
21 322727
22 329323
23 332973
24 339646
25 344114
26 346980
27 350780
28 355485
29 356495
30 357233
31 357436
32 358622
33 358795
34 359062
35 389768
36 389769
37 79909

Toplam (37) kayıt bulunmaktadır. şeklinde vermesi lazım

 

[PLİNT]

Merhaba
Kodları kopyalarken yanlışlık yapmış olmayasınız,
Örnek dosya eklerseniz http://s6.dosya.tc/

 

[apulat]

=EĞER(EĞERSAY(Z2:Z&i;veri)=0;Toplam=Toplam+1;"")


ben excele =EĞER(EĞERSAY(Z2:Z113;Z1)=0;"1";"") bu şekilde yaptırdığım zaman ve değerlerin bulunduğu satır kadar aşağıya çektirince benzersiz kayıtlara 1 atayıp sonrada toplayarak sonuca erişiyorum
fakat ilk satırda verdiğim kodu vb koduna dönüştüremedim

yapmak istediklerim
Z2 Sabit sütun
Z & i(değişken artan döngü)
Veri datadan aldığı değer (her aldığı değeri atadığı ilk sütunla son atadığı sütun aralığını değeri kontrol edecek)
Eğer aldığı değer atadıkları arasında yoksa kaldığı bir alt sütunu yeni değeri atayacak
değer yoksa pas geçecek

 

[Ömer BARAN]

Merhaba.
Benzersiz veri adedini bulmak için;
aşağıdaki konu sayfasında, konu açılış mesajındaki mavi renkli olan formülü kullanabilirsiniz. Bir bakın isterseniz.

Benzersiz veri adeti bulma yöntemi
.

 

[YUSUF44]

Benim kodlarımın doğru sonucu verdiğine emin olabilirsiniz. İsterseniz Veri menüsünden Yinelenenleri Kaldır seçeneğiyle teke indirin ve sayın ya da daha az verili bir örnekte çalıştırın.

 

[apulat]

Sayın Sayın YUSUF44
Sizden özür diliyorum
Haklısınız Vermiş olduğunuz kodu excele kopyalarak net ve doğru sonuç aldım
Tekrar yaptığım hatadan dolayı sizden özür diliyorum
Ben acceste bir proje de dataları excele filitre uygulayarak gönderdim burada göndermiş olduğum datada vermiş olduğum listedeki sizin verdiğiniz işlemi yapmak istedi ve kodunuzu burada çalıştırdım fakat sonuç sadece 1 yazıyor doğru sonuca ulaşamıyorum
sizden rica etsem bunu accese uyarlayabilirmisiniz

saygılarımla

 

[apulat]

Sayın Yusuf44
WorksheetFunction.CountIf(Range("B1:B" & i - 1), Cells(i, "B")) = 0 kısmı veya formülün tamamını adım adım ne yaptığını hangi kısım ne yaptığını anlatabilirmisiniz buna göre accesde kod yazmaya çalışayım
saygılarımla

 

[YUSUF44]

Estağfurullah, işiniz görüldüyse problem yok.

Access konusunda hiç bilgim yok maalesef. O konuda yardımcı olamayacağım.

WorksheetFunction.CountIf(Range("B1:B" & i - 1), Cells(i, "B")) = 0

Kodun bu kısmında EĞERSAY formülünü çalıştırıyoruz. Bu formülü örneğin formül olarak C5 hücresine girdiğinizde şu şekilde olacaktır (bu durumda i'yi 5 kabul etmiş oluyoruz)

=EĞERSAY($B$1:$B4;B5)

Bu formül B1:B4 aralığında B5'ten kaç tane olduğunu buluyor.

Kodun o satırı ise if ile birlikte diyor ki "EğerB1:B4 aralığında B5, 0 tane varsa yani hiç yoksa"

Bu kodu ya da formülü genelde o satırdaki verinin sütunda ilk kez geçtiği yeri bulmak için kullanıyoruz. Kodun devamında da diyoruz ki "yeni bir veri bulundu, öyleyse benzersiz veri sayısını 1 arttır". Kod sizin benzersizleri bulmak için kullandığınız formüle benzer bir mantık taşıyor.

 

[apulat]

Teşekkürler YUSUF44 bey