Bir arraydaki veri sayısı ?

[hsayar]

silinecek = Array("deneme1", "deneme2", "deneme3", "deneme4")

Silinecek dizisinde 4 tane array var bunu ben biliyorum
Şöyle bir durumda bana lazım

son = Workbooks(bu).Worksheets.Count
If son <= [color="red"]4[/color] Then 'korunacak 5 sayfa.
MsgBox "TA&#350;INACAK SAYFA YOK"
Exit Sub

4 , silinecek dizisindeki 4 adet veriyi temsil ediyor nasıl eşitlerim, yani diziye bir veri daha eklediğimde 5 i elle yazmak yerine otomatik alsın.

 

[Orion1]

Aşağıdaki kodu deneyiniz.

MsgBox UBound(silinecek) + 1

 

[hsayar]

Teşekkürler, hocam

Dim Korunansayfalar()
Korunansayfalar = Array("koru01", "koru02", "koru03", "koru04", "koru05")
Krn_Dzi_vs = UBound(Korunansayfalar) + 1
...............
bu_Kit_ss = Bu_wb.Worksheets.Count
If bu_Kit_ss <= [color="Red"] Krn_Dzi_vs [/color] Then
'bu &#231;al&#305;&#351;ma kitab&#305;ndaki &#231;al&#305;&#351;ma sayfas&#305;, diziden k&#252;&#231;&#252;k veya e&#351;itmi kontrol et.
...........