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

Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
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ı.
 
Katılım
25 Eylül 2016
Mesajlar
14
Excel Vers. ve Dili
2010 türkçe
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.
 
Katılım
25 Eylül 2016
Mesajlar
14
Excel Vers. ve Dili
2010 türkçe
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...
 
Son düzenleme:
Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
Katılım
25 Eylül 2016
Mesajlar
14
Excel Vers. ve Dili
2010 türkçe
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...
 
Katılım
25 Eylül 2016
Mesajlar
14
Excel Vers. ve Dili
2010 türkçe
Bilgisayarımın takvimini 2017 Yılı yaptığımda düzeliyor.
Ama neden öyle çözemedim.
 
Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
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
Kod:
[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]
 
Katılım
25 Eylül 2016
Mesajlar
14
Excel Vers. ve Dili
2010 türkçe
çok teşekkürler...
 
Üst