user formda yazdırma hatası

[mtozer]

Merhaba,
sorgulama calışıyor, ancak ekleme botonu hata veriyor. User form olmadan önce VBA ile calışıyordu. User forma göre tekrar duzenledim ama bahsettiğim gibi acıklama ve seri diye verilen textbox degerlerini uygun yere yazmıyor.
http://dosya.co/4h4v9q7odov7/Numaralandırma1.xlsm.html

 

[mtozer]

Acıklama ve seri diye yazilan texboxlardaki veriyi işaretli olan checkbox ların ait oldugu hucrelere atayarak sira numarasi veriyor. Su anda hata aldiğim satırda bu. Sorgulamayi dogru yapiyor. Incelermisiniz.

 

[mtozer]

Daha once calışan kodlardı. Sadece userforma gore duzenledikten sonra hata verdi. Ornegin d-10 checkbox secili iken acıklama ve seri texboxundaki veriyi K hucresine atıyordu.

 

[PLİNT]

Merhaba,
sorgulama calışıyor, ancak ekleme botonu hata veriyor. User form olmadan önce VBA ile calışıyordu. User forma göre tekrar duzenledim ama bahsettiğim gibi acıklama ve seri diye verilen textbox degerlerini uygun yere yazmıyor.

Merhaba
"Userform2" de bulunan ilgili bölümleri aşağıdaki gibi değiştirip deneyin.
1._____

Dim b As Object

2.____

For Each b In [COLOR="Red"]Me.Controls[/COLOR]
    If TypeName([COLOR="red"]b[/COLOR]) = "CheckBox" Then

 

[mtozer]

Tesekkur ederim. Bende calişti. Ancak onceki sorunla karsi karsiyayim. Diğer bilgisayarlarda (office 2010-2007) command buton calışmıyor. Bu sebeple userformu goruntuleyemiyorum bile. Makrolar etkin.

 

[mtozer]

Sorun; office 2010 da eklenen activex denetimlerini 2007 hiç sayıyor. Hatta win8 yuklu ve 2010 office ile yapilan butonları win7 yuklu office 2010 ile yine calıştıramıyorsunuz. 2007 de command eklendiğinde 2010 daki butonları gormeyip comman1 diye userforma ekliyor.

 

[mtozer]

merhaba
excell sayfasında normal çalışıyor. Ancak User form a aktardığımda Command1 çalışmıyor. Öncelikle Command3 tıklanıp text1-text2 içerisine veri girildiğinde checkbox lar seçilerek command1 tıklandığında ilgili hücrelere kayıt yapmalı.

http://www.yukletr.com/download.php?file=0829f35bfabbb0efaf25e8c0e506113d

iyi çalışmalar.

 

[mtozer]

Dim b As Object

For Each b In Me.Controls
If TypeName(b) = "CheckBox" Then

Bu şekilde düzenleyince atıyor. Ancak, bir sonraki hücreye atıyor.

 

[PLİNT]

Dim b As Object

For Each b In Me.Controls
If TypeName(b) = "CheckBox" Then

Bu şekilde düzenleyince atıyor. Ancak, bir sonraki hücreye atıyor.

Merhaba
Buton altındaki kodlarınızı aşağıdaki gibi değiştirip deneyin.
http://s3.dosya.tc/server6/8yd99k/Yeni_Microsoft_Excel_Calisma_Sayfasi.zip.html

Private Sub CommandButton1_Click()
Dim c As Integer
Dim r As Integer
Dim k As String
Dim b As Object
If TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox "Seri No veya Açıklama alanlarını boş bırakmamalısınız.", vbCritical, "U Y A R I"
    Exit Sub
End If
c = 6
For Each b In Me.Controls
    If TypeName(b) = "CheckBox" Then
        k = b.Caption
        c = c + 4
        r = Cells(Rows.Count, c).End(xlUp).Row + 1
        If b.Value = True Then
            Cells(r, c) = k & WorksheetFunction.Rept("0", 5 - Len(CStr(r - 1))) & r - 1
            Cells(r, c + 1) = TextBox1.Text
            Cells(r, c + 2) = TextBox2.Text
            Cells(r, c + 3) = TextBox3.Text
        End If
    End If
Next b
TextBox1.Value = ""
TextBox2.Value = ""
OptionButton1.BackColor = vbYellow
End Sub

 

[mtozer]

Teşekkür ederim.
Version farkından olsa gerek veya başka bir ayar. Form u çalıştıran buton (Commandbutton21) çalışmıyor. Tıklanıyor ancak çalışmıyor. Çalıştırdığım excel ile yeni bir Command button ekleyip (UserForm1.Show) düzenledim. Ancak yinede çalıştırmadı.

 

[mtozer]

Commandbuton değilde Düğme ekleyince çalışıyor.