kodları kısaltma

[Erdinç FIRTINA]

Değerli Forum üyeleri,

Userform1 'de bulunan Comboboxlardaki ve textboxlardaki bilgiler aşağıdaki kodlarla excel sayfasına aktarılıyor. Ancak bu yöntemle kodlar çok uzun oluyor.

1.Bu kodlar nasıl kısaltılabilir? Kodların açıklamaları da yapılabilirse çok sevinirim.(Aslında bu kodlar daha da fazla)

(dosya ektedir. Yardımlarınız için şimdiden teşekkürler!!!)

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
For i = 2 To 32000
If (Sayfa1.Cells(i, 2) = "") Then
Sayfa1.Cells(i, 2) = ComboBox1.Text
Sayfa1.Cells(i, 3) = TextBox1.Text
Sayfa1.Cells(i, 4) = TextBox2.Text
Sayfa1.Cells(i, 5) = TextBox3.Text
Sayfa1.Cells(i, 6) = ComboBox2.Text
Sayfa1.Cells(i, 7) = TextBox4.Text
Sayfa1.Cells(i, 8) = TextBox5.Text
Sayfa1.Cells(i, 9) = TextBox6.Text
Sayfa1.Cells(i, 10) = TextBox7.Text
Sayfa1.Cells(i, 11) = TextBox8.Text
Sayfa1.Cells(i, 12) = TextBox9.Text
Sayfa1.Cells(i, 13) = TextBox10.Text
Sayfa1.Cells(i, 14) = ComboBox3.Text
Sayfa1.Cells(i, 15) = TextBox11.Text
Sayfa1.Cells(i, 16) = TextBox12.Text
Sayfa1.Cells(i, 17) = TextBox13.Text
Sayfa1.Cells(i, 18) = ComboBox4.Text
Sayfa1.Cells(i, 19) = TextBox14.Text
Sayfa1.Cells(i, 20) = TextBox15.Text
MsgBox "BİLGİ EKLENDİ !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
Exit Sub
End If
Next i
End Sub

 

[serinci]

merhabalar kodları nasıl kısalacağı hakkında bilgim yok ancak, 2004 yılında hazırlamış olduğum bir program gördüğüm kadarı ile sizin yapmak istediğinizi fazlası ile karşılamakta gibi,

programda Userformdan veri girişi, değiştirme silme, sayfadan sayfaya veri aktarımı, resim gösterme özelliği, sayaç, vs. bir çok özellik ve raporlama yöntemlerinden olan özet veri tablo ya ilişkin bir çok seçenek bulunmaktadır,

dosyayı incelemeniz durumunda sanırım gerekli birçok bilgiyi bulanbilirsiniz.

sayfa koruma şifreleri 1636 dır

http://uploaded.to/?id=ist9xi

 

[Erdinç FIRTINA]

Teşekkürler Sayın Serinci,
İnceleyemedim ama eminimki çok işime yarayacaktır.

 

[hsayar]

hocam vba şifresine bu programın inceleyecem hata verip duruyor

 

[ASMET67]

Dsoyanızı denermisiniz.

 

[serinci]

Dosyanın VBA bölümünde şifre yok ancak açılıştaki şifreye 001636 yada herhangi birşey yazmadan girişi tamamlayabilirsiniz.