Tabloda eşit değerlir belirleme

[cagdasuzun]

selamlar

uzunca bir tabloda birbirine eşit olan değerleri bulmak istiyorum.

 

[mami68]

Merhabalar,

örnek bir dosya eklerseniz,daha sağlıklı cevap alırsınız,

iyi çalışmalar.

 

[cagdasuzun]

ekte ne yapmak istedğimi daha ayrıntılı şekilde yazdım. yardımcı olursanız sevinirim

 

[cagdasuzun]

biraz önce yollayamadım galiba, şimdi yolluyorum

 

[Orion1]

Dosyanız ektedir.

Sub benzersiz()
Dim i As Long, son As Long, sat As Long
son = Cells(65536, "A").End(xlUp).Row
sat = 3
Application.ScreenUpdating = False
Range("E3:F65536").ClearContents
For i = 3 To son
    If WorksheetFunction.CountIf(Range("A3:A" & i), Cells(i, "A").Value) = 1 Then
        Cells(sat, "E").Value = Cells(i, "A").Value
        Cells(sat, "F").Value = WorksheetFunction.SumIf(Range("A" & i & ":A" & son), _
        Cells(i, "A").Value, Range("B" & i & ":B" & son))
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı" & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[cagdasuzun]

konuyla ilgilenmeniz ve zamanınızı ayırdığınız için teşekkürler.

eşit olanları bulma işlemini kod kullanmadan yapabilseydik çok güzel olacaktı(kodlarla oynayıp kendi tabloma uyarlamak epey zor oluyor). saat çok geç oldu benim için yarın işi gitmem lazım.

yardımınız için teşekkürler. yarın aynı konu altında birkaz sorum daha olacak. daha ayrıntılı bir örnekle sorumu sorarım artık. şimdi iyi geceler.

tekrar teşekkürler.

 

[mami68]

Merhabalar,

aradığınız formül ile hazırlanmıştır.

İyi çalışmalar.

 

[mustafaine1]

formulunuzdeki svek taniminin anlami nedir acaba; anlamaya calisiyorum formulunuzu

 

[mami68]

Merhabalar,

Satır_Vektörün kısa anlamı Svek,Svek adında AdTanımla'mada Satır formülü uygulanmıştır.

=SATIR(Data!$A$3:$A$1000)-SATIR(Data!$A$3)+1

 

[mustafaine1]

Tesekkurler konu ile ilgili daha fazla bilgi edinip sayende konuya adapte olmus olacagim tesekkurler... Ad tanimlandigi hic aklima gelmemisti dusunuyorum bende ne ise yariyo bu fonksiyon allah allah diye

 

[cagdasuzun]

selamlar

tablo üstünde epeyce çalıştım fakat verdiğiniz fonksiyonu başka sayfaya kopyaladığımda hep hata veriyo. anladığım kadarıyla svek fonksiyonuyla ilgili birşey.. bu konuyu biraz daha ayrıntılı şekilde açıklayabilirmisiniz. svek fonksiyonu tam olaak ne işe yarıyo nasıl kulanılıyo vs. vs.

ilginiz için teşekkürler

 

[mustafaine1]

svek bir fonksiyon degil ad tanimlama, ben baska sayfaya aldim calisti bi yerde hata olmustur.

 

[cagdasuzun]

selamalar

ad tanımlama orda ne işe yarıyo o zaman, soruyu böyle sorayım

başka çalışma kitabında kullanmaya çalıştım(ceğişik kod sayısı yazan yerin içindekini aynen kopyaladım. yeni sayfada biryere yapıştırdım. ctrl shift enter deyip onayladım). normalde aynı işlemi yapar diye düşündüm olmadı.

 

[cagdasuzun]

şimdi tekrar denedim aynı excel dosyasında yeni sayfa açınca çalışıyor fakat yeni bir excel dosyası açtığımda çalışmıyo.

ben bu fonksiyonlar kendi sayfamda kullanacağım için nasıl yapılıyor öğrenmem lazım.

çalışmayan örnek sayfayıda ekteyolluyorum.

 

[cagdasuzun]

iyi akşamlar arkadaşlar

son sorduum soruya vereceğiniz cevabı merakla bekliyorum...

 

[mami68]

Merhabalar,

sorduğunuz soru,önceki mesajları ve gönderdiğim dosyanın içinde araştırma yapmış olsaydınız her türlü sorunu çözerdiniz.Çözmeniz için hemen cevap vermedim.Öylesine daha iyi öğrenirdiniz.Ama bu şekilde iyi bir excelci olamazsınız.

Yeni dosyanızdaki Sayfa1-de
E1=

=TOPLA(EĞER(SIKLIK(EĞER(B3:B1000<>"";KAÇINCI("~"&B3:B1000&"";B3:B1000&"";0));SATIR(Sayfa1!$B$3:$B$1000)-SATIR(Sayfa1!$B$3)+1);1))

E2=Dizi formülüdür {},formülü aşağı doğru kopyalayınız.

=EĞER(SATIRSAY($E$2:E2)<=$E$1;İNDİS($B$3:$B$1000;KÜÇÜK(EĞER(SIKLIK(EĞER($B$3:$B$1000<>""; KAÇINCI("~"&$B$3:$B$1000&"";$B$3:$B$1000&"";0));SATIR(Sayfa1!$B$3:$B$1000)-SATIR(Sayfa1!$B$3)+1);SATIR(Sayfa1!$B$3:$B$1000)-SATIR(Sayfa1!$B$3)+1);SATIRSAY($E$2:E2)));"")

F2=Etopla formülünü dosyadan alınız.

İyi çalışmalar.

 

[mustafaine1]

AD tanimlamamissiniz ad tanimlayip ismine svek verdiginiz takdirde tanimladiginiz ada

=ROW(Sayfa1!$B$3:B$1000)-ROW(Sayfa1!$B$3)+1

yazarsaniz calisacaktir.. hatta dosyanizi ekliyeyim..

 

[cagdasuzun]

iyi akşamlar

formüllerin üstünde biraz fazla durmuşum . ad tanımlamayı ne demek olduğunu biliyordum ama nasıl kullanıldığını açıkçası yeni öğrendim(burda sizin yazmanıza rağmen sorunun tek sorumlusunun ad tanımlaması olduğunu son mesajlarda anladım) . son yazdığınız açıklamalar gerçekten çok yararlı oldu.

ayrıca bu aralar işlerim çok yoğun hem işimi yapmaya çalışıyorum hemde excelle işimi dahada kolaylaştırmaya çalışıyorum bundan dolayı yardımlarınızı esirgemediğiniz için teşekkür ederim.

 

[mustafaine1]

Kendi adima ricalar cagdasuzun, bende ayrica mami68`e tesekkur ederim formulleri icin..

 

[mami68]

Selam,

faydalı olduğuna sevindim,

iyi çalışmalar.