Başka bir userform çalışmasında ufak tefek hatalar düzelebilirmi.

[istanbulcahan]

Emrah ÇANAKKALE excel dostu kardeşimiz kodlamasıyla yapılan userform da bazı başlıklar değiştirdim veya eklemeler yaptım, dolayısı ile bazı objeler değişti, bu nedenle user form run time error vermek te ve objeleri bulamamaktadır, ilgili dosya ektedir. Userform da gerekli kod düzenlemeleri için yardım edebilirmisiniz.
Yardımlarınız için şimdiden teşekkürler.

 

[NBATMAN]

Private Sub CommandButton1_Click()
On Error Resume Next
Dim son As Variant
Dim i As Integer
son = Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row + 1 'ilk boş satırı bulur.
For i = 1 To 16 '1den10a kadar saydırır.
Sheets("Sayfa1").Cells(son, i).Value = Controls("textbox" & i) 'sayfa1e textboxları kaydedicez.
Next
MsgBox "işlem tammam....", , "vadaaa" 'işlemin bittigini bildirecek
Call listele 'listboxu yenilene makrosunu çagıralım
Call temiz 'textboxların içini temileme makrosunu çagıralım
End Sub
Private Sub CommandButton2_Click() 'listboxta seçileni silelim
On Error Resume Next
son = ListBox1.ListIndex + 2
If son < 2 Then GoTo fed 'seçim yapılmamışsa silme
Rows(son).Delete
Call temiz
Exit Sub
fed:
MsgBox "önce listboxa çifttıklayıp veri seç", , "vadaaa"
End Sub
Private Sub CommandButton3_Click() 'kayıt düzeltme
On Error Resume Next
son = ListBox1.ListIndex + 2
For i = 1 To 16
Sheets("Sayfa1").Cells(son, i).Value = Controls("textbox" & i)
Next
MsgBox "kayıt yenilendi....", , "vadaaa"
Call listele
Call temiz
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'listboxa çift tıklamayla çalışsın
On Error Resume Next
son = ListBox1.ListIndex + 2
For i = 1 To 16
Controls("textbox" & i) = Sheets("Sayfa1").Cells(son, i).Value 'textboxlara listboxtan veri alalım
Next
End Sub
Sub temiz() 'textboxların içini temileme makrosu
On Error Resume Next
For i = 1 To 16
Controls("textbox" & i) = ""
Next
End Sub
Sub listele() 'listboxu yenilene makrosu
On Error Resume Next
ListBox1.ColumnCount = 3
ListBox1.RowSource = "Sayfa1!a2:c" & Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
End Sub
Private Sub UserForm_Initialize()
Call listele
End Sub


merhaba sizin kodlarınızda kırmızı satırları ekledim mavi kelimeleri düzelttim
ayrıca bence textboxların tabindexlerinide exceldeki tablonuzuda dikkate alarak daha düzgün sıralamalısın?

 

[Orion1]

Bu on error resume next deyimini mecbur kalmadıkça kullanmamk lazım.
Kullanıldığındada çok dikkat etmek lazım.
Sonra programınız hatalı sonuçlar üretebilir .DİKKAT!

 

[istanbulcahan]

Private Sub CommandButton1_Click()
On Error Resume Next
Dim son As Variant
Dim i As Integer
son = Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row + 1 'ilk boş satırı bulur.
For i = 1 To 16 '1den10a kadar saydırır.
Sheets("Sayfa1").Cells(son, i).Value = Controls("textbox" & i) 'sayfa1e textboxları kaydedicez.
Next
MsgBox "işlem tammam....", , "vadaaa" 'işlemin bittigini bildirecek
Call listele 'listboxu yenilene makrosunu çagıralım
Call temiz 'textboxların içini temileme makrosunu çagıralım
End Sub
Private Sub CommandButton2_Click() 'listboxta seçileni silelim
On Error Resume Next
son = ListBox1.ListIndex + 2
If son < 2 Then GoTo fed 'seçim yapılmamışsa silme
Rows(son).Delete
Call temiz
Exit Sub
fed:
MsgBox "önce listboxa çifttıklayıp veri seç", , "vadaaa"
End Sub
Private Sub CommandButton3_Click() 'kayıt düzeltme
On Error Resume Next
son = ListBox1.ListIndex + 2
For i = 1 To 16
Sheets("Sayfa1").Cells(son, i).Value = Controls("textbox" & i)
Next
MsgBox "kayıt yenilendi....", , "vadaaa"
Call listele
Call temiz
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'listboxa çift tıklamayla çalışsın
On Error Resume Next
son = ListBox1.ListIndex + 2
For i = 1 To 16
Controls("textbox" & i) = Sheets("Sayfa1").Cells(son, i).Value 'textboxlara listboxtan veri alalım
Next
End Sub
Sub temiz() 'textboxların içini temileme makrosu
On Error Resume Next
For i = 1 To 16
Controls("textbox" & i) = ""
Next
End Sub
Sub listele() 'listboxu yenilene makrosu
On Error Resume Next
ListBox1.ColumnCount = 3
ListBox1.RowSource = "Sayfa1!a2:c" & Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
End Sub
Private Sub UserForm_Initialize()
Call listele
End Sub


merhaba sizin kodlarınızda kırmızı satırları ekledim mavi kelimeleri düzelttim
ayrıca bence textboxların tabindexlerinide exceldeki tablonuzuda dikkate alarak daha düzgün sıralamalısın?

Slm. Sn.Evren GİZLEN ve NBATMAN cevap gelmediğine göre sizlerin bu mesajımı okumadığınızı tahmin ediyorum. Yada excel dostlarının dikkatine;
Yukarıda belirtilen makroyu uyguladım ve kayıt ediyor. ama sadece 3 veriyi gösteriyor. diğerlerini göstermiyor.textboxların tabindexlerinide exceldeki tablonuzuda dikkate alarak daha düzgün sıralama işini de beceremedim.On Error Resume döngü galiba bundan anlamadığımdan dolayı bir şey yapamıyorum. Yardımlarınızı bekliyorum.

 

[NBATMAN]

Dosyanız ekte denermisiniz?

 

[istanbulcahan]

Dosyanız ekte denermisiniz?

Eline sağlık üstadım, yalnız kayıt ediyor. ama sıra , adı soyadı ve kesinti toplamı haricindeki verileri göstermiyor. Ayrıca user form üzerinde unutmuşum; çeşitli ödeme ve banka düğmeleri ekledim. bu düğmelerin görevleri
user formda girilen bilgiler tamam olunca;
1. User formda bulunan bazı verilerin olduğu Çeşitli ödeme yazıcı ön izleme (print view)
2. User formda bulunan bazı verilerin olduğu Çeşitli ödeme yazıcı çıkışı (ptintview)
3. User formda bulunan bazı verilerin olduğu Banka yazıcı ön izleme (print view)
4. User formda bulunan bazı verilerin olduğu Banka yazıcı (print )
örnek dosya ektedir.
Yardımlarınız için sonsuz teşekkürler.

 

[NBATMAN]

Bu göstermiyor dediğiniz yer neresidir
userformda mı excel sayfada mı?

 

[istanbulcahan]

Bu göstermiyor dediğiniz yer neresidir
userformda mı excel sayfada mı?

Eline sağlık üstadım, yalnız kayıt ediyor. ama sıra , adı soyadı ve kesinti toplamı haricindeki verileri Userformda göstermiyor.

Ayrıca user form üzerinde unutmuşum; ekte ornek dosyada belirttiğim;

çeşitli ödeme ve banka düğmeleri ekledim. bu düğmelerin görevleri
user formda girilen bilgiler tamam olunca;
1. User formda bulunan bazı verilerin olduğu (Kimlik no, adı ve soyadı, görevi, brüt, brüt toplam, gelir, damga, kesinti toplamı, ele geçen tutar) Çeşitli ödeme yazıcı ön izleme (print view)
2. User formda bulunan bazı verilerin olduğu Çeşitli ödeme yazıcı çıkışı (printview)
3. User formda bulunan bazı verilerin olduğu (Kimlik no, adı ve soyadı, görevi, görev yeri banka adı, banka no, ele geçen tutar)Banka yazıcı ön izleme (print view)
4. User formda bulunan bazı verilerin olduğu Banka yazıcı (print )

Yardımlarınız için sonsuz teşekkürler.

 

[NBATMAN]

dosyanız ekte

 

[1Al2Ver]

Merhaba,

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'listboxa çift tıklamayla çalışsın
On Error Resume Next
son = ListBox1.ListIndex + 2
For i = 1 To 16
Controls("textbox" & i) = Sheets("Sayfa1").Cells(son, i).Value 'textboxlara listboxtan veri alalım
Next
End Sub

Compile error hatası verdi

 

[istanbulcahan]

dosyanız ekte

Slm. dosya yeni bir kayıt yapılıyor, veride gözüküyor.veri olarak var. ama "compile error: Can' t find project or library " mesajı veriyor. Bu hatay verdikten sonra visual basicten çkılıp programa girince kayıt ettiğim bilgiyi görebiliyorum. herhangi bir kaydedilmiş veriyi silince "compile error: Can' t find project or library " mesajı veriyor veriyor, bu sorun nasıl çözülebilir." Burada formda unuttuğum bir kaç konu olmuş.
brüt tutar ile saens çarpılması lazım sonuç ise Brüt toplama yazacak. Damga pulu da brüt toplamı alarak damga daki varolan (H2*7/1000) formule göre; damgayı verecek brüt toplam ücret kesinti damga vergisindne çıkarıp ele geçeni buluyoruz. burayada kadar hakemler için ancak aynı form personel içinde yapacağız ozaman brüt toplam ücret kesinti damga vergisinden v gelir vergisinden çıkardığımız zaman ele geçen oluşacak. GELİR VERGİSİ herhangi bir hücrede hakem-personel belirlemesine göre bilgiyi alıp hesaplayacak.
adı ve soyadı, banka hesap no, sicil no( bu veri işlemde hücresi boş olacak),ele geçen bilgilerini de içeren ekte ornek dosya olarak verdiğim kurum maaşı olacak, Alttada her zaman tam veride şef adı ve soyadı şb.md.z.batar
Biraz konu uzadı ama;
Yardımlarınız için teşekkürler.