sütuna kayıt

[Fuat Şirin]

arkadaşlar bu kodları kullanarak userformdan sayfaya kayıt yapıyorum
bunları aynı satıra yazıyo
ama ben aynı satıra değilde
aynı sutuna yazdırmak istiyorum
yani a sutunu gibi
veya a ve b sutunu gibi

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 32000
If (Sayfa1.Cells(i, 1) = "") Then
Sayfa1.Cells(i, 1) = cbCinsi.Text
Sayfa1.Cells(i, 2) = cbRenk.Text
Sayfa1.Cells(i, 3) = cbNo.Text
Sayfa1.Cells(i, 4) = txtfiyati.Text
Sayfa1.Cells(i, 5) = TextBox1.Text
Sayfa1.Cells(i, 6) = TextBox2.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
Exit Sub
End If
Next i

 

[korkut31]

hım..

sn. parlemen i sayacının cells içindeki yerini değiştiriniz. cells(i,1) yerine mesela cells(1,i) gibi.
iyi çalışmalar

 

[Mahmut Kök]

Bu kodlar işini görebilir belki, dener

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 32000
If (Sayfa1.Cells(i, 1) = "") Then
Sayfa1.Cells(i, 1) = cbCinsi.Text
i=i+1
Sayfa1.Cells(i, 1) = cbRenk.Text
i=i+1
Sayfa1.Cells(i, 1) = cbNo.Text
i=i+1
Sayfa1.Cells(i, 1) = txtfiyati.Text
i=i+1
Sayfa1.Cells(i, 1) = TextBox1.Text
i=i+1
Sayfa1.Cells(i, 1) = TextBox2.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
Exit Sub
End If
Next i

 

[Fuat Şirin]

şöyle desem size

mesela 4 tane textbox ı 1 sutununa
4 tanesinide be sutununa giricem
bunu için ne yazpmam lazım

 

[Fuat Şirin]

arkadaşlar yardım

arkadaşlar acil yardım bekliyorum

 

[Mahmut Kök]

döngünün bir yerinde başka bir değişken tanımlayıp, onu her seferinde 1 artırın ve 4 olunca diğer sütuna geçin.

 

[Fuat Şirin]

hocam anlayamadım

kusura bakmayın hocam ya anlayamadım
dosyam ekte bi incelerseniz
daha aydınlatıcı olacaktır

 

[Mahmut Kök]

ekteki gibi bir çalışma istiyorsunuz galiba...