Hücre içinde arama ve icmal yapmak yapmak

[musculus]

Benim hasta takip programı içinde hasta kayıt defterindeki verileri excele bu şekilde atabiliyorum.Yapmak istediğim hastalık gruplarını örneğin
"Esansiyel (primer) hipertansiyon " hastalığını yaş gruplarına göre sayfa 2 de icmal yapmak.Hücre içinde tek veri olsa kolay ama hücre içinde yanında ek bir hastalık ta olabildiğinden icmali yapamadım.Yardımlarınız için teşekkür ederim.

 

[musculus]

Nasıl yapabileceğim hakkında fikir verebilirmisiniz aşağıdaki kodları yazdım ama sonraki bulmayı yapmıyor tek bir tane buluyor.



Sub Makro1()
'

Dim satır As String, Here As String, atla As String
atla = 0
Range("o1").Select



Cells.Find(What:=" Esansiyel (primer) hipertansiyon ", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
'eylemler buraya yazılacak


Here = ActiveCell.Address

satır = Mid(Here, InStr(Here, "$") + 3, InStr(2, Here, "$"))

satır2 = Mid(Here, InStr(Here, "$") + 3, InStr(2, Here, "$"))

atla = atla + 1
MsgBox satır2
devam:
Cells.FindNext(After:=ActiveCell).Activate

satır2 = Mid(Here, InStr(Here, "$") + 3, InStr(2, Here, "$"))
MsgBox satır2

If satır2 > satır Then GoTo devam






End Sub

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. İki hastalık için düzenledim. Gerekmiyorsa ikinci hastalık sütununu silebilirsiniz.

 

[musculus]

Sayın Korhan Ayhan ilginiz için teşekkür ederim kodlar harika aslında bana ekteki dosyada orjinali olan yaklaşık 20 hastalık için gerekli ve listem bu kadar sınırlı değil her ay yaklaşık 1200 hastam var.kodları nasıl değiştireceğimi kısaca özetliyebilirmisiniz

 

[Korhan Ayhan]

Selamlar,

Üstteki mesjımdaki dosyayı güncelledim. İncelermisiniz. Listelemenin sağlıklı olması için hastalık isimlerinin aynı olması gerekmektedir. Arama komutu İÇERİR seçeneğine göre arama yapmaktadır.

 

[musculus]

Yardımlarınız için teşekkür ederim bilginize emeğinize sağlık ben kendime göre uyarlamaya çalışacağım umarım takıldığım yerde tekrar size başvurursam size sıkıntı yaratmış olmam.