üretim formu

[muhammethezer]

ComboBox'tan Seçilen İşlem türüne göre , TextBox'a yazılan ürün kod numarasının Preslk Ölçüleri sayfasından ilgili Ölçüyü alarak Sayfa2 'de bulunan ve "KIRMIZI" renk ile belirtilmiş olan hücrelere albilirmiyim .

KALINLIK EN BOY
DAİRESEL C7 C8 C9
DIE-CUT C16 C17 C18
LAMİNASYON C22 C23
BALTA BANT C28 C29 C30
" " " "" "" ""
vs. şeklinde atama yapılabilirmi . Yardımlarınız için çok teşekkür ederim.

 

[muhammethezer]

ComboBox'tan Seçilen İşlem türüne göre , TextBox'a yazılan ürün kod numarasının Preslik Ölçüleri veya Sayfa 3 sayfasından ilgili Ölçüyü alarak Sayfa2 'de bulunan ve "KIRMIZI" renk ile belirtilmiş olan hücrelere albilirmiyim .

 

[omerceri]

Ekteki örnek işinize yarar umarım.

 

[muhammethezer]

işe yaramasımı !!! . Elleriniz dert görmesin , sağolun

 

[kombo]

sn. muhammethezer
Sorunuzla ilgisi yok. Ama merakımı bağışlayın , sırf nokta nota çizgi çekmek için mi sütunları daralttınız?
Eğer öyleyse ,daha kolay yöntemi hücre biçimlendir / kenarlık sekmesinde istediğiniz çizgi şeklini seçebilirsiniz.

 

[muhammethezer]

İşime yaramasına yaradı ama burada tekten seçmeli bir olgu var. Benim istediğim ComboBox'tan "dairesel" seçtiğimde sayfa2'deki dairesel ile alakalı bölüme ;"laminasyon seçtiğimde sayfa2'deki laminasyon kısmına yazdırması ile alakalı. Teşekkür ederim...

 

[muhammethezer]

bilmiyordum söyledikleri gibi bilgi paylaştıkça artar.Teşekkür ederim hemen uygulayacağım.

 

[muhammethezer]

İşime yaramasına yaradı ama burada tekten seçmeli bir olgu var. Benim istediğim ComboBox'tan "dairesel" seçtiğimde sayfa2'deki dairesel ile alakalı bölüme ;"laminasyon seçtiğimde sayfa2'deki laminasyon kısmına yazdırması ile alakalı. Teşekkür ederim...

 

[omerceri]

ikinci bir combobox üretip, kodları combobox adını combobox2 olduğunu farz edersek, kodlar aşağıda
Private Sub ComboBox1_Change()
say = Sheets("PRESLİKÖLÇÜLERİ").Range("A2:a25").Find(ComboBox1).Row
Kalınlık = Sheets("PRESLİKÖLÇÜLERİ").Range("B" & say)
En = Sheets("PRESLİKÖLÇÜLERİ").Range("C" & say)
Boy = Sheets("PRESLİKÖLÇÜLERİ").Range("D" & say)
If ComboBox2.Value = "Dairesel" Then
Sheets("Sayfa2").Range("C7").Value = Kalınlık
Sheets("Sayfa2").Range("C8").Value = En
Sheets("Sayfa2").Range("C9").Value = Boy
ElseIf ComboBox2.Value = "dıe-cut1-2-3" Then
Sheets("Sayfa2").Range("C16").Value = Kalınlık
Sheets("Sayfa2").Range("C17").Value = En
Sheets("Sayfa2").Range("C18").Value = Boy
ElseIf ComboBox2.Value = "Laminasyon" Then
Sheets("Sayfa2").Range("C22").Value = Kalınlık
Sheets("Sayfa2").Range("C23").Value = En
ElseIf ComboBox2.Value = "balta bant" Then
Sheets("Sayfa2").Range("C29").Value = Kalınlık
Sheets("Sayfa2").Range("C30").Value = En
Sheets("Sayfa2").Range("C31").Value = Boy
End Sub
Private Sub Worksheet_Activate()
ComboBox2.AddItem "Dairesel"
ComboBox2.AddItem "dıe-cut1-2-3"
ComboBox2.AddItem "Laminasyon"
ComboBox2.AddItem "balta bant"
End Sub

 

[muhammethezer]

Compie Error:
Block If Without End If

hata yazısı çıkıyor .yardımcı olursanız memnun olurum.Teşekkür ederim.

 

[muhammethezer]

hata uyarısı

dosyayı inceleme fırsatı bulabilirseniz hata hakkında yardım ricasında bulunacağım.

 

[Metin Karaağaç]

Compie Error:
Block If Without End If

hata yazısı çıkıyor .yardımcı olursanız memnun olurum.Teşekkür ederim.

İf lerin sonuna End If koymanız gerekiyor.
hata verdiğinde hata yapan kodu kendisi açar zaten.
o kodlarda;
"End Sub" yazısının hemen üstüne "End If" ekleyin, düzelir.

 

[omerceri]

Üstte düzeltilmiş, görmedim.

 

[muhammethezer]

veri sayfasını gizlediğim zaman user form üzerinde bulunan firma adı isimli ComboBox'taki bilgileri grmek için nasıl bir kod gerekiyor acaba yardımlarınız için sağolun.Teşekkür ederim

 

[omerceri]

Private Sub CommandButton1_Click()
say = Sheets("PRESLİKÖLÇÜLERİ").Range("A2:a25").Find(ComboBox1).Row
Kalınlık = Sheets("PRESLİKÖLÇÜLERİ").Range("B" & say)
En = Sheets("PRESLİKÖLÇÜLERİ").Range("C" & say)
Boy = Sheets("PRESLİKÖLÇÜLERİ").Range("D" & say)
say = Sheets("PRESLİKÖLÇÜLERİ").Range("A2:a25").Find(ComboBox1).Row
Kalınlık = Sheets("PRESLİKÖLÇÜLERİ").Range("B" & say)
En = Sheets("PRESLİKÖLÇÜLERİ").Range("C" & say)
Boy = Sheets("PRESLİKÖLÇÜLERİ").Range("D" & say)
If ComboBox2.Value = "Dairesel" Then
Sheets("Sayfa2").Range("C7").Value = Kalınlık
Sheets("Sayfa2").Range("C8").Value = En
Sheets("Sayfa2").Range("C9").Value = Boy
ElseIf ComboBox2.Value = "dıe-cut1-2-3" Then
Sheets("Sayfa2").Range("C16").Value = Kalınlık
Sheets("Sayfa2").Range("C17").Value = En
Sheets("Sayfa2").Range("C18").Value = Boy
ElseIf ComboBox2.Value = "Laminasyon" Then
Sheets("Sayfa2").Range("C22").Value = Kalınlık
Sheets("Sayfa2").Range("C23").Value = En
ElseIf ComboBox2.Value = "balta bant" Then
Sheets("Sayfa2").Range("C29").Value = Kalınlık
Sheets("Sayfa2").Range("C30").Value = En
Sheets("Sayfa2").Range("C31").Value = Boy
End If
End SubGibi bir kodla yapabilirsiniz.

 

[omerceri]

Her zamanki aceleciliğimle yanlış cevap vermişim, Kodlarda hiç birşeyi değiştirmene gerek yok, yanlız kodları formun denetimlerinin olaylarına yazman gerekiyor, biz daha önce Sayfa1'deki denetimlerin olaylarına kod yazmıştık.

 

[muhammethezer]

yollamış olduğunuz bu kodlar benim sorumla alakalı olan kodlarmı acaba ,Teşekkür ederim

 

[omerceri]

bununla ilgili örnek ekte

 

[muhammethezer]

bir makro ataması yaptım " macro " "çalıştır dediğim zaman açılyot ,fakat menü içerisinde gösterdiğim zaman makro bulunamadı diye mesaj veriyor ,diğer butonlar menüüzerinde çalışıyor ama iş emri butonunu çalıtıramadım ,yardımcı olurmusunuz .Teşekür ederim.

 

[muhammethezer]

bir makro ataması yaptım " macro " "çalıştır dediğim zaman açılyor ,fakat menü içerisinde gösterdiğim zaman makro bulunamadı diye mesaj veriyor ,diğer butonlar menü üzerinde çalışıyor ama iş emri butonunu çalıtıramadım ,yardımcı olurmusunuz .Teşekür ederim.