• DİKKAT

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

üretim formu

muhammethezer

muhammethezer

Katılım
12 Şubat 2006
Mesajlar
411
Excel Vers. ve Dili
Office 365
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.
 
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 .
 
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.
 
İş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...
 
bilmiyordum söyledikleri gibi bilgi paylaştıkça artar.Teşekkür ederim hemen uygulayacağım.
 
İş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...
 
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
 
Compie Error:
Block If Without End If

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

dosyayı inceleme fırsatı bulabilirseniz hata hakkında yardım ricasında bulunacağım.
 
muhammethezer' Alıntı:
Compie Error:
Block If Without End If

hata yazısı çıkıyor .yardımcı olursanız memnun olurum.Teşekkür ederim.
Genişletmek için tıkla ...
İ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.
 
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
 
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.
 
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.
 
yollamış olduğunuz bu kodlar benim sorumla alakalı olan kodlarmı acaba ,Teşekkür ederim
 
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.
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst