şifreleme ve combobox

[chilekeshhh]

merhaba üstadlar ekteki excel dosyasında ilk başta çıkan şifre sorma formunun sağ üstteki "x" tuşuna basınca kapanmamasını istiyorum fakat bualamdım nasıl olacağını ve diğer bir sorunumda kayıt sayfasında comboda seçtiğim "B satırlarından "hangisini seçip onayla butonuna basarsam "onaylandı" yazmasını istiyorum yardım ederseniz sevinirm

 

[Selçuk1]

sn. chilekeshhh;

userformunuzun "x" işaretinden kapanmasını engelleyen kodlar aşağıdadır.(teşekkürler sn.leventm)

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

 

[chilekeshhh]

ya çok teşekkür ederim arkşım şimdi geriye sadece ekteki kayıt sayfasındaki sorun kaldı

 

[Selçuk1]

ya çok teşekkür ederim arkşım şimdi geriye sadece ekteki kayıt sayfasındaki sorun kaldı

pardon sn.chilekeshhh diğer soruyu farketmemiştim. ancak tam olarak ne istediğinizi anlamadım. biraz daha açarmısınız?

 

[chilekeshhh]

2.sorunu daha koaly anlaşılması için tekrar düzelttim ve msja ekledim .burda istediğim textbox un içine yazılan ürün kodunun oldugu satırda "onaylanmadı" yerine "onaylandı " yazması...tekrar teşekkürler....

 

[Korhan Ayhan]

Selamlar,

SATIŞI ONAYLA butonuna aşağıdaki kodu uygulayıp denermisiniz.

Private Sub CommandButton1_Click()
    If WorksheetFunction.CountIf(Range("A2:A" & [A65536].End(3).Row), TextBox1) = 0 Then
    MsgBox "SATIŞ KODU BULUNAMAMIŞTIR !", vbExclamation
    TextBox1 = ""
    TextBox1.Activate
    Else
    SATIR = [A:A].Find(TextBox1).Row
    Cells(SATIR, 2) = "Onaylandı"
    TextBox1 = ""
    End If
End Sub

 

[chilekeshhh]

çok teşekkür ederim tıkır tıkır çalışıyor