üretim formu

[muhammethezer]

Hayırlı Akşamlar dileklerimle,
Ekteki dosyada yapmak istediğim "Sayfa1"deki ComboBox!kutusunu "UserForm"üzerinde bulunan "Operasyon Tanımı " ismli ComboBox2'nin yerine almak . Deniyorum ama bir türlü olmuyor.Yardımlarınız için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Bunun için herhangi bir hücre aralığına makina isimlerini yazın. Örneğin; İşemri sayfasındaki cj1:cj4 aralığına. Daha sonrada comboboxın properties penceresindeki "listfillrange" özelliğine cj1:cj4 yazmanız yeterlidir. Ayrıca "linkedcell" özelliğnede V6 yazarsanız, comboboxtan seçilen veri bu hücreye yazılacaktır.

 

[muhammethezer]

merhaba sayın excel kullanıcıları ;sayın leventm usta'nın yollamış olduğu kodları denedim çalışıyor çok teşekkür ederim, ama benim söylemek istediğim "UserForm" üzerinde bulunan "Operasyon Tanımı" ComboBox'tan yapılan seçim ile "Sayfa 1 " üzerine sadece "Dairesel Kesim" ile alakalı bilgiler geliyor , diğer seçimlerde ise sadece operasyon ismi geliyor ,bu konuda yaardımlarınızı rica edecektim.

 

[muhammethezer]

Selam , sayfa üzerinde bulunan açılır menüde raporlar seçeneği var. Ne yaptıysam raporlar menüsünü aktif hale getiremedim .Yani biten işler , bekleyen işler ve iptal olan işlerin dökümünü almak istediğimde nasıl bir kod yazmam gerekir.Üstteki .RAR dosyasında menü mevcut durumda ,onun için tekrar dosya eklemesi yapmadım .Teşekkür ederim

 

[muhammethezer]

Selam , sayfa üzerinde bulunan açılır menüde raporlar seçeneği var. Ne yaptıysam raporlar menüsünü aktif hale getiremedim .Yani biten işler , bekleyen işler ve iptal olan işlerin dökümünü almak istediğimde nasıl bir kod yazmam gerekir.Üstteki .RAR dosyasında menü mevcut durumda ,onun için tekrar dosya eklemesi yapmadım .Teşekkür ederim

 

[muhammethezer]

Selam , sayfa üzerinde bulunan açılır menüde raporlar seçeneği var. Ne yaptıysam raporlar menüsünü aktif hale getiremedim .Yani biten işler , bekleyen işler ve iptal olan işlerin dökümünü almak istediğimde nasıl bir kod yazmam gerekir.Üstteki .RAR dosyasında menü mevcut durumda ,onun için tekrar dosya eklemesi yapmadım .Teşekkür ederim

 

[Levent Menteşoğlu]

Sn muhammethezer

Eğer sorunuzu doğru ifade etmezseniz yanıt alamadığınız gibi, birde bize serzenişte bulunmak zorunda kalırsınız. Eksikleriniz.

sayfa üzerinde bulunan açılır menüde raporlar seçeneği var

1-Bu ifadenizden hareketle sayfa üzerinde epeyce alına menü aradım. Halbuki Yardım menüsünün yanındaki Sipariş Takip menüsü demeniz yeterli idi.

Yani biten işler , bekleyen işler ve iptal olan işlerin dökümünü almak istediğimde nasıl bir kod yazmam gerekir.

2-Bu söylediğinizi yapmak için öncelikle biten, bekleyen ve iptal olan işlerle ilgili bir listenin var olması gerekir. Ben dosyanızda böyle bir liste göremedim.

Sonuç olarak kendi hazırladığınız dosyayı herkesin sizin anladığınız gibi anlamasını beklemeyin. Bizlerin anlaması için detaylı açıklama ve yeteri kadar veri içeren bir örnek dosya gereklidir. Aksi takdirde aynı sorunuzu sürekli sormak durumunda kalırsınız. Ayrıca bu tür raporlama örnekleri forumda epeyce mevcut bunlarıda inceleyebilirsiniz.

 

[muhammethezer]

Merhaba , sayın leventm, öncelikle cevap veremediğim için özür dilerim.Sizinde dediğiniz gibi dosya üzerine gerekli sayfaları ilave ettim Raporlar seçeneğini hala aktive edebilmiş değilim , birde "Kayıt Giriş" Formunda bulunan Firma Adı ve Birimi ComboBox'larını açtığımda ilgili birimler görünmüyor , "Firmalar " Sayfası üzerinde iki sütunda firma adlarını belirttim ."A" sütununu sildiğim zaman "Veri Giriş Sayfası" Üzerindeki "Firmalar" ComboBox'unda bulunan veriler kayboluyor .Sayfa Üzerindeki Kodlama hatalarını düzeltebilmeme yadımcı olabilecek tüm Excel gönüllülerine şimdiden Teşekkür Ederim .Saygılarımla Başarılar dilerim...

 

[Levent Menteşoğlu]

VBE şifreniz nedir?

 

[muhammethezer]

vbe şifresi 1

 

[Levent Menteşoğlu]

"Kayıt Giriş" Formunda bulunan Firma Adı ve Birimi ComboBox'larını açtığımda ilgili birimler görünmüyor

Bunun için userformun initialize olayına aşağıdaki satırları ilave edin.
[vb:1:402183e9a9]ComboBox1.RowSource = "firmalar!b2:b" & [firmalar!b65536].End(3).Row
ComboBox3.RowSource = "firmalar!a2:a" & [firmalar!a65536].End(3).Row
[/vb:1:402183e9a9]
Raporlar içinde örneğin bekleyen siparişlerin Rapor sayfasında dökümü için aşağıdaki kodu bir module kopyalayın. Menüde bekleyenleri tıkladığınızda bu kod çalışacaktır. Diğer raporlarınıda aynı mantıkla yapabilirsiniz.
[vb:1:402183e9a9]Sub bekliyor()
Set s1 = Sheets("firma")
Set s2 = Sheets("rapor")
s2.[a2:l65536].ClearContents
For a = 2 To s1.[l65536].End(3).Row
If s1.Cells(a, "l") = "BEKLİYOR" Then
c = c + 1
s2.Range("a" & c + 1 & ":l" & c + 1) = s1.Range("a" & a & ":l" & a).Value
End If
Next
End Sub
[/vb:1:402183e9a9]
Not:Rapor sayfasının ilk satırına Firma sayfasının ilk satırındaki başlıkları kopyalayın.

 

[muhammethezer]

merhaba sayın leventm, iş younuumdan dolayı cevap veremedim .Teşekkür ederim vermiş oldugunuz kodlar işimi hafifletti.

 

[muhammethezer]

Merhaba , öğrenmek istediğim bir şey var.Acaba sayfaya daha önceden yollanmış olan örneklere ve kodlarına nasıl ulaşabilirim.Yardımlarınız için çok teşekkür ederim.

 

[muhammethezer]

üretim takip

merhaba yapmak isrediğim ComboBoxtan seçim yapmak istediğimde "Lütfen önce miktar giriniz..." mesajını nasıl alabilirim.Teşekkür ederim.

 

[Levent Menteşoğlu]

merhaba yapmak isrediğim ComboBoxtan seçim yapmak istediğimde "Lütfen önce miktar giriniz..." mesajını nasıl alabilirim.Teşekkür ederim.

Örneğin miktar girişi yapılan textboxun adı textbox1 olsun. Bu durumda aşağıdaki kodu comboboxa kopyalayın.

private sub combobox1_enter()
if textbox1="" then
msgbox "Lütfen önce miktar giriniz..."
textbox1.setfocus
end if
end sub

 

[muhammethezer]

Üretİm Formu

Merhaba Arkadaşlar , TextBox'a "alrk0100110183" şeklinde veya "20183030020010" şeklinde yazdığım kodların textBox'tan çıkınca "alark.01.001.101.83" veya 201.83.03.0020.010" şeklini almasını nasıl sağlıyabilirim.Yardımmlarınız için şimdiden çok teşekkür ederim..

 

[osmanfenerli1907]

sayın arkadaşım ekte dosya yok tekrar ekleyebilirsen yardımcı olurum.Ben olamasamda hocalarımızdan biri muhakkak oluR.
BİRAZ sabırlı olalım-Herşeyin bir çözümü vardır.

 

[muhammethezer]

Merhaba istediğiniz dosya ekte bulunmaktadır."BANT İŞ EMRİ" Sayfasında bulunan TextBox'a yazdığım kodların örneğin "20180030020010" gibi , TextBox'tan çıktığım anda "201.80.03.0020.010" formatında görüntülenmesi veya "ALRK0100110183" kod girişi yatığımda " ALRK.01.001.101.83" formatını alması..

 

[Levent Menteşoğlu]

20180030020010--->201.80.03.0020.010 şekli için aşağıdaki kodu deneyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "000"".""00"".""00"".""0000"".""000")
End Sub

ALRK0100110183--->ALRK.01.001.101.83 şekli içinde aşağıdaki gibi deneyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Left(TextBox1, 4) & "." & Format(Right(TextBox1, 10), "00"".""000"".""000"".""00")
End Sub

 

[muhammethezer]

Teşekkür ederim sayın leventm