Metin ve sayı bulunan hücrelerde en küçük değeri bulup kırmızı renkli yazsın

[Necdet]

Merhaba,

Koddan gidip olayı anlamak zor ama ne kadar range lafı görüyorsanız başına s1. (yani hangi sayfada çalışacaksa onu belirtmek gerek) koyunuz.

Bir deneyiniz.

 

[udentr2002]

Hocam denedim ama olmadı.
Şunu merak ediyorum. Şimdi sizin gönderdiğiniz kodlar range("a2:w3") aralığında çalışıyor ya. ben sizin kodları çalıştırmadan önce aşağıdaki kod ile

bul = S1.Range("A11:A65536").Find(ComboBox4.Value, , xlValues, xlWhole).Row

bul değerini aratıp işlem yaptırıyorum. Burda bul değerini ("a2:w3") aralığına benzetebilmek için.

sheets("Revizyon_Son").range("a&bul:w&bul+1")

şeklinde benzetmeye çalışıyorum. Bu doğru mudur?

Yani kısacası ("a2:w3") aralığında çalışacak olan kodlar benim bul diye tanımladığım değer arasında çalışacak. bul değeri a2 deki 2 anlamına gelmekte w3 tekinide bul değerini bir arttıraka yapabşlriz

 

[Necdet]

Merhaba,


sheets("Revizyon_Son").range("a&bul:w&bul+1") değil

sheets("Revizyon_Son").range("a" &bul & ":w"&bul+1) olmalı, çift tırnaklara dikkat ediniz.

 

[udentr2002]

Hocam çok teşekkürler. Şimdi deniyorum
Hakkınızı helal edin.