Sabit grafik değer alanında değeri 0 olan kodların görülmemesi

[ockucukay]

Merhaba Arkadaşlar

Forumda arattım ama böyle birşey daha önce yapılmamış sanırım.Benim sorunum şu: Elimde bir veri dosyası var. Formülize edilmiş sabit bir alanda yapılan seçimlere göre veriler elde ediliyor. Örneğin başlangıç tarihi, bitiş tarihi ve parça noyu seçtiğinizde parça adı, müşteri, bölüm gibi bilgiler otomatik olarak seçiliyor ve bu bilgilere göre formüllü alanda gerekli veriler topla çarpımla elde ediliyor. Kodlar parçalara göre değişken olduğundan grafik değer aralığını öyle tanımlamam lazımki, sadece 0'dan büyük değerli miktarları ve onlara ait kodları grafiğe alsın. Yoksa grafik kodları fazla olan parçalarda kullanılmaz hale geliyor (çok küçük oluyor ve anlaşılmıyor) Dosyayı ekledim, yardımlarınız için şimdiden çok teşekkürler...

 

[ockucukay]

Arkadaşlar küstük mü? Sesiniz soluğunuz kesildi????

 

[jale]

Merhaba

Eki inceleyin.Bir zamanlar benimde ihtiyacım olmuştu.

 

[ockucukay]

Sayın Jale

Emeğinize, ilginize sağlık. Aradığım şey buydu. Çooookk teşekkür ederim.

 

[ockucukay]

Ek soru

Ya ben tam bir beceriksizim sanırım!!! Sayın Jale'nin gönderdiği dosyayı elimdeki dosyanın formatına uyarlamaya kalktım ama birşeyler yanlış sanırım. Ekteki orjinal dosyada veri formatı dikey, bendeki yatay. Formüllerde buna göre değişiklik yaptım ancak sonuç sıfır!!! Lütfen acil yardımlarınıza ihtiyacım var...

 

[ockucukay]

Dosyayı göndermemişim. Özür diliyorum, dosya ekte.

 

[jale]

Sanırım yanlış dosya eklemişsiniz.

 

[ockucukay]

Yok dosya yanlış değil, sadece benim formatım okla gösterdiğim gibi yatay, isterseniz dosyanın tamamını gönderebilirim.

 

[jale]

Günaydın ekte..

 

[ockucukay]

Sayın Jale

Emeğinize ve ilginize çok teşekkür ediyorum, elinize sağlık. Aynı şeyi aynı sayfa üzerinde başka alanlarda yapmak istiyorum, ama makroda (kısıtlı bilgim nedeniyle) ne yapıldığını anlamadım. Sizden ricam eğer size çok zahmet vermeyeceksem bana bu işi nasıl yaptığınızı anlatmanız.Umarım sizi sıkmıyorum, yardımlarınız için çok teşekkür ederim.

 

[jale]

Yukardaki dosyayı revize ettim.İçinede aşağıdaki açıklamayı yazdım.


D2-R2 yi Insert/name/define dan "categories" olarak adlandırın.

Aşağıdaki kodu bir modüle yapıştırın.Alt+F11 visual basic editor; modules/insert module
********

Option Explicit	
	
Sub skip_zero()	
Dim cel As Range	
Dim nonzeroCats As Range	
Dim nonzeroVal1 As Range	
Set nonzeroCats = Nothing	
Set nonzeroVal1 = Nothing	
	
For Each cel In ActiveSheet.Range("Categories")	
    If cel.Offset(-1, 0).Value <> 0 Then	
        If nonzeroCats Is Nothing Then	
            Set nonzeroCats = Range(cel.Address)	
            Set nonzeroVal1 = Range(cel.Offset(-1, 0).Address)	
            	
        Else	
            Set nonzeroCats = Union(nonzeroCats, _	
                Range(cel.Address))	
            Set nonzeroVal1 = Union(nonzeroVal1, _	
                Range(cel.Offset(-1, 0).Address))	
            	
        End If	
    End If	
Next 'cel	
'nonzeroCats.Select	
	
	
ActiveWorkbook.Names.Add Name:="nonzeroCats", _	
    RefersToR1C1:=nonzeroCats	
ActiveWorkbook.Names.Add Name:="nonzeroVal1", _	
    RefersToR1C1:=nonzeroVal1	
	
	
	
End Sub

********

Bar grafiğinizi oluşturun.

Grafikte "source data" "series 1" de "category x axis labels"'ı Ana Sayfa !$D$2:$R$2 den "Kitap2xcj.xls!nonzeroCats" ye değiştirin.
values'u da Ana Sayfa!$D$1:$R$1 den "Kitap2xcj.xls!nonzeroVal1" olarak değiştirin

En son olarak da bir düğmeye makroyu atayın.

 

[ockucukay]

Çok sağolun, ilginize çok teşekkür ederim. Çok makbule geçti, artık grafiklerim dinamik olduğu için kullanılabilir olacak sayenizde, tekrar sağolun...