Satır Renklendirme

[igultekin2000]

iyi günler;
Koşullu biçimlendirme ile satır H2 hücresindeki sabit değere göre K sütununda aynı değer olunca A:K satırı renkleniyor. Koşullu biçimlendirme ile yapıyorum ama pek randımanlı olmuyor. bu renklendirme işlemini makro ile yapma imkanı olursa, başka işlemlerimde de kullanabileceğim. Teşekkürle.

 

[Muzaffer Ali]

Merhaba.

Görüşüme göre kod ile yapılması Koşullu biçimlendirmeden daha iyi olmaz. Koşullu biçimlendirme daha hızlı ve kullanışlı olacaktır.
Eğer koşullu biçimlendirmeyi de içeren bir örnek dosya eklerseniz ve tam olarak ne yaptığınızda yanlış sonuç aldığınızı da belirtirseniz daha iyi olur. Muhtemelen Koşullu biçimlendirme formülünde sorun var, onu bulup düzeltmek gerek.

 

[igultekin2000]

Çift tıklayıp verilerle işim bitince, yeni veri çağırıyorum, aynı işlemi yapınca koşullu biçimlendirmede garip sayılar çıkıyor.

 

[Muzaffer Ali]

I sütununda bir hücreye çift tıklatınca A-I arasını kopyalayıp siliyor(sorun buradan kaynaklanıyor). Halbuki silme işlemi A-K arasında olması gerekmez mi?

Eğer olur derseniz "FID_DTY" sayfasının kod kısmında bulunan aşağıdaki kod satırını silin

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Delete xlUp

yerine aşağıdaki kodu kopyalayın

Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Delete xlUp

 

[igultekin2000]

I sütununda bir hücreye çift tıklatınca A-I arasını kopyalayıp siliyor(sorun buradan kaynaklanıyor). Halbuki silme işlemi A-K arasında olması gerekmez mi?

Eğer olur derseniz "FID_DTY" sayfasının kod kısmında bulunan aşağıdaki kod satırını silin

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Delete xlUp

yerine aşağıdaki kodu kopyalayın

Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Delete xlUp

Teşekkürler bu işlem sorunumu çözdü, iyi çalışmalar

 

[igultekin2000]

I sütununda bir hücreye çift tıklatınca A-I arasını kopyalayıp siliyor(sorun buradan kaynaklanıyor). Halbuki silme işlemi A-K arasında olması gerekmez mi?

Eğer olur derseniz "FID_DTY" sayfasının kod kısmında bulunan aşağıdaki kod satırını silin

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Delete xlUp

yerine aşağıdaki kodu kopyalayın

Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Delete xlUp

Bu işlem sorunu çözdü, ilaveten koşullu biçimlendirme özelliği ile aktarma yapıyor, yani renkli olarak değil de sade olarak aktarılması için ilave kod eklenebilir mi, teşekkürler

 

[EmrExcel16]

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy Sheets("AKTAR").[I65536].End(xlUp).Offset(1, -8)

Bu satırı aşağıdaki gibi değiştirip deneyiniz.

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy
Sheets("AKTAR").[I65536].End(xlUp).Offset(1, -8).PasteSpecial xlPasteValues

 

[igultekin2000]

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy Sheets("AKTAR").[I65536].End(xlUp).Offset(1, -8)

Bu satırı aşağıdaki gibi değiştirip deneyiniz.

Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy
Sheets("AKTAR").[I65536].End(xlUp).Offset(1, -8).PasteSpecial xlPasteValues

evet, teşekkür ederim bu da sorunsuz sorunu çözdü, gene anladık ki, bilginin sonu gelmeyecek, tam bunu öğrendik derken konu değişip bir adım geride kalıyoruz. Üstatlardan Allah Razı olsun, çok istifade ediyoruz.

 

[EmrExcel16]

evet, teşekkür ederim bu da sorunsuz sorunu çözdü, gene anladık ki, bilginin sonu gelmeyecek, tam bunu öğrendik derken konu değişip bir adım geride kalıyoruz. Üstatlardan Allah Razı olsun, çok istifade ediyoruz.

Rica ederim , hepimiz aynı durumdayız dediğiniz gibi bilginin sonu gelmiyor , Allah cümlemizden razı olsun.