• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Malzeme Stok Programı Hakkında

D

dear_corel

Katılım
27 Temmuz 2010
Mesajlar
19
Excel Vers. ve Dili
MİCROSOFT 2003
DİL İNGİLİZCE
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.
 

Ekli dosyalar

dear_corel' Alıntı:
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.
Genişletmek için tıkla ...

:dusun:

Sil butonunuza aşağıdaki kodları uygulayıp kontrol ediniz.
Kod: 
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
 
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 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?
 

Ekli dosyalar

sonsuer' Alıntı:
Ö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?
Genişletmek için tıkla ...

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
 

Ekli dosyalar

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.
 
Merhaba,

Kodu, UserForm'a ;

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

Kolay gelsin.
 
Sayın 1Al2Ver;

İyi pazarlar..

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

Sevgiler..
 
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..
 
İnşallah bizde en kısa sürede buralardan bir çok paylaşıma imza atarız.
 
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..
 

Ekli dosyalar

sonsuer' Alıntı:
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..
Genişletmek için tıkla ...

merhaba
Kod: 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst