Dizi Tanımlama

[tamer42]

Merhaba,

aşağıdaki kodda sayfa da "E" sütununda belli kriterlere uyan verileri diziye aktarmak istiyordum, başta dizi boyutu belli olmadığı için; Dizi boyutunu tanımlayamadım.

Dizi boyutunun tanımlanması konusunda yardımcı olursanız sevinirim.

Sub Dizim()
Dim Veri() As Variant
Dim i As Integer
Dim j As Integer, Sat As Integer
Dim Deger

Sat = [E65536].End(3).Row
 i = 0
For j = 5 To Sat

If Len(Deger) > 0 Then

Deger = Cells(j, 4).Value
Deger = Replace(Deger, ".", "")

If IsNumeric(Deger) Then   
   Veri(i) = Cells(j, 5).Value
   i = i + 1 
End If
End If
Next j
   
End Sub

şimdiden teşekkürler,
iyi akşamlar.

 

[Muzaffer Ali]

Merhaba.

aşağıdaki gibi yapabilirsiniz.

Sub Dizim()
    Dim Veri() As Variant
    Dim i As Integer
    Dim j As Integer, Sat As Integer
    Dim Deger
   
    Sat = [E65536].End(3).Row
    i = 0
    For j = 5 To Sat
        If Len(Deger) > 0 Then
            Deger = Cells(j, 4).Value
            Deger = Replace(Deger, ".", "")
            If IsNumeric(Deger) Then
                ReDim Preserve Veri(i)
                Veri(i) = Cells(j, 5).Value
                i = i + 1
            End If
        End If
    Next j
End Sub

Bir öneri: Değişken adlarını tek bir harf ile değil de anlamlı kelimeler ile tanımlamanız kodları (ileride) okuma konusunda yardımcı olur.

 

[tamer42]

Merhaba.

aşağıdaki gibi yapabilirsiniz.

Sub Dizim()
    Dim Veri() As Variant
    Dim i As Integer
    Dim j As Integer, Sat As Integer
    Dim Deger
  
    Sat = [E65536].End(3).Row
    i = 0
    For j = 5 To Sat
        If Len(Deger) > 0 Then
            Deger = Cells(j, 4).Value
            Deger = Replace(Deger, ".", "")
            If IsNumeric(Deger) Then
                ReDim Preserve Veri(i)
                Veri(i) = Cells(j, 5).Value
                i = i + 1
            End If
        End If
    Next j
End Sub

Bir öneri: Değişken adlarını tek bir harf ile değil de anlamlı kelimeler ile tanımlamanız kodları (ileride) okuma konusunda yardımcı olur.

teşekkürler