Split fonksiyonu "type mismatch" hatası veriyor!

[marcopolo123]

Arkadaşlar merhaba.
Ben bir hücreden okuduğum bir string'i "/" karakterine göre bölmek istiyorum.

Kod aşağıdadır.

Dim lotusPath2, lotusPathPL, lotusPath2Split(), lotusPathPLSplit() As String

...

lotusPathPL = Ws2.Range("E" & i).Value
lotusPath2 = Ws1.Range("B" & j).Value

If lotusPathPL <> "" Then
lotusPathPLSplit = Split(lotusPathPL, "/")
Else
Ws2.Range("G" & i).Value = 0
End If

If lotusPath2 <> "" Then
lotusPath2Split = Split(lotusPath2, "/")
End If

...


Benim sorunum birinci Split() fonksiyonu sorunsuz çalışırken ikinci Split fonksiyonunda "type mismatch" hatası veriyor. Debug ettiğimde değerler şöyle:

lotusPathPL="/Atlbakbm/Isletmegmy/isdemir"
lotusPath2="hatice cebi/Atlbakbm/Isletmegmy/isdemir"

Ne yapmalıyım? Yardımcı olursanız sevinirim. Şimdiden teşekkürler

 

[Levent Menteşoğlu]

Hata değişken tanımlamalarınızda

Dim lotusPath2, lotusPathPL, lotusPath2Split(), lotusPathPLSplit() As String

Yukarıdaki tanımlamalarınızı aşağıdaki gibi yapın.

Dim lotusPath2, lotusPathPL As String
Dim lotusPath2Split() As String
Dim lotusPathPLSplit() As String

 

[marcopolo123]

Çok teşekkür ederim. Sorun halloldu. Ama böyle bir durumdan kaynaklanması gerçekten ilgimi çekti. Birçok programlama dili biliyorum ancak böyle bir durumla karşılaşmadım.
İyi çalışmalar...