Userformda ProgresBar için yardım

[seyityasar]

İyi akşamlar. Ataçla eklediğim rehber pragramında bazı yerlerde takıldım.
1.User2 formunda yeni kayıt ekldiğim an progresbarın hareket etmesi
2.değiştir butonuna şifre eledim fakat mevcut kayıtta deişiklik yapamıyorum yardım edebilirmisiniz
saygılar

 

[spilavci]

dosyada hata var herhalde Sn.seyityasar hata verdi

 

[xxrt]

1.User2 formunda yeni kayıt ekldiğim an progresbarın hareket etmesi

UserForm2'ye uygun biryerine LAbel ekliyorsunuz.Sanırım label14 çıkacak.
Aşağıdaki kodları sizinkilerle değiştirin.

Private Sub CommandButton1_Click()
Dim i As Integer
kontrol = TextBox1 & TextBox2 & TextBox3 & TextBox4 & TextBox5 & TextBox6 & TextBox7 & TextBox8
say = WorksheetFunction.CountIf([z:z], kontrol)
If say > 0 Then
MsgBox "BU VERİ KAYITLIDIR, TEKRAR KAYDEDİLMEDİ"
Exit Sub
End If
say = WorksheetFunction.CountA(Sayfa1.[a2:a65536])
Sayfa1.Cells(say + 2, 1) = TextBox1.Text
Sayfa1.Cells(say + 2, 2) = TextBox2.Text
Sayfa1.Cells(say + 2, 3) = TextBox3.Text
Sayfa1.Cells(say + 2, 4) = TextBox4.Text
Sayfa1.Cells(say + 2, 5) = TextBox5.Text
Sayfa1.Cells(say + 2, 6) = TextBox6.Text
Sayfa1.Cells(say + 2, 7) = TextBox7.Text
Sayfa1.Cells(say + 2, "z") = kontrol
  For i = 1 To 1000
    ProgressBar1.Value = (i / 1000) * 100
    Label14.Caption = Format(Int((i / 1000) * 100), "%0")
    DoEvents
  Next i
  ProgressBar1.Visible = False
MsgBox "TAMAM"
Label14.Visible = False
Call UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
ProgressBar1.Visible = True
ProgressBar1.Max = 100
ProgressBar1.Min = 0.1
sat = Sheets("sayfa1").Cells(65536, 1).End(xlUp).row
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "50;80"
ComboBox1.RowSource = "sayfa1!A2:B" & sat
Label11.Caption = Format(Now, "dd:mm:yyyy")
With TextBox3
        .MaxLength = 10
        .SelStart = 0
        .SelLength = 1
        With TextBox4
        .MaxLength = 10
        .SelStart = 0
        .SelLength = 1
    End With
    End With
End Sub

edit:değişiklik yapıldı

 

[seyityasar]

sayın spilavci dosya nasıl bir hata verdi

 

[seyityasar]

1.User2 formunda yeni kayıt ekldiğim an progresbarın hareket etmesi

UserForm2'ye uygun biryerine LAbel ekliyorsunuz.Sanırım label14 çıkacak.
Aşağıdaki kodları sizinkilerle değiştirin.

Private Sub CommandButton1_Click()
Dim i As Integer
kontrol = TextBox1 & TextBox2 & TextBox3 & TextBox4 & TextBox5 & TextBox6 & TextBox7 & TextBox8
say = WorksheetFunction.CountIf([z:z], kontrol)
If say > 0 Then
MsgBox "BU VERİ KAYITLIDIR, TEKRAR KAYDEDİLMEDİ"
Exit Sub
End If
say = WorksheetFunction.CountA(Sayfa1.[a2:a65536])
Sayfa1.Cells(say + 2, 1) = TextBox1.Text
Sayfa1.Cells(say + 2, 2) = TextBox2.Text
Sayfa1.Cells(say + 2, 3) = TextBox3.Text
Sayfa1.Cells(say + 2, 4) = TextBox4.Text
Sayfa1.Cells(say + 2, 5) = TextBox5.Text
Sayfa1.Cells(say + 2, 6) = TextBox6.Text
Sayfa1.Cells(say + 2, 7) = TextBox7.Text
Sayfa1.Cells(say + 2, "z") = kontrol
  For i = 1 To 1000
    ProgressBar1.Value = (i / 1000) * 100
    Label14.Caption = Format(Int((i / 1000) * 100), "%0")
    DoEvents
  Next i
  ProgressBar1.Visible = False
MsgBox "TAMAM"
Label14.Visible = False
Call UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
ProgressBar1.Visible = True
ProgressBar1.Max = 100
ProgressBar1.Min = 0.1
sat = Sheets("sayfa1").Cells(65536, 1).End(xlUp).row
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "50;80"
ComboBox1.RowSource = "sayfa1!A2:B" & sat
Label11.Caption = Format(Now, "dd:mm:yyyy")
With TextBox3
        .MaxLength = 10
        .SelStart = 0
        .SelLength = 1
        With TextBox4
        .MaxLength = 10
        .SelStart = 0
        .SelLength = 1
    End With
    End With
End Sub

edit:değişiklik yapıldı

ildinize teşekürler.kodları değiştirdim Run-time 424 hata kodu veriyor.

 

[xxrt]

dosya ekte

 

[seyityasar]

dosya ekte

Arkadaşım çok teşekkürler. Bir kahve borçlu oluyum

 

[xxrt]

Kahve borcun falan yok.İşin görüldüyse ne mutlu.Ama şunu hatırlatmakta fayda görüyorum.Çalışmandan anladığım kadarı ile bir rehber çalışması yapmışsın.
Burada rehber olarak kayıt edeceğin kişilere bir sicil numarası vermen halinde mükerrer isimlerden doğacak hataları önlemiş olursun.
Yani isim ile kayıt veya güncelleme yapman hezaman veri hatalarına sebebp olacaktır.Bunun yanında İ,i,Ş,ş,K,k...gibi küçük büyük harf noktalı noktasız kelime gibi yazım hatalarının önüne geçebilirsin.

Ben olsaydım kayıt edilecek kişilere sicil numarası vererek kaydedr,mükerrer kayıtlara ikaz aldırırdım.Aynı zamanda güncelleme yapılacağı zaman sicil numarası ile sorgulama yapar güncellerdim.

Kolay gelsin.

 

[spilavci]

Arkadaşlar günaydın ,

Belki konu kapandı ama bende verdiği hata aşağıdaki dosyada

Sebebini bende bilmiyorum.

Herkese selamlar