Exelde takvime göre yapılacak işi gösterme...

[AhmetAtasay]

arkadaşlar hayırlı günler;

1 Yıllık periyodik bakım takvim şeklinde tablomuz ve bakımları takip ettiğimiz ayrı bir bakım takip sayfamız var.

sorum şu; günü gelen bakımı bir hücrede "KLİMA SANTRALİ" şeklinde gösterilebilir mi?

https://wetransfer.com/downloads/e59383e1066ad3f5cdc7f6e429212f0420171111094806/2b2e52398cb40045b362663cedb952f820171111094806/7639cc

 

[AhmetAtasay]

Çok mu zor bir şey istedim...

 

[çıtır]

Dosyanızda bir sayfa var ,herhangi bir tarih görmedim.Dosyanızdan birşey anlamadım.Biraz açıklarmısınız?Herhalde benim gibi bakanlarda anlamadı.

 

[AhmetAtasay]

Dosya da gün gün hangi bakımların yapılacağı işaretli.
Örneğin ocak ayı 1. günü "KLİMA SANTRALLERİ" işaretli yeşil dolgu ile.

Yapmak istediğim ise, başka bir excel dosyasına, bir hücrede o güne ait bakımın ismini yazdırmak.
yani otomatik olarak o dosyadan, o güne ait bakımı yapılacak işi çekmek istiyorum.


eklediğim dosya üzerinden gitmem şart değil. başka bir şekilde bakımı yapılacak iş listesi oluşturmam gerekiyorsa oluşturabilirim.

 

[PLİNT]

Yapmak istediğim ise, başka bir excel dosyasına, bir hücrede o güne ait bakımın ismini yazdırmak.
.

Merhaba
Ek dosyayı denermisiniz?

http://s8.dosya.tc/server5/8s8q3n/Klasor1.zip.html

 

[AhmetAtasay]

Plint kardeş istediğim tam olarak bu, Çok teşekkür ediyorum emeğinize sağlık.
ve arka plan rengi bakım planında ki yeşilse yeşili alıyor bu çok hoş ekstra güzel oldu bizim için.

https://wetransfer.com/downloads/5b572cca227d3ebd7863e4a0fb5bd5dd20171112073516/6949af510dc2ce45d843f639be1f217c20171112073516/a32454

Dosyada benim oluşturduğum bakım takip sayfası var. bu dosyaya uyguladım ancak yenilendiğinde arka plan rengi gidiyor ve hoş durmuyor.

Görünmesini istediğim hücreleride belirttim. bu konuda yapılabilecek birşey varsa yapalım yoksa da yapacak birşey yok, tekrar çok teşekkür ederim...

 

[PLİNT]

Görünmesini istediğim hücreleride belirttim. bu konuda yapılabilecek birşey varsa yapalım yoksa da yapacak birşey yok, tekrar çok teşekkür ederim...

Merhaba
Bir gündeki bakım bir den fazla olduğunda ek dosyadaki gibi alt alta yazarsa daha iyi olur. Ek dosyayı inceleyiniz.
https://drive.google.com/open?id=1zz-MR2azCtq3UVz6Qb2b89nOD552TLwb

veya http://www.dosya.tc/server10/k8vc7u/TEKNIK_HBTT.zip.html

 

[AhmetAtasay]

Çok teşekkür ediyorum. Gerçekten emeğinize sağlık...

 

[AhmetAtasay]

Merhaba
Bir gündeki bakım bir den fazla olduğunda ek dosyadaki gibi alt alta yazarsa daha iyi olur. Ek dosyayı inceleyiniz.
https://drive.google.com/open?id=1zz-MR2azCtq3UVz6Qb2b89nOD552TLwb

veya http://www.dosya.tc/server10/k8vc7u/TEKNIK_HBTT.zip.html

Plint kardeş hazırladığınız Excell dosyasını işlerimin yoğunluğundan pek kullanamadım ama Artık eksikleri tamamlamak için açtım fakat kontrol tuşuna basıldığında o günün bakımlarını değilde, sol en başta yazan bütün bakımların isimlerini getirip sıralıyor.
Nasıl düzelteceğimi bilemedim. Yardımcı olursanız sevinirim...

 

[AhmetAtasay]

Bilgisayarımın takvimini 2017 Yılı yaptığımda düzeliyor.
Ama neden öyle çözemedim.

 

[PLİNT]

Bilgisayarımın takvimini 2017 Yılı yaptığımda düzeliyor.
Ama neden öyle çözemedim.

Merhaba
Kodlar hücrede dolgu rengi yok ise veya kırmızı değil ise o gün bakım olmadığına karar veriyor. Mart ayı 1. gün sütununda ise beyaz renkli dolgular var, tabi bu dolguları işaret olarak kabul edip sol baştaki verileri getiriyor.
Onun için: Kodlarınızın aşağıdaki kırmızı satırına; mavi kısmı ekleyip deneyin
http://www.dosya.tc/server12/f7hc0a/TEKNIK_HBTT2.zip.html

[SIZE="2"]
'....
'.....kodlar
'........
If Err > 0 Then GoTo 10
rw = s1.Cells(s1.Rows.Count, "A").End(3).Row
Set r = s1.Rows("6:6").Find(ay, , xlValues, xlPart, xlByRows, xlNext, False, False)
If Not r Is Nothing Then
x = r.Column + gün - 1

For b = 1 To 2
j = 5
For Each renk In s1.Range(s1.Cells(7, x - 1 + b), s1.Cells(rw, x - 1 + b))
v = s1.Range(renk.Address).Interior.ColorIndex
[COLOR="Red"]If v <> xlNone And v <> 3[COLOR="Blue"] And v <> 2[/COLOR] Then[/COLOR]
j = j + 1
Cells(j, "C") = j - 5
Cells(j, "C").Font.Color = -16711681
Cells(j, 3 + b) = s1.Cells(renk.Row, "A").Value
Cells(j, 3 + b).Interior.Color = s1.Range(renk.Address).Interior.Color
Cells(j, 3 + b).Borders.Weight = xlThin
End If
Next:
If j = 5 Then
Cells(6, 3 + b) = "BAKIM YOK"
Cells(6, 3 + b).Interior.ColorIndex = 3
Cells(6, 3 + b).Borders.Weight = xlThin
End If
Next

End If
10:
hz.Close SaveChanges:=True
Aç.Quit
Set Aç = Nothing: Set hz = Nothing
End Sub[/SIZE]

 

[AhmetAtasay]

çok teşekkürler...