0 (sıfır) değerler grafikte görünmesin

[magnesia]

Arkadaşlar selam.
Ekteki dosyada görüleceği üzere, "C" sütunundaki değer -0- (sıfır) ise bu verinin grafikte görünmemesini sağlayabilir miyim?
Şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Listenize filtre uygulayıp "0" ların görünmesini engellerseniz grafikte de görünmez.

 

[magnesia]

Sayın dalgalikur.
Öncelikle ilginize ve emeğinize teşekkür ederim.
O çözümü biliyordum. Ancak, ben dosyanın kısa halini yolladım. Dosyanın A ve B sütunlarındaki veriler başka yerden formülle geliyor..
Verdiğiniz çözümün dışında bir çözüm bana daha uygun. (Varsa tabii ki..)
Tekrar teşekkürler.

 

[tamer42]

Sayın dalgalikur.
Öncelikle ilginize ve emeğinize teşekkür ederim.
O çözümü biliyordum. Ancak, ben dosyanın kısa halini yolladım. Dosyanın A ve B sütunlarındaki veriler başka yerden formülle geliyor..
Verdiğiniz çözümün dışında bir çözüm bana daha uygun. (Varsa tabii ki..)
Tekrar teşekkürler.

Ekli dosyayı inceler misin, umarım işini görür....

 

[magnesia]

Sayın tamer42.
İşlem tamam.. İlginize ve emeğinize teşekkür ederim.
Ek bir sorum olacak.
Bu tabloyu;

Private Sub Worksheet_Activate()
Range("A2: D" & [A36].End(3).Row).Sort Key1:=Cells(1, "D")
End Sub

kodlarıyla, D sütunu baz alınarak, BÜYÜKTEN KÜÇÜĞE sıralatmak istiyorum fakat küçükten büyüğe sıralıyor.

Sub sirala()
Range("A2: D" & Range("B36").End(3).Row).Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub

kodlarıyla isteğim oluyor fakat bu sefer de listenin sonundaki #YOK yazılı satırlar en başa geliyor.
Bu #YOK uyarılarının görünmemesi için ne yapabilirim?

 

[tamer42]

Sayın tamer42.
İşlem tamam.. İlginize ve emeğinize teşekkür ederim.
Ek bir sorum olacak.
Bu tabloyu;

Private Sub Worksheet_Activate()
Range("A2: D" & [A36].End(3).Row).Sort Key1:=Cells(1, "D")
End Sub

kodlarıyla, D sütunu baz alınarak, BÜYÜKTEN KÜÇÜĞE sıralatmak istiyorum fakat küçükten büyüğe sıralıyor.

Sub sirala()
Range("A2: D" & Range("B36").End(3).Row).Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub

kodlarıyla isteğim oluyor fakat bu sefer de listenin sonundaki #YOK yazılı satırlar en başa geliyor.
Bu #YOK uyarılarının görünmemesi için ne yapabilirim?

Bu konuda diğer Üstadlar yardımcı olabilir diye düşünüyorum

 

[magnesia]

Teşekkürler..

 

[magnesia]

Sayın tamer42.
Sakın yanlış anlamayın lütfen.. "Diğer üstadlar" derken??

 

[tamer42]

Sayın tamer42.
Sakın yanlış anlamayın lütfen.. "Diğer üstadlar" derken??

Sayın tamer42.
Sakın yanlış anlamayın lütfen.. "Diğer üstadlar" derken??

Sizin bu sorunuz Beni aşan bir durum olduğu için; Forumdaki Üstatların yardımcı olabileceğini düşünmüştüm.

 

[Merhum İdris SERDAR]

.

Aşağıdaki makro ile veriler büyükten küçüğe sıralanır.

Private Sub Worksheet_Change(ByVal Target As Range)

Range("A1:C20").Sort Key1:=Range("C2"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Aşağıdaki dinamik alanlarla grafik 0'ları dikkate almaz.

veri    =OFFSET('En çok DÖF açılan bölümler'!$C$2;0;0;COUNTIF('En çok DÖF açılan bölümler'!$C$2:$C$20;">0");1)
xetiket    =OFFSET('En çok DÖF açılan bölümler'!$A$2;0;0;COUNTIF('En çok DÖF açılan bölümler'!$C$2:$C$20;">0");1)

Dosyanız ekte.


.

 

[magnesia]

Sayın İdris Serdar.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Büyükten küçüğe sıralama sorunsuz çalıştı. Ancak, sıfırları görmeyen kodlar çalışmıyor. Satırların ikisi de kırmızıya boyanıyor. Ukalalığımı bağışlayın lütfen ama sanırım parantezlerde bir sorun var.

 

[Merhum İdris SERDAR]

.

Onlar VBA kodu değil. Dinamik alan tanımlamada kullanılan formüllerdir.

.

 

[magnesia]

Onu nerede, nasıl kullanılacağını bilmiyorum.

 

[Merhum İdris SERDAR]

.

Eklediğim dosyada, Formüller > Ad yöneticisine bakarsanız orada formülleri görürsünüz.

.

 

[magnesia]

Tamamdır sayın İdris Serdar. Şu an bilgisayar başında değilim. Sonuçtan mutlaka haber veririm.
Tekrar tekrar teşekkürler.

 

[magnesia]

Sayın İdris Serdar.
İşlem tamam..
Teşekkür ederim.