Aynı veri olan hücreyi bul ve seç

Katılım
16 Mayıs 2008
Mesajlar
162
Excel Vers. ve Dili
excel 2003
Merhaba arkadaşlar.Ekteki dosyayı gönderiyorum.C4 cresinde bugünün tarihi ay olarak yazılı.I9-T9 arasındaki hücrelerde de yılın 12 ayı sırasıyla yazılı.Dosyayı hangi ayda açarsam (ilgili ay C4 de yazılı zaten) ,C4 le I9-T9 arasındaki aynı ay yazılı olan hücrenin 4 alt satırının hepsi seçilsin.Umarım karışık anlatmadım.Örnek;
Yani C4 de Şubat yazılı,Şubata rastgelen diğer hücre J7.O zaman J9 dan J12 ye kadar sarı renge boyansın.Renkler kitabı kapatırken silinsin.Şimdiden teşekürler...
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,464
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Aşağıdaki kodları ThisWorkbook'un kod bölümüne kopyalayıp dener misiniz?


Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sayfa1").Range("I9:T21").Interior.ColorIndex = xlNone
End Sub
Kod:
Private Sub Workbook_Open()
Dim Sat As Integer
Dim Sut As Integer
Sheets("Sayfa1").Select
Sat = [B65536].End(3).Row
Sut = 8 + Month([C4])
Range(Cells(9, Sut), Cells(Sat, Sut)).Interior.ColorIndex = 19
End Sub
 
Katılım
16 Mayıs 2008
Mesajlar
162
Excel Vers. ve Dili
excel 2003
Teşekür ederim Necdet Bey.Çok güzel oldu.
 
Üst