Kontrol Listesi hazırlama

[odinnn]

Merhaba ustalarım. Ben işyeri için bir kontrol listesi hazırlıyorum. Yalnız birbirinden farklı 10 kategori veya dal var. Bu kategorilerin herbiri için ayrı ayrı kontrol listesi hazırlamalıyım. Ancak kontrol listesindeki soruların bazıları ortak yani bir soru birden fazla kategoride de kullanılacak. Bazı sorular ise sadece belli bir kategoriye özgü. Benim istediğim her kategoriye ayrı bir çalışma sayfası yapmak yerine tüm soruları bir sayfaya yazmak. Daha sonra başka bir sayfada ilgili kategorinin kodunu girince sadece o kategoriyle ilgili soruları diğer sayfadan aktarmak. Böylelikle işyükünü ve zaman kaybını azaltmak.

Ekte basit bir deneme yaptım. Veritabanı sekmesine ilgili tüm soruları yazdım. Kontrol listesi sekmesine ise ilgili kod ve alt kodu seçip o kodla ilgili soruları görmek istiyorum.

Eğer yardımcı olursanız işim çok kolaylayacak. Şimdiden teşekkür ederim.

 

[Muhammet Okumuş]

Merhaba,
Veritabanı K ve L sütunlarında yardımcı sütun kullanılmıştır. Formül arakığını kendiniz düzenleyebilirsiniz.

 

[odinnn]

Hocam ilginiz için çok teşekkür ederim.

 

[odinnn]

Hocam tüm soruları veritabanı sayfasına girip formülleri yazdım. Herhangi bir problem yaşamadım. Yalnız şöyle bir sıkıntı var: Veritabanı sayfasındaki hücre biçimlendirmesinin Kontrol Listesi sayfasına aynen aktarılmasını istiyorum. Ancak sadece hücre içeriği yansıyor. Bu konuda yardımcı olabilirseniz sevinirim. Teşekkürler tekrardan.

 

[Muhammet Okumuş]

Dosya ekler misiniz? Eklemiş olduğunuz ilk dosyada biçim yoktu.

 

[odinnn]

Şimdi şöyle hocam. Veritabanında "Projenin başındaki koşullar için" ve benzeri açık mavi dolgulu satırlar var onun kontrol listesi sayfasına aynı şekilde geçmesini istiyorum. Bir de göreceğiniz üzere o bölümler alt başlık olacak. Dolayısıyla kontrol listesinde de öyle olması lazım. Çok sağolun şimdiden.

 

[Muhammet Okumuş]

O zaman filitreleme kullanalım. Veri tabanı sayfası AD sütunundaki formülleri son veriye kadar uzatınız.

 

[odinnn]

Eyvallah hocam şimdi mükemmel oldu. Çok teşekkürler, iş yüküm % 95 azaldı sayende.

 

[Muhammet Okumuş]

Kodu bu şekilde değiştiriseniz. Bir önceki seçimden kalan renkli yerler kaybolur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B4:C4"), Target) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Range("B7:E97") = ""
Range("B7:E97").Interior.ColorIndex = 2
Sheets("Veritabanı").Range("AD1").AutoFilter Field:=1, Criteria1:=2
son = Sheets("Veritabanı").Range("A10000").End(3).Row
Sheets("Veritabanı").Range("A2:E" & son).Copy Range("B7")
Sheets("Veritabanı").Range("AD2").AutoFilter
End Sub

 

[odinnn]

Hocam tabloya son bir kaç ekleme yapıp dediğiniz son kodu girdim. Ama bir yerlerde yanlış yaptım galiba. Sizden son bir kez göz atmanızı rica etsem çok mu olurum acaba?

 

[Muhammet Okumuş]

Nerde ne yaptınız? Ne yanlışı var?

 

[Muhammet Okumuş]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B4:C4"), Target) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Range("B7:E118") = ""
Range("B7:E118").Interior.ColorIndex = 2
Sheets("Veritabanı").Range("A2:AG2").AutoFilter Field:=33, Criteria1:=2
son = Sheets("Veritabanı").Range("A10000").End(3).Row
Sheets("Veritabanı").Range("A1:E" & son).Copy Range("B7")
Sheets("Veritabanı").Range("AG2").AutoFilter
End Sub

şeklinde değiştiriniz.