Forumda emeği geçe herkese merhaba. Aşağıdaki kodla tek boyutlu bir dizi elde ediyorum. Buraya kadar sıkıntı yok. Sıkıntı en son satırdaki kodda. Bir türlü sayfaya yazdıramıyorum. Bildiğim bütün resize ları denedim. Ya yazmıyor yada hep dizinin ilk elemanını yazıyor. Dizinin çalışıp çalışmadığını kontrol ettim. Dizi çalışıyor. Hatta kod bloğunun içine Sheets("Sayfa1").Cells(say, "AO") = nks(say) diye bir satır ekleyip denediğimde yazıyor. Derdim resize ile yazdırmak. Bir türlü başaramadım. İlgilenen arkadaşlara şimdiden teşekkürler.
Kod:
Dim nks()
For i = 0 To UBound(veri_tabani, 2)
If veri_tabani(2, i) = etk Or veri_tabani(3, i) = dtk Then
say = say + 1
ReDim Preserve nks(1 To say)
nks(say) = Array(veri_tabani(9, i))
End If
Next
Sheets("Sayfa1").Cells(1, "AO").Resize(UBound(nks) + 1, 1).Value = Application.Transpose(nks)