clleker88
Altın Üye
- Katılım
- 14 Eylül 2020
- Mesajlar
- 34
- Excel Vers. ve Dili
- 2019
- Altın Üyelik Bitiş Tarihi
- 30-09-2025
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
