Randevu Takibi

[seddur]

Merhabalar.Ekli dosyadan görüleceği üzere Randevu sayfası oluşturdum.Yapmak istediğim saat yazan herhangi bir hücre üzerine tıklandığında arkaplan rengi değişip hücrede DOLU diye yazması ikinci kez tıklandığında ise orjinal haline dönmesidir.Ayrıca sayfadaki tablo önümüzdeki 10 yıl için ve her ay olarak tasarlanıp spinbuttondan seçildiğinde değişmesi tercihimdir..Ay ve yıl günleri ile haftanın günleri birbirleri ile uyumlu olmayabilir ama hiç olmazsa elimde spinbuttondan değişen boş tablolar olsun istiyorum.Yardımcı olabilecek arkadaşa şimdiden Teşekkür ederim.

 

[seddur]

Hücreye tıklandığında renginin değişip DOLU yazması sorununu çözdüm.Yardımcı olabilirseniz yapmak istediğimi başka şekilde tekrar anlatayım.Sayfadaki tablo yalnız OCAK ayı 2022 yılına ait düzenlendi.Spinbuttonlara tıkladığımda tıpkı sayfa değiştirir gibi ama sayfa değiştirmeden boş
Şubat ayı tablosu veya diğer aylara ait tablolar arasında geçiş yapabileyim.

 

[ÖmerBey]

Hücreye tıklandığında renginin değişip DOLU yazması sorununu çözdüm.Yardımcı olabilirseniz yapmak istediğimi başka şekilde tekrar anlatayım.Sayfadaki tablo yalnız OCAK ayı 2022 yılına ait düzenlendi.Spinbuttonlara tıkladığımda tıpkı sayfa değiştirir gibi ama sayfa değiştirmeden boş
Şubat ayı tablosu veya diğer aylara ait tablolar arasında geçiş yapabileyim.

Merhaba,
Bir soru:
Hücreye tıkladık dolu yazdı Ocak ayının bir kısmını girdik, sonra spin buton ile Şubat'a geçtik. Sayfa değiştirmeyip aynı sayfada çalıştığımız için Ocak ayına ait veriler ne olacak?

 

[seddur]

Böyle bir sorun olabileceği aklımdan geçti ama işi uzmanına bıraktım.Mehmet Gürten'in bir restoran hesap takibi programından esinlendim.Masa numaralarının yazılı olduğu 10 ayrı commandbutton yaptı her bir masa no'ya tıkladığında aynı sayfa ve hücre aralığındaki bilgiler değişiyordu.Sanırım Target komutunu kullandı.Veriler aynı sayfada kalsa 20.satırdan itibaren sayfaya kayıt yapılsa olmazmı?

 

[ÖmerBey]

Dosyanızı biraz değiştirdim.
Saat yazılı hücrelere çift tıklayarak deneyiniz...

 

[seddur]

Çok güzel bir çalışma olmuş,Teşekkür ediyorum.

 

[Rbr.Brb.]

Dosyanızı biraz değiştirdim.
Saat yazılı hücrelere çift tıklayarak deneyiniz...

merhabalar değişiklik anahtar şifre diyor o nasıl kalkar

 

[seddur]

Sayfa koruması var sayfa sekmesinden onu kaldırabilirsin onun dışında şifre yok.

 

[Rbr.Brb.]

Sayfa koruması var sayfa sekmesinden onu kaldırabilirsin onun dışında şifre yok.

Merhabalar seddur hanım bana mail adresinizi atabilir misiniz

 

[seddur]

sedatduru@hotmail.com

 

[seddur]

Merhabalar seddur hanım bana mail adresinizi atabilir misiniz

sedatduru@hotmail.com

 

[balanar]

@ÖmerBey üstüne tıkladığımızda kırmızı yapıp dolu yapıyor ya

Onun hemen öncesinde açıklama girilmesini sağlayan birşey yapılabilir mi? Yani o tarihte o saatte kime randevu verdik gibi. Böyle bir çalışma yapılabilir mi. O saatin üzerine gelinince bilgisi ciksa.. Birde bu saat başlangıç zamanlamasını nereden değiştiriyorsunuz orayı anlamadım 16:00 - 19:30 'e kdr yapmışsınız ya oraya istediğimiz şekilde nasıl değiştireibliriz

 

[balanar]

Misalen 09:00 dan başlayıp 19.00'a kdr götürmek istesek?

 

[ÖmerBey]

Misalen 09:00 dan başlayıp 19.00'a kdr götürmek istesek?

Dosyayı isteğinize göre düzenledim, inceleyiniz...
Saatler A sütununda yer alıyor (Önceki dosyada formül içerisinde hesaplanıyordu).

 

[seddur]

Sn:Ömer Bey benim aşağıda paylaştığım dosyaya da isim girmeye yarayan bir açıklama kutusu ekleyebilir misiniz.Bir de vaktiniz varsa aşağıda paylaştığım kodlarda günlük hasta listesini listview'de alıyordum bu yeni duruma göre kodları revize edebilirmisiniz?
Private Sub UserForm_Initialize()
Dim Bak As Long
Dim Gun As Range
Dim lwListe As ListItem
With UserForm1.ListView1
UserForm1.BackColor = RGB(0, 102, 102)
.BackColor = RGB(23, 60, 89)
.ForeColor = RGB(0, 0, 0)
.Font.Name = calibri
.Font.Bold = True
.ForeColor = RGB(255, 255, 255)
.Font.Size = 11
.FullRowSelect = True
.View = lvwReport
.Gridlines = True
.ColumnHeaders.Add , , "SAATİ", 50, lvwColumn
.ColumnHeaders.Add , , "ADI-SOYADI", 90, lvwColumn
End With

With ComboBox1
.AddItem "16:00"
.AddItem "16:30"
.AddItem "17:00"
.AddItem "17:30"
.AddItem "18:00"
.AddItem "18:30"
.AddItem "19:00"
.AddItem "19:30"
End With
Set Gun = Union(Range("B11"), Range("B1313")).Find(what:=Day(Sayfa2.CommandButton2.Caption), lookat:=xlWhole)'sarı yüzlerde "P" var

If Gun Is Nothing Then
MsgBox "Tarih bulunamıyor."
Exit Sub
End If

For Bak = 0 To ComboBox1.ListCount - 1
ListView1.ListItems.Add , , ComboBox1.List(Bak, 0)
On Error Resume Next
ListView1.ListItems(Bak + 1).SubItems(1) = Gun(3 + Bak).Comment.Text
Next

 

[ÖmerBey]

isim girmeye yarayan bir açıklama kutusu ekleyebilir misiniz

Dosyanız ektedir,
İkinci isteğinizle alakalı ayrı bir işlem yapmaya gerek yok sanıyorum, zaten sizin kodlarınızla veriler düzgün bir biçimde alınıyor gibi...

 

[ermankoyluoglu]

Dosyayı isteğinize göre düzenledim, inceleyiniz...
Saatler A sütununda yer alıyor (Önceki dosyada formül içerisinde hesaplanıyordu).
[/ALINTI]
Merhaba tarihi 2022 den değilde 2024 ten nasıl başlatabiliriz?

 

[ermankoyluoglu]

Merhaba tarihi 2022 den değilde 2024 ten nasıl başlatabiliriz?

 

[ÖmerBey]

tarihi 2022 den değilde 2024 ten nasıl başlatabiliriz?

Merhaba,
Geliştirici sekmesi > Tasarım Modu > Spin Button üzerinde sağ tık > Özellikler
Açılan pencereden "Min" değerini 2024 olarak değiştiriniz.

 

[ermankoyluoglu]

Merhaba,
Geliştirici sekmesi > Tasarım Modu > Spin Button üzerinde sağ tık > Özellikler
Açılan pencereden "Min" değerini 2024 olarak değiştiriniz.

teşekkür ederim.