• DİKKAT

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

Çoklu İf Kullanımı (Filyasyon Çalışması )

O

omeryılmaz

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Arkadaşlar
Sağlık Ocaklarında Bulaşıcı Hastalıkların takibi ve Filyasyon raporlarını hazırlamak üzere yaptığım çalışmada aşağıdaki gibi Uzunca "If Range("b" & sat) = "Hepatit A" Then kulllanmam gerekli. Ancak Bildirimi Zorunlu Bulaşıcı Hastalık sayısı , toplam 51'dir. Belirli bir "If Range("b" & sat) = "Hepatit B" Then den sonra kod hata vermektedir. Yardımlarınız için şükranlarımı sunuyorum Saygılar....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Cancel = True
sat = Target.Row
hcr = Sheets("FORM016").[c65536].End(3).Row
Range("b" & sat).Interior.ColorIndex = 34

'A GRUBU HASTALIKLAR*****************************************************
If Range("b" & sat) = "Hepatit A" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 1).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If
If Range("b" & sat) = "Hepatit B" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 2).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If
If Range("b" & sat) = "Hepatit C" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 3).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If


If Range("b" & sat) = "Boğmaca" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 4).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If

If Range("b" & sat) = "Bruselloz" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 5).Value 'Kayıt Sıra
Sheets("PARAZİT HST").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("PARAZİT HST").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("PARAZİT HST").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("PARAZİT HST").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("PARAZİT HST").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("PARAZİT HST").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("PARAZİT HST").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("PARAZİT HST").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("PARAZİT HST").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("PARAZİT HST").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("PARAZİT HST").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("PARAZİT HST").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("PARAZİT HST").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("PARAZİT HST").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("PARAZİT HST").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("PARAZİT HST").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("PARAZİT HST").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("PARAZİT HST").Select
End If

If Range("b" & sat) = "Difteri" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 6).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If

If Range("b" & sat) = "Gonore" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 7).Value 'Kayıt Sıra
Sheets("PARAZİT HST").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("PARAZİT HST").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("PARAZİT HST").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("PARAZİT HST").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("PARAZİT HST").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("PARAZİT HST").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("PARAZİT HST").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("PARAZİT HST").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("PARAZİT HST").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("PARAZİT HST").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("PARAZİT HST").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("PARAZİT HST").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("PARAZİT HST").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("PARAZİT HST").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("PARAZİT HST").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("PARAZİT HST").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("PARAZİT HST").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("PARAZİT HST").Select
End If

If Range("b" & sat) = "Kabakulak" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 8).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If

If Range("b" & sat) = "Akut Kanlı İshal(Dizanteri)" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 9).Value 'Kayıt Sıra
Sheets("PARAZİT HST").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("PARAZİT HST").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("PARAZİT HST").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("PARAZİT HST").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("PARAZİT HST").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("PARAZİT HST").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("PARAZİT HST").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("PARAZİT HST").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("PARAZİT HST").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("PARAZİT HST").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("PARAZİT HST").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("PARAZİT HST").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("PARAZİT HST").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("PARAZİT HST").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("PARAZİT HST").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("PARAZİT HST").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("PARAZİT HST").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("PARAZİT HST").Select
End If

If Range("b" & sat) = "Kızamıkçık" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 10).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If

If Range("b" & sat) = "Kızamık" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 11).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If

If Range("b" & sat) = "Kolera" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 12).Value 'Kayıt Sıra
Sheets("PARAZİT HST").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("PARAZİT HST").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("PARAZİT HST").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("PARAZİT HST").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("PARAZİT HST").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("PARAZİT HST").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("PARAZİT HST").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("PARAZİT HST").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("PARAZİT HST").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("PARAZİT HST").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("PARAZİT HST").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("PARAZİT HST").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("PARAZİT HST").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("PARAZİT HST").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("PARAZİT HST").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("PARAZİT HST").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("PARAZİT HST").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("PARAZİT HST").Select
End If

If Range("b" & sat) = "Kuduz ve Kuduz Riskli Temas" Then
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 5).Value = Range("aı" & 13).Value 'Kayıt Sıra
Sheets("K.ŞÜPHELİ_ISIRIK").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 19).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("K.ŞÜPHELİ_ISIRIK").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("K.ŞÜPHELİ_ISIRIK").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
'Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
'Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
'Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 17).Value = Range("b" & sat).Value 'Hastalık
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 18).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("K.ŞÜPHELİ_ISIRIK").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("K.ŞÜPHELİ_ISIRIK").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("K.ŞÜPHELİ_ISIRIK").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 20).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("K.ŞÜPHELİ_ISIRIK").Select
End If

If Range("b" & sat) = "Meningokoksik menenjit" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 14).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If

If Range("b" & sat) = "Poliyomyelit (Çocuk Felci)" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 15).Value 'Kayıt Sıra
Sheets("HEPATİT").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("HEPATİT").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("HEPATİT").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("HEPATİT").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("HEPATİT").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("HEPATİT").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("HEPATİT").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("HEPATİT").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("HEPATİT").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("HEPATİT").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("HEPATİT").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("HEPATİT").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("HEPATİT").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("HEPATİT").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("HEPATİT").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("HEPATİT").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("HEPATİT").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("HEPATİT").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Range("f" & 24).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("HEPATİT").Select
End If

If Range("b" & sat) = "Şarbon" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 16).Value 'Kayıt Sıra
Sheets("PARAZİT HST").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("PARAZİT HST").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("PARAZİT HST").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("PARAZİT HST").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("PARAZİT HST").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("PARAZİT HST").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("PARAZİT HST").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("PARAZİT HST").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("PARAZİT HST").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("PARAZİT HST").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("PARAZİT HST").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("PARAZİT HST").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("PARAZİT HST").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("PARAZİT HST").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("PARAZİT HST").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("PARAZİT HST").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("PARAZİT HST").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("PARAZİT HST").Select
End If

If Range("b" & sat) = "Şark Çıbanı(kutonöz leishmaniazis)" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 17).Value 'Kayıt Sıra
Sheets("PARAZİT HST").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("PARAZİT HST").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("PARAZİT HST").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("PARAZİT HST").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("PARAZİT HST").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("PARAZİT HST").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("PARAZİT HST").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("PARAZİT HST").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("PARAZİT HST").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("PARAZİT HST").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("PARAZİT HST").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("PARAZİT HST").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("PARAZİT HST").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("PARAZİT HST").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("PARAZİT HST").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("PARAZİT HST").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("PARAZİT HST").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("PARAZİT HST").Select
End If

If Range("b" & sat) = "Sifiliz (Frengi)" Then
Sheets("FRENGİ").Range("f" & 5).Value = Range("aı" & 18).Value 'Kayıt Sıra
Sheets("FRENGİ").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("FRENGİ").Range("f" & 22).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("FRENGİ").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("FRENGİ").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("FRENGİ").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("FRENGİ").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("FRENGİ").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("FRENGİ").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("FRENGİ").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("FRENGİ").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("FRENGİ").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("FRENGİ").Range("f" & 19).Value = Range("b" & sat).Value 'Hastalık
Sheets("FRENGİ").Range("f" & 21).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("FRENGİ").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("FRENGİ").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("FRENGİ").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("FRENGİ").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("FRENGİ").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("FRENGİ").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("FRENGİ").Select
End If

If Range("b" & sat) = "Sıtma" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 19).Value 'Kayıt Sıra
Sheets("PARAZİT HST").Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets("PARAZİT HST").Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı

Sheets("PARAZİT HST").Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets("PARAZİT HST").Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets("PARAZİT HST").Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets("PARAZİT HST").Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets("PARAZİT HST").Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets("PARAZİT HST").Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets("PARAZİT HST").Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets("PARAZİT HST").Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets("PARAZİT HST").Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets("PARAZİT HST").Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets("PARAZİT HST").Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets("PARAZİT HST").Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets("PARAZİT HST").Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets("PARAZİT HST").Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets("PARAZİT HST").Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets("PARAZİT HST").Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets("PARAZİT HST").Select
End If
End Sub
 
bu kdu denermisiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Cancel = True
sat = Target.Row
hcr = Sheets("FORM016").[c65536].End(3).Row
Range("b" & sat).Interior.ColorIndex = 34
'A GRUBU HASTALIKLAR*************************************** **************
yer = Range("b" & sat)
If yer = "Hepatit A" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 1).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Hepatit B" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 2).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Hepatit C" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 3).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Boğmaca" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 4).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Bruselloz" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 5).Value 'Kayıt Sıra
sayfa = "PARAZİT HST"
ElseIf yer = "Difteri" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 6).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Gonore" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 7).Value 'Kayıt Sıra
sayfa = "PARAZİT HST"
ElseIf yer = "Kabakulak" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 8).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Akut Kanlı İshal(Dizanteri)" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 9).Value 'Kayıt Sıra
sayfa = "PARAZİT HST"
ElseIf yer = "Kızamıkçık" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 10).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Kızamık" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 11).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Kolera" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 12).Value 'Kayıt Sıra
sayfa = "PARAZİT HST"
ElseIf yer = "Kuduz ve Kuduz Riskli Temas" Then
Sheets("K.ŞÜPHELİ_ISIRIK").Range("f" & 5).Value = Range("aı" & 13).Value 'Kayıt Sıra
sayfa = "K.ŞÜPHELİ_ISIRIK"
ElseIf yer = "Meningokoksik menenjit" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 14).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Poliyomyelit (Çocuk Felci)" Then
Sheets("HEPATİT").Range("f" & 5).Value = Range("aı" & 15).Value 'Kayıt Sıra
sayfa = "HEPATİT"
ElseIf yer = "Şarbon" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 16).Value 'Kayıt Sıra
sayfa = "PARAZİT HST"
ElseIf yer = "Şark Çıbanı(kutonöz leishmaniazis)" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 17).Value 'Kayıt Sıra
sayfa = "PARAZİT HST"
ElseIf yer = "Sifiliz (Frengi)" Then
Sheets("FRENGİ").Range("f" & 5).Value = Range("aı" & 18).Value 'Kayıt Sıra
sayfa = "FRENGİ"
ElseIf yer = "Sıtma" Then
Sheets("PARAZİT HST").Range("f" & 5).Value = Range("aı" & 19).Value 'Kayıt Sıra
sayfa = "PARAZİT HST"
End If
Sheets(sayfa).Range("l" & 4).Value = Range("b" & sat).Value 'Hastalık
Sheets(sayfa).Range("f" & 23).Value = Range("c" & sat).Value 'Tanıyı Koyan Kurum
Sheets(sayfa).Range("f" & 9).Value = Range("d" & sat).Value 'Adı Soyadı
Sheets(sayfa).Range("f" & 10).Value = Range("e" & sat).Value 'T.C
Sheets(sayfa).Range("f" & 11).Value = Range("f" & sat).Value 'Baba Adı
Sheets(sayfa).Range("l" & 11).Value = Range("g" & sat).Value 'D.Tarihi
'Sheets(sayfa).Range("h" & hcr).Value = Range("ı" & sat).Value 'Cinsiyeti
Sheets(sayfa).Range("f" & 12).Value = Range("j" & sat).Value 'Doğum Yeri
Sheets(sayfa).Range("f" & 15).Value = Range("k" & sat).Value 'Mesleği
Sheets(sayfa).Range("f" & 16).Value = Range("l" & sat).Value 'İş Yeri
Sheets(sayfa).Range("f" & 17).Value = Range("m" & sat).Value 'Okul
Sheets(sayfa).Range("f" & 20).Value = Range("b" & sat).Value 'Hastalık
Sheets(sayfa).Range("f" & 22).Value = Range("p" & sat).Value 'Başladığı Tarih
'Sheets(sayfa).Range("n" & hcr).Value = Range("x" & sat).Value 'Sonuç Tarihi
Sheets(sayfa).Range("f" & 13).Value = Range("y" & sat).Value 'Adresi
Sheets(sayfa).Range("f" & 14).Value = Range("z" & sat).Value 'Ev Tlf
Sheets(sayfa).Range("l" & 14).Value = Range("aa" & sat).Value 'Cep Tlf
Sheets(sayfa).Range("f" & 4).Value = Range("ac" & sat).Value 'Bildirimi Yapan
Sheets(sayfa).Range("m" & 6).Value = Range("ad" & sat).Value 'Bildirim Tarihi
Sheets(sayfa).Select
End Sub
Genişletmek için tıkla ...
 
kodda yanlışlık yapmışım yukarıdaki mesajdaki kodu düzelttim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst