• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

vba 'da değiştir ve sil komutları

  • Konbuyu başlatan Konbuyu başlatan can042
  • Başlangıç tarihi Başlangıç tarihi
Katılım
29 Aralık 2006
Mesajlar
80
Excel Vers. ve Dili
visualbasic
Bu kayıt komutuna göre değiştir ve sil komutu nasıl yapabilirim.Üstadlarım bu konuda bana yardım edermisiniz.kayıt komutum şu şekilde
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 32000
If (Sayfa13.Cells(i, 1) = "") Then
Sayfa13.Cells(i, 1) = ComboBox1.Text
Sayfa13.Cells(i, 1) = ComboBox1.Text
Sayfa13.Cells(i, 26) = TextBox15.Value
Sayfa13.Cells(i, 16) = TextBox18.Value
Sayfa13.Cells(i, 2) = ComboBox3.Text
Sayfa13.Cells(i, 3) = Textbox2.Text
Sayfa13.Cells(i, 4) = TextBox8.Text
Sayfa13.Cells(i, 5) = TextBox9.Text
Sayfa13.Cells(i, 6) = TextBox16.Text
Sayfa13.Cells(i, 7) = TextBox10.Text
Sayfa13.Cells(i, 8) = TextBox13.Text
Sayfa13.Cells(i, 9) = TextBox14.Text
Sayfa13.Cells(i, 18) = TextBox6.Text
Sayfa13.Cells(i, 19) = TextBox7.Text
Sayfa13.Cells(i, 21) = TextBox11.Text
Sayfa13.Cells(i, 23) = TextBox12.Text
Sayfa13.Cells(i, 15) = TextBox5.Text
Sayfa13.Cells(i, 11) = ComboBox2.Text
Sayfa13.Cells(i, 28) = ComboBox4.Text
Sayfa13.Cells(i, 27) = TextBox19.Text


MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"

Exit Sub
End If
Next i
End Sub
 
Geri
Üst