Koşula göre renklendirme

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
En iyisi;
-- örnek belgede; varsa, BI22:BS30 aralığındaki formülleri silin,
-- 22'nci satırdan itibaren tabloya (G:AW sütunlarına) örnek puanları yazın (toplamı aynı olan sütunlar olacak şekilde),
-- bu satırlarda, aynı şekilde turuncu ve kırmızı renk kullanarak elle renklendirme yapın,
-- sağ tarata her bir satır için neden o hücreleri renklendirdirdiğinizi KISACA açıklayın
o haliyle belgeyi kapdederek tekrar yükleyin isterseniz.

Bu şekilde anlaşmak biraz güç.
.
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Ömer Hocam Dosyayı yeniledim.
Saygılarımla;
 

Ekli dosyalar

Son düzenleme:

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Yeni dosya, kaç numaralı cevabın ekindedir?
Göremiyorum.
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Ömer Hocam 22 numara 11li Sayfasında ..
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Ömer Hocam 22 numara da (11li)Sayfasında ..
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

Ekli belge değiştirildi. ( Değişiklik: 16.02.2017 16:03 )
.
 

Ekli dosyalar

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Değerli Hocam ve Üstadım;
Öncelikle Emeğinize teşekkürler.
Belirttiğiniz üzere Test Çalışması yaptım ancak , işaretlemede sorun oldu test çalışması
dosyasını ekliyorum.
Saygılarımla;
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Tekrar merhaba.

Yeni belge #26 numaralı cevap ekinde.
.
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Değerli Hocam ve Üstadım;
Bazı Hesaplamalarda Sıkıntı olmuş;
=>> 11'Lİ, örneğin : 2 satırda . Sıtkı 7 0 0 olan değil , maho=6 0 1 işaretlenmeliydi. Çünki O=7 Büyük Değerli
=>> 7'Lİ, örneğin: übey = 13 0 0 olan değil , sıtkı = 11 1 1 işaretlenmeliydi. o=13 Değerli
=>> 5'Lİ Örneğin: übey = 13 0 0 olan değil, veli=12 1 0 işaretlenmeliydi. o=13 değerli
Kural gereği en değerli (O) sonra (M) sonra (G)
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Tekrar merhaba.

#26 numaralı cevap ekindeki belgeyi tekrar güncelledim.
Umarım istediğiniz budur.
.
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Değerli Hocam ve Üstadım;
Emeğine ve Yüreğine Sağlık
11li de 1 SATIRDA : VELİ=5 5 5 veya Aynı Olduğundan SITKI:5 5 5 işaretlenmeliydi Ancak Ayşe= 13 2 0 işaretlemiş (O) 13 Değerli
11li de 4 SATIRDA : ÜBEY: 8 0 1 işaretlenmeliydi Ancak Ayşe= 9 0 0 işaretlemiş (O) 8 Değerli
11 de Tümü 100 olduğunda işaretleyebilir ve veya işaretlemeyebilir fakat ,
Toplam Puanı 700 Ortalaması 100 hesaplaması olamıyormu acaba,
9 luda tümü 100 puanı 700 ortalaması 100
7li de tümü 100 puanı 500 ortalaması 100
5li de tümü 100 puanı 300 ortalaması 100
Saygılarımla;
 
Son düzenleme:

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.

26 numaralı cevap ekindeki belgeyi tekrar güncelledim.
Belgeyi yeniden indiriniz.
.
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Değerli Hocam ve Üstadım;
Emeğine ve Yüreğine Sağlık
11li de 1 SATIRDA : VELİ=5 5 5 veya Aynı Olduğundan SITKI:5 5 5 işaretlenmeliydi Ancak Ayşe= 13 2 0 işaretlemiş (O) 13 Değerli
11li de 4 SATIRDA : ÜBEY: 8 0 1 işaretlenmeliydi Ancak Ayşe= 9 0 0 işaretlemiş (O) 9 Değerli

Not: Zaten 11 li 9 lu 7 li 5 li ayrı ayrı kullanacağım. Bir Sayfada 11 Diğer sayfada 9 ve veya 7 5 olacak Rank olayını değiştirdim ...
Saygılarımla;
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Değerli Hocam ve Üstadım;
Emeğine ve Yüreğine Sağlık
11li de 1 SATIRDA : VELİ=5 5 5 veya Aynı Olduğundan SITKI:5 5 5 işaretlenmeliydi Ancak Ayşe= 13 2 0 işaretlemiş (O) 13 Değerli
11li de 4 SATIRDA : ÜBEY: 8 0 1 işaretlenmeliydi Ancak Ayşe= 9 0 0 işaretlemiş (O) 9 Değerli

Not: Zaten 11 li 9 lu 7 li 5 li ayrı ayrı kullanacağım. Bir Sayfada 11 Diğer sayfada 9 ve veya 7 5 olacak Rank olayını değiştirdim ...
Yeni örnek dosyayıda ekledim
Saygılarımla;
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Kendi eklediğim belge üzerinden açıklayayım.

Belgede BK11:BU32 hücre aralığı seçiliyken CTRL+H tuşuna basın;
-- aranan -1;EĞER($
-- yeni değer 1;EĞER($
=> TÜMÜNÜ DEĞİŞTİR,

-- aranan 1;0))*((
-- yeni değer -1;0))*((
=> TÜMÜNÜ DEĞİŞTİR

şeklinde işlem yapınca düzelir.
.
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Değerli Hocam ve Üstadım;
Emeğine ve Yüreğine Sağlık,
Belirttiğiniz Değişikleri yaptım.
Ancak ek dosyada da Sarı Kutu içinde ifade ettiğim
değişiklikler ve biçimlendirmeler olmadı.
Saygılarımla;
 

Ekli dosyalar

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Değerli Hocam ve Üstadım;
Emeğine ve Yüreğine Sağlık,
Belirttiğiniz Değişikleri yaptım.
Ancak ek dosyada da Sarı Kutu içinde ifade ettiğim
değişiklikler ve biçimlendirmeler olmadı. #36
Saygılarımla;
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

#26 numaralı cevap ekindeki belge güncellendi.
.
 

efem67

Altın Üye
Katılım
26 Aralık 2011
Mesajlar
164
Excel Vers. ve Dili
Office 2016
Altın Üyelik Bitiş Tarihi
26-12-2024
Değerli Hocam ve Üstadım;
Eline Yüreğine Emeğine Sağlık,
Mükemmelin Ötesi olmuş
Ne kadar teşekkür etsem azdır.
Yapmış olduğunuz dosyada yukarıdaki guruplandırmalar ise harika
Ancak Bana Bir yön göstermesi açısından , kırılan puanların gösterilmeden
sonucun A1 İLE BJ52 aralığını kapsayacak şekilde PDF yapılması hususunda bir Macro nasıl yapılabilir.
Saygılarımla;
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Tekrar merhaba.

-- alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın,
-- sayfaya bir adet METİN KUTUSU/ŞEKİL/DÜĞME gibi bir nesne ekleyin,
-- bu nesneye sağ tıklayıp MAKRO ATAyı seçin,
-- açılan küçük ekranda PDF_BRN'yi seçerek işlemi onaylayın,
-- detayların (kırılan puanlar) görünmesini isterseniz kod'daki mavi 2 sayısını 3 yapın,
-- pdf belgenin oluşturulmasının ardından açılmasını istiyorsanız mavi False ibaresini True olarak değiştirin.
.
Kod:
[B]Sub PDF_BRN()[/B]
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=[B][COLOR="Blue"]2[/COLOR][/B]
dosyaismi = "[B][COLOR="Red"]efem67[/COLOR][/B]"
Range("[B][COLOR="red"]A1:BJ52[/COLOR][/B]").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & dosyaismi, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=[B][COLOR="blue"]False[/COLOR][/B]
[B]End Sub[/B]
 
Üst