Dİyalİz Hasta Takİp Formu, Userform Yardim

[cenkatli]

Arkadaslar, herkesin geçmiş mubarek bayramı kutlu olsun, herkese bol kazanclara ve saglıklı bir hayata vesile olması dilegiyle.
Sizlerden yardım istediğim konu,
bir diyaliz merkezinde hasta takip dosyası hazırlıyorum. bu dosyanın benzerini ekte koydum.
Yapmaya calıstıgım sey, dosyaya her ay için yeni bir sheet actım ve hasta adlarına gore hastanın analiz sonuclarını ay ay takip ediyorum. 13. sheet de ise bir rapor sayfası olusturdum ve o sayfaya adı ve soyadı belirtilmiş hastanın tüm degerlerinin otamatik olarak atanması. Bunu da rapor sayfası acıldıgı anda bir user formun acılması ve hastanın adı ve soyadı bilgilerini sorarak ilgili yerlere o hasta ile ilgili tüm verilerin getirilmesi yolu ile tek sayfada hastaya ait yıllık verilerin raporlanmasını yapmaya calısıyorum. ekide inceleyerek bana bu konuda yardımcı olabilirmisiniz.
Hayırlı calısmalar,

 

[cenkatli]

Tekrar merhaba,
formlarda bana yardımcı olacak fonksiyonlarıda aradım ama konuya vakıf olmadıgımdan birseyler cıkaramadım. belki fikir verecek arkadas varsa en azından ugrasmaya devam ederim. User formu ekledikten sonra gerekli verileri gerekli yerlere tasıyacak kodlara ulasamıyorum. Yardımlarınızı bekliyorum. veya fikirlerinizi

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

Tüm hastaların isimlerini girebileceğiniz bir sayfa oluşturdum. Bu sayfaya gireceğiniz isimleri RAPOR sayfasının B1 hücresinde açılır listeyi oluşturmaktadır. Ayrıca siz ad ve soyadı ayrı hücrelere girmiştiniz. Ben bunlarıda formülasyonda kolaylık sağlaması açısından birleştirdim.

 

[cenkatli]

ELLERİNİZE SAĞLIK, EMEGİNİZE BEREKET, BU CALISMA BANA BİLGİ ACISINDANDA COK FAYDALI OLACAK. cOK TESEKKURLER

 

[cenkatli]

Syn Cost control,
Hazırlamıs oldugumuz dosyada soyle bir sıkıntı olusoyor.
Hasta isimlerini yeni bir listede olusturdugumuzda ben onların her ay icin acılmıs olan sayfalarda gorunmesını istiyorum. Yani yeni bir hasta ismi eklendiğinde o isim ocak sayfasından aralık sayfasına kadar bütün sayfalarda adların yazıldıgı yerde olmasını istiyorum ki ancak bu sayede kişiye özel verileri girebileyim. Ancak ayrı bir sayfada isim listesi olusturdugumuzdan bu isimlerin yerleri her alfabe sırasına gore duzenlendiginde ad listelerındede yerleri degişiyor ve bir baskasına ait veriler baska birinin oluyor yani veri yanlışlığı olusuyor.ben isimlerin girildigi listelede alfabetik sıralama yapmadan raporlar bölümünde olusturduğunuz liste kendiliginden bunları alfabetik olarak acılır listede düzenleyebilirmi?

 

[hamitcan]

Sayın COST_CONTROL'ün cevabını incelemedim ama ben kullanıcı tanımlı bir fonksiyon yazdım. Ekte, bazı hücreleri bu fonksiyon ile yaptım. Siz de bunlara bakarak diğerlerini yapabilirsiniz.

 

[cenkatli]

TeŞekkÜrler, Sanirim Yaptiginiz İŞİmİ Gorecek, Elİnİze Saglik

 

[dj_keyfialem]

nasıl ınıyor

 

[hamitcan]

Arşivimde bir dosya buldum ama aynısı mı bilmiyorum. Büyük ihtimalle aynısı görünüyor. Çünkü dosya içinde yaptığım KTF fonksiyonu mevcut.

Function cagir(isim, soyad, detay As Variant, sayfaismi As String, Optional GC As String)
With Sheets(sayfaismi)
    For i = 5 To 500
        If .Cells(i, 2) = isim And .Cells(i, 3) = soyad Then
            Set bul = .Rows("1:3").Find(detay, lookat:=xlWhole)
            If GC = "G" Then
               cagir = .Cells(i, bul.Column)
            ElseIf GC = "C" Then
               cagir = .Cells(i, bul.Column + 1)
            Else
               cagir = .Cells(i, bul.Column)
            End If
        End If
    Next
End With
End Function

 

[cems]

Dosyada bir sorun mu var ? Bende açılamadı bir türlü ...

Başka excel örnekleri çalışıyor

 

[hamitcan]

9 nolu mesajdaki dosyada problem yok. Ben denedim, indirilebiliyor.

 

[soleil]

dosyada sorun mu var acaba ?

 

[hamitcan]

dosyada sorun mu var acaba ?

06/11/2008 öncesi dosyalar silindi.
http://www.excel.web.tr/f53/foruma-tekrar-merhaba-t57884.html

 

[degerbilir]

teşekkürler