Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
Merhaba,
Aşağıdaki kodda ;
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Kayıtlar")
Dim lr As Long
lr = Application.WorksheetFunction.Match(CLng(Me.ListBox1.Value), sh.Range("A:A"), 0)
If ListBox1.ListIndex = -1 Or lbl_id = "" Then
MsgBox "Listeden teslim etmek istediğiniz ürüne ait...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.