seçilen kişinin bir daha seçilmemesi

[feridunsah]

slm
öncelikle göndermiş olduğum dosyada U6 hücresinde seçmiş olduğum şoför arkadaş ogün tekrar göreve yollanmaması için ona nasıl bir uygulama yapabiliriz mesela renk lenebilirmi otomatik olarak yada yanına bir işaret konulabilirmi bir de sayfada formülün olduğu yerde isim seçilmediğinden dolayı
yok yazısı çıkıyor bunuda gizlemek mümkünmü acaba yardımlarınızı bekliyorum
teşekkürler

 

[ozgretmen]

Aşağıdaki kodu Taşıt Gör.Emr. sayfanızın kod bölümüne ekleyiniz.Listeden kişi seçtiğinizde msgbox ile size uyarı verecektir.İyi çalışmalar...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [U6]) Is Nothing Then Exit Sub
Sheets("Araçlar").Activate
Sheets("Araçlar").Range("d35:d46").Find(Sheets("Taşıt Gör.Emr.").Range("u6").Value, LookIn:=xlValues, LookAt:=xlWhole).Select
If ActiveCell.Offset(0, 1).Value = "x" Then
Sheets("Taşıt Gör.Emr.").Select
MsgBox " Bu Şoför Daha önce sefere çıkmış."
Else
ActiveCell.Offset(0, 1).Value = "x"
Sheets("Taşıt Gör.Emr.").Select
MsgBox "Bu şoför sefere çıkabilir."
End If
End Sub

 

[feridunsah]

üstad elin kolun dert görmesin
birde sana zahmet şu yok görünmez yapabilirmiyim

 

[feridunsah]

yalnız üstad ertesi gün olduğunda bir gün önceki hatayı veriyor bu şöför göreve çıkmış hatası
tarih değişince olayı sıfırlaması lazım

 

[feridunsah]

birde şöför seçimi boş bırakırsak end debug hatası veriyor

 

[feridunsah]

üstad yardımlarını bekliyorum teşekkürler

 

[feridunsah]

o kadar mesaj bıraktım ama neden cevap verilmedi acaba hafta sonu diyemi neyse tşkl

 

[cems]

#YOK yazısınının çıktığı hücreyi tıklayın, o hücre aktifken , excelin üst menüsünde olan biçimlendirmeye tıklayın ve alta doğru açıldığında koşullu biçimlendirme'ye tıklayın. Burada
hücre eşittir #YOK yazın ve yazının rengini beyaz yapın. Yazı görünmez ve basılmaz.
Bu arada kodlar düzgün çalıştı , bende dediğiniz sorunları görmedim, istediğinizi yapıyor.
Şoför seçimini boş bırakmanız , istediğiniz kodlamanın mantığına ters gibi. Araca bir şoför lazım nihayet

 

[feridunsah]

Teşekkürler

 

[feridunsah]

üstad benim istediğim tarih değiştiğinde seçilen kişilerin olduğu menüde x işaretide silinmesi ama kaydettiğimizde ertesi günde o x ler olduğu gibi kalınca şoför göreve çıkmış gözüküyor birde sizin dediğiniz gibi yok gizlemeyi beceremedim teşekkürler

 

[feridunsah]

#YOK hala beceremedim yardımlarınızı bekliyorum teşekkürler

 

[cems]

#YOK konusuna evde bir çözüm aramaya çalışacağım , işyerinden çıkacakken kontrol edebildim burayı.

 

[feridunsah]

teşekkürler inşaallah yardımcı olursunuz birde seçtiğim kişileri yanına kodda x koyuyor bir daha seçme şansım olmuyor bu koda artı olarak tarih değiştiğinde kendi kendine temizleme özelliği koyabilirmisin yardımlarını bekliyorum teşekkürler

 

[abazya]

#YOK hala beceremedim yardımlarınızı bekliyorum teşekkürler

Yok yazan hücreye bunu yapıştırıp deneyin.

=EĞER(G:G="";"";İNDİS(Araçlar!E:H;KAÇINCI('Taşıt Gör.Emr.'!U6;Araçlar!G:G;0);2))

 

[feridunsah]

bu seferde plakalar gelmiyor

 

[abazya]

bu seferde plakalar gelmiyor

Bende oldu gibi.

 

[feridunsah]

Yok gene geldi maalesef

 

[feridunsah]

Olmicak herhalde
teşekkürler

 

[feridunsah]

Ustalarda bıraktı bizi artıkvazgeçtiler

 

[abazya]

Olmicak herhalde
teşekkürler

:biggrin: Olcak, olcak birdaha bakın dosya olarak ekledim. 16 nolu mesajda