VBA ile hücrelerin rengini, hücre içi veriyi ve hücre kilidinin durumunu belirleme

[ultraslan38080]

Değerli arkadaşlar. Ekteki excel dosyası içerisindeki açıklamada belirttiğim üzere bir çalışma yapıyorum. çalışmada if ve for next döngüsünü kullandım. Ancak çalışma istediğim gibi olmadı. Yardımcı olur musunuz?
Herkese şimdiden teşekkür ediyorum.

http://dosya.co/a2nfsnofequv/Yeni_Microsoft_Excel_Çalışma_Sayfası.xlsm.html

 

[Orion1]

Veri doğrulama ve koşullu biçimlendirme yaptım.
Dosyanız ektedir.

 

[ultraslan38080]

Çok teşekkür ediyorum. Koşullu biçimlendirme ile yaptınız. Çok mantıklı.
Peki hücre değeri "Kayseri" iken sarı renkte olan hücrenin hücre kilidini açmayı nasıl yapabiliriz?

 

[Orion1]

J sütununa kayseri yazdıktan sonra veri girebiliyorsunuz.

 

[ultraslan38080]

J sütununa kayseri yazdıktan sonra veri girebiliyorsunuz.

Evet de sayfaya koruma yapıcam. Korumada kilitli hücreleri seçtirmiycem. Sadece kilitsiz hücreleri seçtiricem ve bu hücrelere veri girişi yaptırıcam.

Yaptığım bu exceli kurumlara dağıtacam. O sebepten hücrenin kilit durumu meselesi önemli.

 

[Orion1]

I sütunundaki hücrelerimi kilit yapıcanız?

 

[ultraslan38080]

I sütunundaki hücrelerimi kilit yapıcanız?

Yok yok. J4:J103 arasındaki Kırmızı renkli hücrelere "Kayseri dışındaki şehirler giriş yapamazlar" şeklinde yazdırıp hücreyi kilitleyeceğim. Sarı renkli hücrelerde ise hücre kilitleri açık olup bunlar boş duracak ve veri girişine müsait durumda olacaklar.

 

[Orion1]

Hücreyi tekbaşına kilitleme olmuyor,biliyorsunuz.Sayfanında korumaya alınması gerekiyor.

 

[ultraslan38080]

Hücreyi tekbaşına kilitleme olmuyor,biliyorsunuz.Sayfanında korumaya alınması gerekiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 4 To 103
If Sayfa1.Cells(i, 9) = "Kayseri" Then
Sayfa1.Unprotect
Cells(i, 10).Locked = False
Sayfa1.Protect
Else
Sayfa1.Unprotect
Cells(i, 10).Locked = True
Sayfa1.Protect
End If
Next i

End Sub

kodu yukarıdaki şekilde yapınca oluyor. Ancak kırmızı hücreye "kayseri dışındaki şehirler giriş yapamazlar" yazdırıp saarı renkte olan hücreleri boş ve veri girişine müsait olma durumunu da koda eklediğimde, kod hata veriyor.

 

[ultraslan38080]

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 4 To 103
If Sayfa1.Cells(i, 9) = "Kayseri" Then
Sayfa1.Unprotect
Cells(i, 10).Locked = False
Sayfa1.Protect
Else
Sayfa1.Unprotect
Cells(i, 10).Locked = True
Sayfa1.Protect
End If
Next i

End Sub

kodu yukarıdaki şekilde yapınca oluyor. Ancak kırmızı hücreye "kayseri dışındaki şehirler giriş yapamazlar" yazdırıp saarı renkte olan hücreleri boş ve veri girişine müsait olma durumunu da koda eklediğimde, kod hata veriyor.

Mesela yukarıdaki kodu;

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 4 To 103
If Sayfa1.Cells(i, 9) = "Kayseri" Then
Sayfa1.Unprotect
Cells(i, 10).Locked = False
Sayfa1.Protect
Else
Sayfa1.Unprotect
Cells(i, 10).Value="kayseri dışındaki şehirler giriş yapamazlar"
Cells(i, 10).Locked = True
Sayfa1.Protect
End If
Next i

End Sub

şeklinde yapıyorum ancak 9. satırda hata veriyor.

 

[Orion1]

dosya ektedir.

 

[ultraslan38080]

dosya ektedir.

Çok çok teşekkür ediyorum.

 

[Orion1]

Çok çok teşekkür ediyorum.

Rica ederim.
İyi çalışmalar.