çok sayıda textbox altalta kayıtta sorun

[tahiroglu]

merhabalar

sayın zafer hocam örnek vermiş olduğu formül üzerinden gitmeye çalıştım ama yapamadım.
üç sıra yanyana beş sırada altalta olan örnekde textboxların numaraları aşağıdaki gibidir.

textbox100 textbox200 textbox300
......... ............. ..........
textbox104 textbox204 textbox304

şeklinde sıralanıyordu.
ve formülü

Private Sub CommandButton1_Click()
son = Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
For i = 1 To 5

Cells(son + i, 1).Value = Controls("textbox" & i + 99)
Cells(son + i, 2).Value = Controls("textbox" & i + 199)
Cells(son + i, 3).Value = Controls("textbox" & i + 299)

Next

End Sub

kullanmış olduğum userfomrda ise altalta sıralama 30 adet dir.
aynı formülü kullanarak yapmaya çalıştım ama olmadı
textboxların sıralanışı ise yine aynı

textbox100 textbox200 textbox300
......... ............. ..........
textbox129 textbox229 textbox329

for i = 1 = 30
olarak değiiştirdim ama olmadı nerde hata yapıyorum.
birde orta sırada sıralı olan textboxlarda yani 200 lü textboxlarda 0 (sıfır) değeri olan textboxı ve o sırayı (sağındaki ve solundaki textboxlarıda) kayıt etmeyecek nasıl yapabilirim.
herkese iyi çalışmalar
iyi günler

 

[veyselemre]

Private Sub CommandButton1_Click()
son = Cells(65536, 1).End(3).Row
For i = 1 To 30
  if Controls("textbox" & (i + 199))<>0 then
    For ii = 1 To 3
        Cells(son + i, ii).Value = Controls("textbox" & (i + 99) + (ii - 1) * 100)
    Next ii
  end if
Next i
End Sub

 

[tahiroglu]

....

sayın veyselemre kodu yazdım ve oldu.ama orta sırada bulunan yani 200 lü numaralara ait olan textboxlarda sıfır yazdığında sağındaki ve solundaki sırayı kayıt etmeyecekyani o sırayı hiç görmeyip diğer kısımları kayıt edecek yine altalta bunu nasıl yapabiliriz..

if controls("textbox"&(i+199))<>0 then

k&#305;sm&#305;n&#305; ilave edince hata veriyor Next i
k&#305;sm&#305;nda

 

[veyselemre]

örnek dosya ekleyin hata vermemesi lazım

 

[tahiroglu]

dosyayı ekledim.

miktar kısmında 0 olan değerlerin kayıtını yapmayacak.miktar kısmı sıfırı olduğunda sağındaki ve solundaki textboxlar boş oluyor.bu kısımı hiç görmeyip diğer kısımları kayıt edecek.
yardımınız için saol veyselemre...

 

[veyselemre]

Şöyle deneyin,

Private Sub CommandButton3_Click()
son = Sheets("deneme").Cells(65536, 1).End(3).Row
For i = 1 To 30
    If Val(Controls("textbox" & (i + 199))) <> 0 Then
        son = son + 1
        For ii = 1 To 3
            Sheets("deneme").Cells(son, ii).Value = Controls("textbox" & (i + 99) + (ii - 1) * 100)
        Next ii
    End If
Next i
End Sub

 

[tahiroglu]

merhaba veyselemre

daha öncede denemiştim end if i.ama olmadı hatta şimdi yeniden denedim hiç bir kayıtı aktarmıyor.deneme sayfası bomboş durumda hiç bir veriyi aktarma yapmıyor.

 

[veyselemre]

Dosyanıza ekledim.

 

[tahiroglu]

teşekkürler

sayın veysel emre yapmış olduğunuz eklemeyi görüp sayenizde bir şey daha öğrenmiş oldum.tekrar teşekkür ederim.
:icelim: