killer
başlıktan da anlaşılacağı üzere, ekteki resimdeki tablodan, aynı isimleri 1er defa saydırmak suretiyle toplam değeri hesaplatmaya çalışıyorum. mesela resimde, 12 satırlık dizi isimleri var ama bunların içinde aynı olanları sadece 1er kez saydırırsak, toplamda 6 dizi ediyor.mesela =countif(A:A,"=Coup
başlıktan da anlaşılacağı üzere, ekteki resimdeki tablodan, aynı isimleri 1er defa saydırmak suretiyle toplam değeri hesaplatmaya çalışıyorum. mesela resimde, 12 satırlık dizi isimleri var ama bunların içinde aynı olanları sadece 1er kez saydırırsak, toplamda 6 dizi ediyor.
mesela =countif(A:A,"=Coupling") yazarsam 2 değeri döndürülüyor ama bana öyle bir kod lazım ki, bu sayma işlemini tüm A:A için yapacak ve aynı hücreler 1'den fazla sayılmayacak ki böylece elimde bulunan toplam dizi adetini hesaplatabileyim.
mesela =countif(A:A,"=Coupling") yazarsam 2 değeri döndürülüyor ama bana öyle bir kod lazım ki, bu sayma işlemini tüm A:A için yapacak ve aynı hücreler 1'den fazla sayılmayacak ki böylece elimde bulunan toplam dizi adetini hesaplatabileyim.
0
A kolonunu sıralı varsayarsak; B kolonunda bu işi yapabilirsiniz. B2 ye "=IF(A2=A1;0;1)" yazıp bunları aşağıya devam ettirirseniz B kolonunun toplamı tekil toplamı verir.
0
anladım. teşekkürler cevap için yalnız bu şekilde yapınca 2 aşamalı oluyor. doğru işlem yaptırılıyor ama her seferinde liste sonuna kadar çekip uzatmak zahmetli olacak gibi. birde görsel açıdan pek hoşuma gitmedi. gerçi o sutün gizlenebiliyor ama dediğim gibi yeni tabloya yeni diziler ekledikçe, toplamın hesaplandığı o sütunu yeniden açıp son hücrelerini düzenlemek gerekiyor.
tek aşamalı olarak bu işlemi yapamaz mıyız yani? hazır fonksiyonları kullanarak, hatta ne bileyim, array formullerle fln olamaz mı? illa macro mu yazmak lazım? öyle bi cevap bekledim fakat yoksa da ne yapalım artık, mecburen bu şekilde yapacağım.
tek aşamalı olarak bu işlemi yapamaz mıyız yani? hazır fonksiyonları kullanarak, hatta ne bileyim, array formullerle fln olamaz mı? illa macro mu yazmak lazım? öyle bi cevap bekledim fakat yoksa da ne yapalım artık, mecburen bu şekilde yapacağım.
0
tam olarak istediğiniz değil ama belki yardımcı olur;
- alt + f11 yaparak vba düzenleyicisini açın
- insert -> module dedikten sonra aşağıdaki kodu yapıştırın
Function Benzersiz(Aralik As Range, i As Integer)
Application.Volatile
Dim ciftolmayan As New Collection
For Each ce In Aralik
On Error Resume Next
ciftolmayan.Add ce, CStr(ce)
Next ce
If i > ciftolmayan.Count Then
Benzersiz = ""
Else
Benzersiz = ciftolmayan(i)
End If
End Function
daha sonra vba düzenleyicisini kapatıp B1 hücresine aşağıdaki formülü yazıp tüm hücrelere kopyalayın
=Benzersiz($A$1:$A$5000;SATIR())
B1 den başlayarak verileri tekrar etmeden isteler.
not: formül ve kod excel.web.tr'den araktır. detaylı dosya için; www.excel.web.tr
- alt + f11 yaparak vba düzenleyicisini açın
- insert -> module dedikten sonra aşağıdaki kodu yapıştırın
Function Benzersiz(Aralik As Range, i As Integer)
Application.Volatile
Dim ciftolmayan As New Collection
For Each ce In Aralik
On Error Resume Next
ciftolmayan.Add ce, CStr(ce)
Next ce
If i > ciftolmayan.Count Then
Benzersiz = ""
Else
Benzersiz = ciftolmayan(i)
End If
End Function
daha sonra vba düzenleyicisini kapatıp B1 hücresine aşağıdaki formülü yazıp tüm hücrelere kopyalayın
=Benzersiz($A$1:$A$5000;SATIR())
B1 den başlayarak verileri tekrar etmeden isteler.
not: formül ve kod excel.web.tr'den araktır. detaylı dosya için; www.excel.web.tr
0
teşekkürler. bu macro da tam olarak istediğimi yapmıyor ama sanırım bunu biraz daha geliştirebilirim.
0
sağolun ama gerek kalmadı. mahallenindelisi'nin verdiği koddaki gereksiz yerleri silip, aşağıdaki işlemleri yaptığımda sorun çözüldü.
---------------------------------------------
Function Benzersiz(Aralik As Range)
Application.Volatile
Dim ciftolmayan As New Collection
For Each ce In Aralik
On Error Resume Next
ciftolmayan.Add ce, CStr(ce)
Next ce
Benzersiz = ciftolmayan.Count
End Function
---------------------------------------------
toplam dizi sayısını belirteceğim hücreye de:
"=Benzersiz($A$2:$A$1000)-1" yazmam yeterli oldu.
(dizi isimleri A2'den başladığı için)
böylece tabloya her eklediğim yeni satıra, yeni bir dizi ismi girdiğimde, toplam dizi adetini yazdırdığım hücre otomatik olarak güncelleniyor.
ilginize teşekkürler.
---------------------------------------------
Function Benzersiz(Aralik As Range)
Application.Volatile
Dim ciftolmayan As New Collection
For Each ce In Aralik
On Error Resume Next
ciftolmayan.Add ce, CStr(ce)
Next ce
Benzersiz = ciftolmayan.Count
End Function
---------------------------------------------
toplam dizi sayısını belirteceğim hücreye de:
"=Benzersiz($A$2:$A$1000)-1" yazmam yeterli oldu.
(dizi isimleri A2'den başladığı için)
böylece tabloya her eklediğim yeni satıra, yeni bir dizi ismi girdiğimde, toplam dizi adetini yazdırdığım hücre otomatik olarak güncelleniyor.
ilginize teşekkürler.
0
killer
12 sene kadar önce tv'de izlemiştim bunu...kısa bi özet geçecek olursam; ölen bir karatecinin -ki sanırım filmde bruce lee idi- "ruhu" -bildiğin ruh-, filmin baş rol oyuncusu olan çocuğa yardım etmek amacıyla -karate öğretmek- geri döner ve olaylar gelişir.bu filmi hatırlayan var mı acaba?
12 sene kadar önce tv'de izlemiştim bunu...kısa bi özet geçecek olursam; ölen bir karatecinin -ki sanırım filmde bruce lee idi- "ruhu" -bildiğin ruh-, filmin baş rol oyuncusu olan çocuğa yardım etmek amacıyla -karate öğretmek- geri döner ve olaylar gelişir.
bu filmi hatırlayan var mı acaba?
bu filmi hatırlayan var mı acaba?
0
ben aynı filmin chuck noris lisini hatırlıyorum..
chuck noris dönüyordu oğlan turnuvalara katılıyordu,
kazanıyordu vesaire
chuck noris dönüyordu oğlan turnuvalara katılıyordu,
kazanıyordu vesaire
0
killer
...sanırım formula1 yarışlarıyla ilgili bir filmdi, tam olarak hatırlayamıyorum.filmdeki esas kişimiz, yarıştığı sırada kontrolünü kaybedip hafiften havalanıyor-uçuyor- ve reklam panolarına çarpıp kaza yapıyordu.filmde ise bu noktada acayip bi olay oluyordu lakin orasını da tam olarak hatırlayabilmi
...sanırım formula1 yarışlarıyla ilgili bir filmdi, tam olarak hatırlayamıyorum.filmdeki esas kişimiz, yarıştığı sırada kontrolünü kaybedip hafiften havalanıyor-uçuyor- ve reklam panolarına çarpıp kaza yapıyordu.filmde ise bu noktada acayip bi olay oluyordu lakin orasını da tam olarak hatırlayabilmiş değilim..ya adam geleceğe gidiyordu ya da geçmişe gidip bi takım olayları çözüyordu.bu tarz ilgimi çekecek bi şeyler olmuştu yani.
birde bundan 10-15 yıl kadar önce, başrollerinde uzaylı bir ördeğin oynadığı fantastik bir film izlemiştim.filmin sonunu söylemek gibi olmasın ama final sahnesinde, bu bizim uzaylı ördeğimiz, bir araca binip kötülere ateş edip saf dışı bırakmaya fln çalışıyordu..
evet, bu filmlerin isimlerini hatırlayan var mı acaba? pls lfn tşk.
birde bundan 10-15 yıl kadar önce, başrollerinde uzaylı bir ördeğin oynadığı fantastik bir film izlemiştim.filmin sonunu söylemek gibi olmasın ama final sahnesinde, bu bizim uzaylı ördeğimiz, bir araca binip kötülere ateş edip saf dışı bırakmaya fln çalışıyordu..
evet, bu filmlerin isimlerini hatırlayan var mı acaba? pls lfn tşk.
0
harrold the duck idi galiba ikincisi.
ilkini de izledim ama adını hatırlayamıyorum. konu da flu baya sanki bir diziydi gibi geliyor o yüzden emin değilim hatırlayan çıkar.
ilkini de izledim ama adını hatırlayamıyorum. konu da flu baya sanki bir diziydi gibi geliyor o yüzden emin değilim hatırlayan çıkar.
0
0
