Dizi oluşturma kodunda hata

[tamer42]

Merhaba,
Sayfa da C sütununda yazan verilerden bir dizi oluşturmak istiyordum,
yalnız kodda dizi elamanları boş geliyor.

Sub Dizim12()
Dim ws As Worksheet
 Dim arr() As Variant
Dim lr As Byte
Dim i As Byte


   Set ws = Sheets("Sayfa2")
    lr = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
    

    arr = ws.Range("C2:C" & lr).Value
    
   ReDim arr(LBound(arr, 1) To UBound(arr, 1), 1 To 1)

 
        For i = LBound(arr, 1) To UBound(arr, 1)
        
                MsgBox arr(i, 1)
        
        Next i
    
End Sub

Teşekkürler,
iyi çalışmalar.

 

[Muzaffer Ali]

Merhaba.

ReDim arr(LBound(arr, 1) To UBound(arr, 1), 1 To 1)

Satırı yeniden boyutlandırıyor ve içeriği temizliyor.
Aslında aynı boyutu tekrar ediyorsunuz, bu satırı silerseniz sorun çözülür.

 

[tamer42]

Merhaba.

ReDim arr(LBound(arr, 1) To UBound(arr, 1), 1 To 1)

Satırı yeniden boyutlandırıyor ve içeriği temizliyor.
Aslında aynı boyutu tekrar ediyorsunuz, bu satırı silerseniz sorun çözülür.

Hocam teşekkürler, boyutu nasıl belirtebiliriz? Boyut belirtmeden hafızada çok yer kapmaz mı?

 

[Muzaffer Ali]

arr = ws.Range("C2:C" & lr).Value

Bu satır ile değer atanırken zaten boyut belirtilmiş oluyor.

 

[tamer42]

arr = ws.Range("C2:C" & lr).Value

Bu satır ile değer atanırken zaten boyut belirtilmiş oluyor.

teşekkürler