Private Sub btnTedavi_Click()
Dim cikti As Worksheet, doz As Worksheet, kanlar As Worksheet, TutulumP As Worksheet
Set cikti = ThisWorkbook.Sheets("cikti")
Set doz = ThisWorkbook.Sheets("doz")
Set kanlar = ThisWorkbook.Sheets("kanlar")
Set TutulumP = ThisWorkbook.Sheets("Tutulum Paterni")
If...