h_codes = Cells(Target.Row, Range("A1:AF1").Find("H Cümlecikleri").Column) 'Sutundan verileri Al
code_List() = Split(h_codes, ",") 'Parçala dizi haline getir'
TehlikeKontrolSayısal = TeklikeKontrolBand(code_List) 'Diziyi Metot parametresine ver
Function SolunumKontrolBand(CODE_LİST() As String) As Integer
end Function

code_List() = Split(h_codes, ",") 'Parçala dizi haline getir'
TehlikeKontrolSayısal = TeklikeKontrolBand(code_List) 'Diziyi Metot parametresine ver
Function SolunumKontrolBand(CODE_LİST() As String) As Integer
end Function

