• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

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ı.
 
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.
 
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/5b...0dc2ce45d843f639be1f217c20171112073516/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:
PLİNT' Alıntı:
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
Genişletmek için tıkla ...
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...
 
Bilgisayarımın takvimini 2017 Yılı yaptığımda düzeliyor.
Ama neden öyle çözemedim.
 
AhmetAtasay' Alıntı:
Bilgisayarımın takvimini 2017 Yılı yaptığımda düzeliyor.
Ama neden öyle çözemedim.
Genişletmek için tıkla ...

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]
 
çok teşekkürler...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst