Excel VBA - Cari Stok Fatura - 1 - Giriş Formu

Excel VBA - STOK CARİ FATURA UYGULAMASI
Excel VBA ortamında form uygulaması
Private Sub Workbook_Open()
' dosya açıldığında yapılacak işlem
FrmParola.Show
End Sub
Private Sub CmdGiris_Click()
' BUTONA BASILDIĞINDA
If ThisWorkbook.Worksheets("PARAMETRELER").Range("A2").Value = 3 Then
MsgBox "3 kez hatalı parola", vbCritical, "parola kontrol"
ThisWorkbook.Worksheets("PARAMETRELER").Range("A2").Value = 0
Application.Quit
End If
If FrmParola.TxtParola.Text = ThisWorkbook.Sheets("PARAMETRELER").Range("a1").Value Then
LblParola = "Parola doğru"
Unload Me
ThisWorkbook.Sheets("ANA MENÜ").Activate
' ya da menü formu
Else
LblParola = "Parola HATALI!"
FrmParola.TxtParola.SetFocus
ThisWorkbook.Worksheets("PARAMETRELER").Range("A2").Value = _
ThisWorkbook.Worksheets("PARAMETRELER").Range("A2").Value + 1

End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode EŞİT DEĞİLDİR 1 Then Cancel = True
End Sub
NOT: Bu ortamda büyüktür küçük işareti yazılamamaktadır. Sizlere EŞİT DEĞİLDİR yerine küçüktür ve büyüktür işaretini kullanmalısınız.
Vba:
• Excel VBA
• EXCEL VBA KOMPLE EĞİTİ...
Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık
www.farukcubukcu.com www.excelakademi.com

[@ilkerakyuz7322]

süper bir anlatım ve kendi adıma da süper bir anlayış, teşekkürler emeğiniz için hocam

[@farukcubukcu]

Merhaba, teşekkür ederim. Elimizden geldiği kadar.
diğer VBA videolarımıza da bakın. Onlarda da stok kartı vs. bu tür işlemler var.
ua-cam.com/play/PL3dc_-B83C8B1Dn8mAdLByM8whbXKbaob.html
ua-cam.com/play/PL3dc_-B83C8Dr4YobYrfaQ0b6Tz6SQ4dt.html

[@ilkerakyuz7322]

Bu dersi aldım, sırada 2.ders var. Saygılarımla hocam

[@ahmetx7456]

Harika bir içerik olmuş yayının tamamını izlemeyi bitirmeden hemen yazmak istedim. Teşekkürler.

[@farukcubukcu]

Teşekkür ederim. Diğer VBA çalışmaları:
Vba:
ua-cam.com/play/PL3dc_-B83C8B1Dn8mAdLByM8whbXKbaob.html
ua-cam.com/play/PL3dc_-B83C8Dr4YobYrfaQ0b6Tz6SQ4dt.html

[@ahmetx7456]

çok teşekkürler @@farukcubukcu