For DÖngÜsÜ İÇİnde Textbox DeĞerlerİnİ Sabİt Olmaktan Çikarmanin Yolu

[kazim_ahmet_hasim]

Merhaba arkadaşlar;

Aşağıdaki sorunu nasıl çözebiliriz acaba?

İçerisinde donati_sirasi_sayisi_text, kesit_genisligi_text, kesit_yuksekligi_text,
paspayi_text ve donati_capi_text adlarında text kutuları içeren bir formum var.

Bu formda ileri_command adında bir İleri tuşu da mevcut.

Bu tuşa tıklandığında gerçekleşen kodu da aşağıda vermiş bulunmaktayım.

Koddan da görüleceği üzere exceldeki hücrelere for döngüsü içerisinde text kutusundaki değerleri atamak istemekteyim yalnız kod bu haliyle textbox.value'lar sabit yani döngünün neresinde olursam olayım ilk başta girdiğim değerler ama ben textbox.value değerlerinin her yeni döngüde kullanıcı tarafından yeni bir değer olarak girilmesini ve döngü karakteri j' ye bağlı olarak
formüle edilen hücre adreslerine bu yeni textbox değerlerinin girilmesini istemekteyim.

Nasıl yapabiliriz acaba?

İyi çalışmalar dilerim.

Saygılarımla



Private Sub ileri_command1_Click()

Dim a() As Double, siradaki_donati_adedi() As Double, j As Integer, kesit_sayisi As Integer
Dim donati_sirasi_adedi() As Double


kesit_sayisi = Sayfa2.Cells(2, 1).Value
ReDim donati_sirasi_adedi(kesit_sayisi) As Double

For j = 1 To kesit_sayisi Step 1


Sayfa2.Cells(2 + (j - 1) * donati_sirasi_adedi(j - 1), 5).Value = donati_sirasi_sayisi_text.Value

donati_sirasi_adedi(j) = Sayfa2.Cells(2 + (j - 1) * donati_sirasi_adedi(j - 1), 5).Value

Sayfa2.Cells(2 + (j - 1) * donati_sirasi_adedi(j - 1), 2).Value = kesit_genisligi_text.Value

Sayfa2.Cells(2 + (j - 1) * donati_sirasi_adedi(j - 1), 3).Value = kesit_yuksekligi_text.Value

Sayfa2.Cells(2 + (j - 1) * donati_sirasi_adedi(j - 1), 4).Value = paspayi_text.Value

Sayfa2.Cells(2 + (j - 1) * donati_sirasi_adedi(j - 1), 6).Value = donati_capi_text.Value

Next

End Sub