Excel sayfası açıldığında ogünkü randevu durumunu göstermesi

[istanbulcahan]

Her excel sayfası açıldığında ogünkü tarihte randevu olup olmadığı user form şekline görüntülenmesi

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

Private Sub Workbook_Open()'Ttisworkbook kod kısmına yazılacak
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()'UserForm1 kod kısmına yazılacak
    Set Aranan = Range("A:A").Find(Date, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        Label1.Caption = Aranan.Offset(0, 1).Value
    End If
End Sub

 

[pristineli45]

Dede kardeş. Uygulama çok güzel. Eline sağlık. Ancak; aynı gün içerisinde 3-4 tane (ya da daha fazla) randevu olursa hepsini göstermiyor. Çözümü var mı?

 

[Ömer BARAN]

Aynı gün en fazla kaç randevu var ve bunları nasıl kaydettiğinizi bilmiyorum. Eğer her gün bir satırda ve bir gündeki randevular birden fazla olduğunda örneğin 3 tane olduğunda, bunlar tarihin sağındaki hücrelere doğru dizilecekse;
Forma iki tane daha label ekleyin ve mevcut label kodunun satırının yerine;

Label1.Caption = "1) " & Aranan.Offset(0, 1).Value
Label2.Caption = "2) " & Aranan.Offset(0, 2).Value
Label3.Caption = "3) " & Aranan.Offset(0, 3).Value

kısmını ekleyerek dener misiniz?

 

[Ömer BARAN]

Ben örneğin 1. randevuyu B78'e ikinciyi C78'e üçüncüyü D78'e yazdım ve sonuç olumlu. Yukarda söylediğim kodla üçü de görüntülendi.

 

[Ömer BARAN]

Kod işini pek bilmem ama böyle denedim ve sonuç aldım, sie iyi günler dilerim.

 

[pristineli45]

Ömer arkadaşım. Verdiğiniz kodları yapıştırdım. Bu sefer de ThisWorkbook sayfasında ki;
Private Sub Workbook_Open()
UserForm1.Show
End Sub
kodlarda debug hatası verip userform1.show satırı sarıya boyanıp çalışmıyor

 

[Ömer BARAN]

Üç adet diye düşünerek iki adet daha label ekleyip söylediğim kodu denedim sorun yok bende.

 

[Ömer BARAN]

Ekledim

Eke bakınız.

 

[Ömer BARAN]

Yanlış dosyayı eklemişim, doğrusunu yükledim.

 

[pristineli45]

Süper olmuş. Eline sağlık. Teşekkür ederim. Ufak bir ayrıntı ekleyebilir miyiz? (Sadece zevk,olmazsa önemli değil)
Açılan userformda "Bugünkü Randevular" yazan yerde "..........tarihine (o gün) ait randevular" yazdırabilir miyiz?

 

[Ömer BARAN]

aşağıdaki kodu
Intalize satırından hemen sonraya satır olarak yapıştırın.

Metni değiştirebilirsiniz.

UserForm1.Caption = Format(Now, "dd mmmm yyyy dddd") & " ADINIZ SOYADINIZ"

 

[pristineli45]

Eyvallah dostum....Süperr..

 

[istanbulcahan]

Yanlış dosyayı eklemişim, doğrusunu yükledim.

Harika olmuş emeğine sağlık.
Bu şekilde mi olacak. Randevuda birden fazla bu şekilde mi yazılacak tabloda;

17.0.2013 Bakkala gidilecek, maile bakılacak,

Burda bazı düzenlemeler yapmak mümkün mü.

a) User formun görüntülenmesinde arka planda excel gözükmesin,
b) Günlük randevu 5-6 tane olursa nasıl olacak,
c) Randevuların her excel açılışında yüklenmesi mümkün olur mu?

 

[dEdE]

Merhaba,
Günlük randevularınızı B sütunundan başlayarak, her sütuna bir randevu olacak şekilde son sütuna kadar yazabilirsiniz.

Dosyanız ilişiktedir.

 

[Ömer BARAN]

Kullanış açısından başlık satırın ekranda sürekli görünür kılmak için belgenizde 2. satırı seçip, Görünüm menüsünde Bölmeleri Dondur'u seçiniz.


UserForm kod sayfasının başındaki

Private Sub OptionButton1_Click()

olayının End Sub satırından önce;

Set Aranan = Range("A:A").Find(Date, , xlValues, xlWhole)
Cells(Aranan.Row + 1, 1).Select


Satırlarını yapıştırınız.

 

[Ömer BARAN]

Aslında madem randevu diye bir sistem kurmayı düşündünüz;

doğrusu bence bir tane de randevu kayıt formu oluşturup, olayı tamamen formlar üzerinden yönetebilirsiniz.

Bu forma gün gün tüm tarihleri kaydetmenize de gerek kalmazdı.

Ekrana takvim getirip; bir textboxa gün seçtikten sonra, diğer textboxlara da randecu metinlerini yazıp excele aktarabilirdiniz.
Sonra da şu anki form devreye girer ve bugünkü randevularınızı ekrana getirirdi.

Tabi söylemesi kolay diyeceksiniz yapması kolay değil ama bence uğraşmaya değer, iyi günler, kolay gelsin.

 

[pristineli45]

Dostum çok çok teşekkürler... Önerin gerçekten harika.. Ama bu benim işimi fazlasıyla görüyor.. Emeğine sağlık.

 

[Ömer BARAN]

Cells(Aranan.Row + 1, 1).Select

kırmızı kısmı unutmayın, o olmazsa bugünün tarihine gider.

 

[pristineli45]

Uyarına teşekkür. Zaten sizin yazınızdan copy-paste yapmıştım. Sorun çıkmadı.