Malzeme Stok Programı Hakkında

[dear_corel]

Merhaba.
Ben ekte sunmuş olduğum ve sizin sitenizden indirdiğim malzeme stok programını şefim beğendi ve bu program üzerinde bazı değişiklikler istedi. Bende bu sitede bize yardımcı olabileceklerini söyledim.

Arkadaşlar Excel sayfasını açtığımda userform olarak açılıyor. yalnız Excel sayfası olan butona bastığımızda direk sayfaya geçiyor biz o tuşa bastığımızda şifre girdikten sonra açmak istiyoruz. yani admin olmayan bir kullanıcı açamasın ve bilgileri değiştiremesin. Yine aynı şekilde bir stoku değiştirme tuşuna bastığımızda da değiştirme yapmadan önce şifre istemesini istiyoruz.

Son olarak ise sil tuşu eklendi. Userform ekranında bulunan örnek isimli kayıta tıkladığımızda seçili hale geliyor ben sil tuşuna bastığımda sadece o silinsin istiyoruz.

Emeğinize ihtiyacım var. Şimdiden teşekkürler.

 

[dear_corel]

Lütfen arkadaşlar

 

[Excelmy]

Merhaba.
Son olarak ise sil tuşu eklendi. Userform ekranında bulunan örnek isimli kayıta tıkladığımızda seçili hale geliyor ben sil tuşuna bastığımda sadece o silinsin istiyoruz.

:dusun:

Sil butonunuza aşağıdaki kodları uygulayıp kontrol ediniz.

Private Sub CommandButton4_Click()
If ComboBox2 <> "" Then
If MsgBox(ComboBox2 & "   Kayıtları Silinsin mi ?", vbQuestion + vbYesNo, " KAYITLARDAN SİLİNECEK") = vbYes Then
sat = ComboBox2.ListIndex + 2
Sheets("stok").Range("A" & sat & ":G" & sat).Delete Shift:=xlUp
End If
End If
Call listele
End Sub

 

[dear_corel]

teşekkür ederim

 

[sonsuer]

Userform üzerinden ilave edeceğimiz bir combobox ile istediğimiz ürünün depo dökümünü print olarak almamız mümkün olurmu acaba?

 

[İhsan Tank]

Userform üzerinden ilave edeceğimiz bir combobox ile istediğimiz ürünün depo dökümünü print olarak almamız mümkün olurmu acaba?

örnek dosya ekler misiniz bu şekilde tam bir şey söyliyemem açıkcası

 

[sonsuer]

Örnek bir dosya ekledim yapmak istediğimi bilmem tam anlatabildimmi? Alta eklediğim combobox'ta malzeme grubunu seçince çift tıkta veya ilavebir butonla sadece o grubun çıktısını almak mümkünmü? Bir de çarpıdan başka kapatma butonu ilavesi yaptım, bilmem oldumu?

 

[İhsan Tank]

Örnek bir dosya ekledim yapmak istediğimi bilmem tam anlatabildimmi? Alta eklediğim combobox'ta malzeme grubunu seçince çift tıkta veya ilavebir butonla sadece o grubun çıktısını almak mümkünmü? Bir de çarpıdan başka kapatma butonu ilavesi yaptım, bilmem oldumu?

merhaba
bir çalışma yaptım yeni bir sayfa ekledim onun içerinde listeledim ve siz seçtiğiniz yeni ürün'e göre orası dolacak. bu sayfadaki formüller 1000 satır baz alınmıştır e formül 100 satıra kadar yayılmıştır. siz kendinze göre ayarlayınız.
ek dosya ekte

 

[assenucler]

Teşekkür ve rica.

Sayın dear_corel,
Sayın Kuman,
Sayın İhsan Tank;

İyi pazarlar..

Emek ve katkılarınız için teşekkür ederim.

Sizlerden bir ricam olacak.

Dosya açıldığında karşımıza doğrudan "Stok Ekranı" çıkıyor..

Bilgisizliğimi mazur görün.. Sil butonuna sayın Kuman'ın "Sil" kodunu, nereye ve nasıl yazacağıma ilişkin bilgi verebilir misiniz?

Sevgi ve saygılar.

 

[1Al2Ver]

Merhaba,

Kodu, UserForm'a ;

UserForm'daki kodların en son olanının altına kopyalayın,

Kolay gelsin.

 

[assenucler]

Sayın 1Al2Ver;

İyi pazarlar..

İnceliğiniz ve yanıtınız için teşekkür ederim. İyi ki varsınız...

Sevgiler..

 

[sonsuer]

Emeği geçen arkadaşlara özellikle İhsan Tank arkadaşa çok teşekkür ederim çok faydalı oldu.İşin içinden çıkamamıştım..Teşekkürler..

 

[İhsan Tank]

Emeği geçen arkadaşlara özellikle İhsan Tank arkadaşa çok teşekkür ederim çok faydalı oldu.İşin içinden çıkamamıştım..Teşekkürler..

rica ederim
ben bir şey yapmadım sadece www.excel.web.tr a olan borcumu ödemeye çalışıyorum
kolay gelsin :mutlu:

 

[sonsuer]

İnşallah bizde en kısa sürede buralardan bir çok paylaşıma imza atarız.

 

[sonsuer]

Beni mazur görün bir türlü çözemedim. Userform içerisindeki listboxta yazım alanını ayarlama nasıl yapabiliriz örneğin uzun bir malzeme adını listboxta tam görmek istersek ne yapmamız gerekli malzeme ismi yazan sutunu nereden genişletebiliyoruz.Örnek dosyada anlatmak istediğimi görebilirsiniz..

 

[İhsan Tank]

Beni mazur görün bir türlü çözemedim. Userform içerisindeki listboxta yazım alanını ayarlama nasıl yapabiliriz örneğin uzun bir malzeme adını listboxta tam görmek istersek ne yapmamız gerekli malzeme ismi yazan sutunu nereden genişletebiliyoruz.Örnek dosyada anlatmak istediğimi görebilirsiniz..

merhaba

Sub listele()
Dim fdl, k As Integer
Dim deg1, deg2 As String
Dim sf As Worksheet
Set sf = Sheets("stok")

ListBox1.RowSource = vbNullString
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "[COLOR="Blue"]80;[COLOR="Red"]200[/COLOR];60;60;60;60;60[/COLOR]"
ReDim fdl(1 To 7, 1 To 1)
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = sf.Cells(1, k)
Next k
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = ""
Next k
For i = 2 To sf.Cells(65536, "b").End(xlUp).Row
deg1 = UCase(Replace(Replace(TextBox5, "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(sf.Cells(i, 2), "ı", "I"), "i", "İ"))
If TextBox5.Text = "" Then GoTo atla
If deg1 = Left(deg2, Len(TextBox5)) Then
atla:
a = a + 1
ReDim Preserve fdl(1 To 7, 1 To a)
For k = 1 To 7
fdl(k, a) = sf.Cells(i, k)
Next k
End If
Next i
If a > 0 Then ListBox1.Column = fdl
Erase fdl


End Sub

kırmızıya boyadığım yer sizin ürünlerinizin adının çıktığı yerin ayarıdır.
maviye boyadığım yer ise her virgül'e kadar olan yer bir sütun'u göstermektedir.
örneğin ilk 80 A sutunu
ikinci 200 olan ise b sutünunu gösterir
umarım açılayıcı olmuştur.

 

[sonsuer]

İlginize çok teşekkür bende forumda konularda arıyordum, siz yine hızlı çıktınız aşağıdaki linktede fikir verebilecek bir kod buldum

http://www.excel.web.tr/f14/listbox-hakkynda-t85408.html

uygulama yapıyordum sizde konuyu sağlamladınız teşekkürler

 

[İhsan Tank]

İlginize çok teşekkür bende forumda konularda arıyordum, siz yine hızlı çıktınız aşağıdaki linktede fikir verebilecek bir kod buldum

http://www.excel.web.tr/f14/listbox-hakkynda-t85408.html

uygulama yapıyordum sizde konuyu sağlamladınız teşekkürler

rica ederim
sanırım benim biraz yavaşlamam lazım.
kolay gelsin :mutlu: