hatim takibi

[halit3]

teşekkürler, aktar butonuna tıkladıktan sonra tüm işlemler yapılıyor. hatimlerin tamamlanması için okunması gereken cüzları tespit ettirdikten sonra hafızlara okuyacaklarını beyan ettikleri cüz adedi kadar aktarma yapılması gerekiyor. Aktar butonu tıklandıktan sonra açılan userformda listboxta hafızlara aktarılması gereken cüzlar görülüyor. listboxa çift tıklandığında veriler textboxlara aktarılıyor.Textboxların üzerindeki chechboxlara tıklandığında işaretli cüz sayısını bir arttırıyor.İstediğim, işaretlenen cüzların hafızlar sayfasına ilgili hafıza aktarılmasıdır.

konunun kapanmış olduğunu sanıyordum tam 10 gün geçmiş ben dosyanızın durumunu unuttum bile

diğer taraftan sorunuzu pek anlamadım.
ancak anladığım isaretli text nesnesine ait şöyle bir şey yapabilirsiniz.

Private Sub CommandButton2_Click()
say = 0
deg = ""
For i = 1 To 30
If Controls("a" & i).Value = True Then
If Controls("TextBox" & i).Text <> "" Then
say = say + 1
If say = 1 Then
deg = Controls("TextBox" & i).Text
Else
deg = deg & "_" & Controls("TextBox" & i).Text
End If
End If
End If
Next
isaretli.Text = deg
End Sub

 

[tevfikseremet]

cenazelerimizin olması dolayısıyle siteye uzun süre giriş yapamadım.Son bir konuyu halledersek konu bitecek inşallah. aktarılan numaraları listbox tan nasıl silebiliriz?

 

[halit3]

cenazelerimizin olması dolayısıyle siteye uzun süre giriş yapamadım.Son bir konuyu halledersek konu bitecek inşallah. aktarılan numaraları listbox tan nasıl silebiliriz?

Geçenlerinize Allah rahmet eylesin!

Listboxda rowsource kullanmışınız önceki kodu bununla değiştirin bu satırdaki bilgileri silerek yukarıya doğru öteliyor.

Private Sub CommandButton2_Click()
say = 0
deg = ""
For i = 1 To 30
If Controls("a" & i).Value = True Then
If Controls("TextBox" & i).Text <> "" Then
say = say + 1
If say = 1 Then
deg = Controls("TextBox" & i).Text
Else
deg = deg & "_" & Controls("TextBox" & i).Text
End If
End If
End If
Next
isaretli.Text = deg
sat = ListBox1.ListIndex + 5
Range("bb" & sat & ":ce" & sat).Delete Shift:=xlUp
End Sub

 

[tevfikseremet]

checkboxlar işaretlendiğinde textboxtaki verinin listbox tan silinmesini kastetmiştim.

 

[tevfikseremet]

Aşagıdaki Kod ile işlemi yaptırabildim.

Private Sub a1_Click()
If a1.Value = True Then
say = 0
deg = ""
For i = 1 To 30
If Controls("a" & i).Value = True Then
If Controls("TextBox" & i).Text <> "" Then
say = say + 1
If say = 1 Then
deg = Controls("TextBox" & i).Text
Else
deg = deg & "_" & Controls("TextBox" & i).Text
End If
End If
End If
Next
isaretli.Text = deg

TextBox32.Value = TextBox32.Value + 1
TextBox1.BackColor = &HC0C0FF
ActiveCell.Offset(0, 1).Value = ""

Else
say = 0
deg = ""
For i = 1 To 30
If Controls("a" & i).Value = True Then
If Controls("TextBox" & i).Text <> "" Then
say = say + 1
If say = 1 Then
deg = Controls("TextBox" & i).Text
Else
deg = deg & "_" & Controls("TextBox" & i).Text
End If
End If
End If
Next
isaretli.Text = deg


TextBox32.Value = TextBox32.Value - 1
TextBox1.BackColor = &HFFFFFF
ActiveCell.Offset(0, 1).Value = TextBox1.Text

End If

End Sub

 

[Mikdad]

Selamun aleykum altın üyeliğim bitmiş eğer imkan varsa son dosyayı link verebilir misiniz?