Merhaba arkadaşlar bu forma katıldığımdan bu yana kendi çapımda bayağı bir şeyler öğrendim ve uyguladım (formüller olsun, makrolar olsun) Bu sayede sade bir şekilde stok takip programı yaptım. Ama takıldığım yerler oldu...
1.Sadece Userform masaüstünde devamlı açık kalabilirmi? (Userfor açıkken diğer dosyalar açılmıyor)
2.Userform masaüstünde açıkken diğer excel dosyaları nasıl açılır.
3.Userformu kapatıp başka dosya açtığımda Userformun bağlı olduğu dosyada açılıyor.
4.Bu uygulamayı access'te nasıl yapabiliriz.
5.Masaüstüne bir kısayol oluşturup direk Userformu açabilirmiyiz? (Acces ya da excel'de)
NOT:Açılışta dosya otomatik kapanıp (gizlenip) usrform masaüstünde kalıyor...
kodlarım bunlar
Private Sub TextBox1_Change()
'TextBoxa girilen karakter uzunluğunu sınırlamak için'
TextBox1.MaxLength = 6
Set s1 = Sheets("stok")
If WorksheetFunction.CountIf(s1.[b:b], TextBox1) = 0 Then Exit Sub
sat = s1.[b1:b65536].Find(TextBox1).Row
TextBox2 = s1.Cells(sat, "c")
TextBox3 = s1.Cells(sat, "d")
End Sub
Sub auto_open()
Application.Visible = False
UserForm1.Show
End Sub
Yardımlarınıza şimdiden teşekkürler...
1.Sadece Userform masaüstünde devamlı açık kalabilirmi? (Userfor açıkken diğer dosyalar açılmıyor)
2.Userform masaüstünde açıkken diğer excel dosyaları nasıl açılır.
3.Userformu kapatıp başka dosya açtığımda Userformun bağlı olduğu dosyada açılıyor.
4.Bu uygulamayı access'te nasıl yapabiliriz.
5.Masaüstüne bir kısayol oluşturup direk Userformu açabilirmiyiz? (Acces ya da excel'de)
NOT:Açılışta dosya otomatik kapanıp (gizlenip) usrform masaüstünde kalıyor...
kodlarım bunlar
Private Sub TextBox1_Change()
'TextBoxa girilen karakter uzunluğunu sınırlamak için'
TextBox1.MaxLength = 6
Set s1 = Sheets("stok")
If WorksheetFunction.CountIf(s1.[b:b], TextBox1) = 0 Then Exit Sub
sat = s1.[b1:b65536].Find(TextBox1).Row
TextBox2 = s1.Cells(sat, "c")
TextBox3 = s1.Cells(sat, "d")
End Sub
Sub auto_open()
Application.Visible = False
UserForm1.Show
End Sub
Yardımlarınıza şimdiden teşekkürler...