kullanılan işlem adlarını belirlemek

[Erdem Akdemir]

örnek dosyada kullanılan işlem adlarını belirlemek istiyorum

kendi başıma özet tablo yapabilmek için, işlem adlarını nasıl sarı bölgeye yazdırabilirim

 

[ozgretmen]

Aşağıdaki kodu dener misin ?

Sub listele()
Columns("J:J").ClearContents
For i = 3 To [C65536].End(3).Row
If WorksheetFunction.CountIf(Range("C3:C" & i), Range("C" & i).Value) = 1 Then
k = k + 1
Cells(k + 6, "J").Value = Cells(i, "C").Value
End If
Next i
End Sub

 

[Erdem Akdemir]

tebrikler çok başarılısınız

fonksiyonlar ile yapılabilir mi

 

[Necdet]

Merhaba,

Alternatif, Fonksiyon yada VBA kullanmadan :

• C2:C230 seçiniz
• Veri
• Gelişmiş Filtreleme
• Başka Bir yere kopyalama
• Hedef : J6
• Yalnızca benzersiz kayıtlar
• TAMAM

 

[ozgretmen]

tebrikler çok başarılısınız

fonksiyonlar ile yapılabilir mi

Rica ederim.İyi çalışmalar...

 

[Erdem Akdemir]

Merhaba,

Alternatif, Fonksiyon yada VBA kullanmadan :

• C2:C230 seçiniz
• Veri
• Gelişmiş Filtreleme
• Başka Bir yere kopyalama
• Hedef : J6
• Yalnızca benzersiz kayıtlar
• TAMAM

devam eden bir listeye gireceğim ve ben kullanıyacağım, işyerindekiler kullanacak, fonksiyon ile nasıl yapılabilir

 

[Erdem Akdemir]

üstadlar yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Selamlar,

Forumda daha önce bu konu işlenmişti. Örnekler mevcut arasaydınız bulabilirdiniz. Aşağıdaki formülü deneyiniz.

DİZİ formülüdür hücreye uyguladıktan sonra CTRL+SHIFT+ENTER tuşlarına basarak formülü tamamlayınız.

J7 hücresine uygulayınız.

=EĞER(SATIRSAY($C$3:C3)<=TOPLA(EĞER(SIKLIK(EĞER($C$3:$C$1000<>"";KAÇINCI("~"&$C$3:$C$1000;$C$3:$C$1000&"";0));SATIR($C$3:$C$1000)-SATIR(C3)+1);1));İNDİS($C$3:$C$1000;KÜÇÜK(EĞER(SIKLIK(EĞER($C$3:$C$1000<>"";KAÇINCI("~"&$C$3:$C$1000;$C$3:$C$1000&"";0));SATIR($C$3:$C$1000)-SATIR($C$3)+1);SATIR($C$3:$C$1000)-SATIR($C$3)+1);SATIRSAY($C$3:C3)));"")

 

[Erdem Akdemir]

Aşağıdaki kodu dener misin ?

Sub listele()
Columns("J:J").ClearContents
For i = 3 To [C65536].End(3).Row
If WorksheetFunction.CountIf(Range("C3:C" & i), Range("C" & i).Value) = 1 Then
k = k + 1
Cells(k + 6, "J").Value = Cells(i, "C").Value
End If
Next i
End Sub

sonuçları sayfa2 a1 hücresine nasıl yazdırabilirim ve karşılarınada toplamlarını yazdırmak istiyorum sadece makro ile

 

[modoste]

Syn Korhan Ayhan Hocam Benzersiz kayıtlarda görüğüm her örnekte önce 1-2 ler gibi numaralandırmalar olur sonra istenen tabloya geçilirdi tek seferde yapılamazmı diyodum (vardı da ben bilmiyodum tabiikide)
çok tşkkrler bu formülleme için

 

[Erdem Akdemir]

yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Selamlar,

Sn. kuvari,

#8 nolu mesajımdaki formülü denedinizmi. Sanırım gözünüzden kaçtı.

 

[Ergün Güler]

Selamlar,

Forumda daha önce bu konu işlenmişti. Örnekler mevcut arasaydınız bulabilirdiniz. Aşağıdaki formülü deneyiniz.

DİZİ formülüdür hücreye uyguladıktan sonra CTRL+SHIFT+ENTER tuşlarına basarak formülü tamamlayınız.

J7 hücresine uygulayınız.

=EĞER(SATIRSAY($C$3:C3)<=TOPLA(EĞER(SIKLIK(EĞER($C$3:$C$1000<>"";KAÇINCI("~"&$C$3:$C$1000;$C$3:$C$1000&"";0));SATIR($C$3:$C$1000)-SATIR(C3)+1);1));İNDİS($C$3:$C$1000;KÜÇÜK(EĞER(SIKLIK(EĞER($C$3:$C$1000<>"";KAÇINCI("~"&$C$3:$C$1000;$C$3:$C$1000&"";0));SATIR($C$3:$C$1000)-SATIR($C$3)+1);SATIR($C$3:$C$1000)-SATIR($C$3)+1);SATIRSAY($C$3:C3)));"")

Selam Sayın Korhan Ayhan,
Harika bir formül.. yardımcı hücre kullanmadan mükerrer kayıtları yazmıyor.
bu siteden "mükerrer kayıt örnekleri" adlı dosya indirmiştik. Ancak, içeriğinde sizin kullandığınız kodlar yok. bu dosyayı güncellenip yeniden sunulsa iyi olur.

ikincisi;
benzer şekilde yardımcı hücre kullanmadan metinleri hem benzersiz hem de alfabetik sıralanabilir mi?
İyi çalışmalar.