Save gostergesi

[pelin5353]

Merhaba,

Daha once yayınlanmıs olan kod bank isimli dosyada cikis secildigi zaman formun ust tarafinda soldan saga dogru giden save islemini gosteren bir durum cubugu var. Bunun nasil yapildigini sormak istiyorum... Ne demek istedigimi asagidaki link'i incelerseni tam olarak anlayabilirsiniz.

Tesekkurler
http://www.excel.web.tr/showthread.php?t=10066

 

[Seyit Tiken]

Muhtemelen ekli dosyadaki gibi yapılmıştır.

 

[pelin5353]

Userform icindeki label1 i ilk basta saklayip, command button'a basinca cikmasini nasil saglayabiliriz ?

 

[bedersu]

Orada kullanılan sadece bir progressBar.Çıkış butonu tıklandığında önce muhtemelen aşağıdaki koda benzer bir kod çalıştırılıyor,döngü bittikten sonra da formun kapatılması,kayıt vs çalıştırılıyor.

Dim i As Integer
For i = 1 To 1000
ProgressBar1.Value = (i / 1000) * 100
DoEvents
Next i

 

[bedersu]

Diğer sorunuzun cevabı:

Private Sub UserForm_Activate()
Label1.Visible = False
End Sub

Private Sub CommandButton1_Click()
Label1.Visible = True
End Sub

 

[pelin5353]

Sayin BEdersu ,
Yardiminiz icin cok tesekkur ederim. Tam olarak istedigim buydu. Ama bu progress bar'i asagidaki kodlarin tam olarak neresine yerlestirebilecegim ??

Private Sub CommandButton2_Click()
ActiveSheet.Select
For a = 28 To 50 Step 2
If Controls("c" & a).Value = True Then
ActiveSheet.Cells(a, "f") = TextBox1
ActiveSheet.Cells(a, "n") = TextBox3
ActiveSheet.Cells(a, "t") = ComboBox4
ActiveSheet.Cells(a, "y") = TextBox6
ActiveSheet.Cells(a, "ah") = ComboBox3
ActiveSheet.Cells(a, "al") = TextBox5
ActiveSheet.Cells(a, "ab") = ComboBox1
ActiveSheet.Cells(a, "ae") = ComboBox2
End If
Next
Sayfa4.Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 1).Value = TextBox3.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 2).Value = ComboBox4.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 3).Value = TextBox6.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 7).Value = ComboBox3.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 8).Value = TextBox5.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 5).Value = ComboBox1.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 6).Value = ComboBox2.Text
Sayfa4.Range("A65536").End(xlUp).Offset(0, 4).Value = Label26.Caption
Sayfa4.Range("A65536").End(xlUp).Offset(0, 9).Value = CLng(CDate(TextBox7.Text))
Sayfa4.Range("A65536").End(xlUp).Offset(0, 10).Value = Label23.Caption
Sayfa4.Range("A65536").End(xlUp).Offset(0, 11).Value = Label25.Caption
Sayfa4.Range("A65536").End(xlUp).Offset(0, 12).Value = TextBox8.Text
End Sub

 

[bedersu]

istediğiniz bie yere koyabilirsiniz.En başa,en sona,next döngüsünden sonra.Ama en iyisi en başta olabilir.Deneyin ve buna siz karar verin.Hangisi hoşunuza giderse onu yapın.

 

[bedersu]

yazmış olduğunuz kodun hızıyla aynı derecede ilerlemesini isterseniz şu şekilde yapmanız kafi:

For a = 28 To 50 Step 2
ProgressBar1.Value = a* 2
If Controls("c" & a).Value = True Then
ActiveSheet.Cells(a, "f") = TextBox1
ActiveSheet.Cells(a, "n") = TextBox3
ActiveSheet.Cells(a, "t") = ComboBox4
ActiveSheet.Cells(a, "y") = TextBox6
ActiveSheet.Cells(a, "ah") = ComboBox3
ActiveSheet.Cells(a, "al") = TextBox5
ActiveSheet.Cells(a, "ab") = ComboBox1
ActiveSheet.Cells(a, "ae") = ComboBox2
End If
Next
.
.
.

 

[pelin5353]

Tek kelimeyle super oldu... cok tesekkurler sayin Bedersu..