Textbox'da kayıt konusunda sorun

[yücelkaya]

Sayın Arkadaşlar,
Siteye yeni üye oldum ancak bir süredir takip ediyorum.Benim sorunum şu;
Userform'da textbox'a 1.satır için kayıt yapıyorum ancak 2.satır için kayıt yapmak istediğimde yine 1.satıra kayıt yapıyor.Acaba hatam nerede veya kod
eksikliğim nedir?
Konuya yardımcı olacak arkadaşlarıma şimdiden teşekkür ederim.
Kodlar köyle;
Private Sub CommandButton1_Click()
If MsgBox("[ " & ComboBox1.Value & " ] İsimli Kaydı Kaydetmek İstiyormusunuz?", vbYesNo + vbQuestion, "Kaydet") = vbNo Then Exit Sub
frmkayit.Show
If TextBox1008 = 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 10 Or 11 Or 12 Or 13 Or 14 Or 15 Or 16 Or 17 Or 18 Or 19 Or 20 Or 21 Or 22 Or 23 Or 24 Or 25 Or 26 Or 27 Or 28 Or 29 Or 30 Or 31 Or 32 Or 33 Or 34 Or 35 Or 36 Or 37 Or 38 Or 39 Or 40 Then
Range("C94").Value = TextBox1008.Value
Range("D94").Value = ComboBox3.Value
Range("E94").Value = ComboBox1.Value
Range("J94").Value = TextBox1.Value
Range("K94").Value = TextBox2.Value
Range("L94").Value = TextBox3.Value
Range("M94").Value = TextBox10037.Value
Range("N94").Value = TextBox10036.Value
Range("O94").Value = TextBox10035.Value

ElseIf TextBox1008 = 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 10 Or 11 Or 12 Or 13 Or 14 Or 15 Or 16 Or 17 Or 18 Or 19 Or 20 Or 21 Or 22 Or 23 Or 24 Or 25 Or 26 Or 27 Or 28 Or 29 Or 30 Or 31 Or 32 Or 33 Or 34 Or 35 Or 36 Or 37 Or 38 Or 39 Or 40 Then
Range("C95").Value = TextBox1008.Value
Range("D95").Value = ComboBox3.Value
Range("E95").Value = ComboBox1.Value
Range("J95").Value = TextBox1.Value
Range("K95").Value = TextBox2.Value
Range("L95").Value = TextBox3.Value
Range("M95").Value = TextBox10037.Value
Range("N95").Value = TextBox10036.Value
Range("O95").Value = TextBox10035.Value
End Id
End Sub

Bu şekilde 15 satıra kayıt yapmak istiyorum ve 1.satıra kayıt konusunda sorunum yok ancak 1.kaydı tamamladığımda 2.atır için kayıt yapmak için değerleri girdiğimde 1.satıra kayıt yapıyor.Hatam acaba nerede?

 

[gezgin-49]

sayın yücelkaya basit bir dosya gönderseydiniz bence daha iyi olurdu, zira TextBox10008, 10037 ....... TextBox1-2-3' ten sonra neden 4 değilde 10037 gelmiş, bu kısmı anlamış değilim,

 

[yücelkaya]

textbox değeri

ayın Gezgin-49 textbox'ın aldığı rakam acaba bu konuda sorun yaratır mı?.

 

[yücelkaya]

üstad espiyonalj

Sayın Espiyolalj,
Üstadım konu hakkında fikriniz nedir? nerede hatam var acaba

 

[gezgin-49]

ayın Gezgin-49 textbox'ın aldığı rakam acaba bu konuda sorun yaratır mı?.

tabiki bir sorun olmaz, ama textbox numaralarının neden bu kadar büyük olduğunu merak etmiştim.

 

[yücelkaya]

textbox

sayın gezgin-49,
userformu yaptıktan sonra çeşitli ilaveler yaptım.bu nedenle textbox numaraları farklı ancak userformda 1.satırda sorunum yok yani c94 ile n94 arasında girdiğim kayıtları ilgili hücrelere atıyor ancak 2.kayıda geçince bunu 1.kaydın üzerine yazıyor normalde c95 ile n95 arası olan satır 2 ye aktarması gerekirdi ancak nerede hata yaptım bulamıyorum

 

[gezgin-49]

Range("M95").Value = TextBox10037.Value
Range("N95").Value = TextBox10036.Value
Range("O95").Value = TextBox10035.Value
End Id (End If olması gerekirken End Id yazmışsınız, öncelikle burayı bir düzeltin

End Sub

 

[yücelkaya]

düzelttim

Sayın gezgin 49,
onu düzelttim.ancak textbox1008'in değerini 1 or 2 0r değilde 1 ile 40 arasında ise 1.satır c94 ile n94 arasında textbox1008'in değeri 1 ile 40 arasında ise 2.satır c95 ile n95 arasında şeklinde olabilir mi olursa kodu nasıl düzeltmeliyi ya da sizin öneriniz nedir
teşekkürlerimle

 

[meslan]

Sn. yucelkaya doğrusu sorunuzu iyi anlamış değilim. Bir dosya ekleseydiniz. Mutlaka yardımcı olacak arkadaşlar vardır. Ekteki dosyayı inceleyin. Probleminizi halletmeye çalışayım.

 

[yücelkaya]

textbox

sayın arkadaşlar,
dosya çok büyük olduğu için maalesef ekleyemiyorum ama gönderdiğiniz dosyada 1.kaydı yapıyor evet ama 2.kaydı c95 satırından başlamıyor gene c94 le başlayan satıra kayıt yapıyor

 

[meslan]

Sn.yücelkaya, dosyanın sadece konuyla ilgili bölümünü ekleseniz olur. Tamamına gerek yok. 15 satır kayıt demişsiniz ama 94 ve 95. satırları adres göstermişsiniz. nasıl 15 satır olacak neye göre olacak.

 

[yücelkaya]

dosya

saygıdeğer arkadaşlar
dosya ekte
ilginize teşekkür ederim.

 

[meslan]

Sn.yücelkaya eklediğim dosyayı tekrar inceler misiniz.

 

[yücelkaya]

run time error 1004

Hocam worksheet fonksiyonunun select hatası verdi run time error 1004 şeklinde commandbutton2 ile ilgili olarak galiba