Kod Hatası Düzeltme.

[seddur]

Merhaba.Aşağıdaki kod'da UBOUND üzerinde expected array şeklinde hata veriyor.Acaba tanımlamak mı gerekiyor.( Dim As kullanarak)Ya da UBOUND yerine başka bir komut yazılabilir mi?.Yardımcı olabilir misiniz?

Dim dc As Object, v()
Private Sub CommandButton1_Click()
ListView1.ListItems.Clear
aranan = TextBox1.Text
deg = Split(dc(aranan), "|")
For i = 1 To UBound(deg) 'HATA VEREN SATIR
ListView1.ListItems.Add , , i & ". Görüşme"
ListView1.ListItems(i).SubItems(1) = v(deg(i), 1)
Next i
End Sub
Private Sub UserForm_Activate()
With UserForm1.ListView1
UserForm1.BackColor = RGB(0, 102, 102)
ListView1.BackColor = RGB(23, 60, 89)
ListView1.ForeColor = RGB(0, 0, 0)
.Font.Name = calibri
.Font.Bold = True
.ForeColor = RGB(255, 255, 255)
.Font.Size = 11
.FullRowSelect = True
.View = lvwReport
.Gridlines = True
.ColumnHeaders.Add , , "GÖRÜŞME", 90, lvwColumn
.ColumnHeaders.Add , , "TARİH", 100, lvwColumn
End With

Set s = Sheets("Veri")
son = s.Cells(Rows.Count, 1).End(3).Row
sut = s.Cells.Find("*", , , , xlByColumns, xlPrevious).Column
v = s.Range("A1:I" & son).Value
Set dc = CreateObject("scripting.dictionary")
For i = 2 To UBound(v)
For j = 2 To UBound(v, 2)
If v(i, j) <> "" Then
dc(v(i, j)) = dc(v(i, j)) & "|" & i
End If
Next j
Next i

 

[Necdet]

Merhaba,
Deg değişkeninin değerini kontrol edin.

 

[seddur]

Deg değişkeni sayısal değil metinsel bir ifade yani Textbox1'e metinsel ifade giriliyor.Acaba bundan kaynaklanıyor olabilir mi?

 

[Necdet]

Merhaba,

Ubound(deg) ile gelen deger nümeric olmalı.

diziyi kontrol ediniz.

 

[seddur]

Kod yeni bir çalışma kitabında ve yeni bir userformda çalışıyor mevcut çalıştığım dosyada hata veriyor onu anlamış değilim

 

[Necdet]

Merhaba,

Kodun nerede olduğu önemli değil

deg = Split(dc(aranan), "|")

ile yazılan kodda deg ne alemde onu bilmelisiniz.
bunu bilmek için dc(aranan) ne durumda ve | ile ayırdığınızda deg istediğiniz hale geliyor mu?

bunları inceleyebilmek için vba penceresinde
view/Watch Window u aktif edin
değişkeni bu pencereye taşıyın ve değişkenlerin değerlerini görebilirsiniz.