Userformda Combobox Seçimine Göre Bir Sayfadaki Veriyi Diğer Sayfaya Kopyalama - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Userformda Combobox Seçimine Göre Bir Sayfadaki Veriyi Diğer Sayfaya Kopyalama (/konu-userformda-combobox-secimine-gore-bir-sayfadaki-veriyi-diger-sayfaya-kopyalama.html) |
RE: Userformda Combobox Seçimine Göre Bir Sayfadaki Veriyi Diğer Sayfaya Kopyalama - Oğuz Türkyılmaz - 16/09/2021 (16/09/2021, 00:29)userx yazdı: Sayın Oğuz Türkyılmaz Sn @userx Bioclimatic Teklif formunda işlem gerçekleşiyorsa işlem sonucunda parametre sayfasından alınan değer sadece kendi adındaki Bioclimatic sayfasına kodda hedef olarak yazacağımız sabit adresdeki hücreye değeri getirecek. 2. bir combobox ile sayfa seçtirmemize gerek yok. Yüklediğim resme göre anlatayım. Bioclimatik teklif formunda combobox dan somfy seçildiğinde bioclimatik sayfasında L23 hücresine Parametre sayfasında Somfy sütunu C2 adresinde yazılı olan 2750 değerini L23 deki 335 değerinin üstüne yazacak. Somfy nin C2 deki 2750 adresi bioclimatic için hiç değişmeyecek hücre adresi mesela Pergole sayfasındaki combodan çağrıldığında da C3 değeri olan 1700, Bir başka sayfada combodan aldığımda ise C4 değerini yazdırmam gerekiyor.) Ben Combobox elemanlarını kodda add.item ile eklemiştim siz döngü ile eklemişsiniz. Döngüde Parametre sayfasındaki A1 in tamamı comboya aktarılıyor. Bunu sanırım range e başlangıç ve bitiş değerlerini göstererek combonun tüm A1 satırını almasını engellerim. (15/09/2021, 23:33)berduş yazdı: isterseniz find komutuyla aratıp ilgili değeri bulduğunuzda ofset() ile bir alt hücreyi alabilirsiniz @berduş Hocam Combo elemanlarını userformun sayfa yüklendiğinde olayına add.item ile eklemiştim. Resimlerle yapılmak isteneni anlatmaya çalıştım. Kod:
ComboBox_MotorCinsi.AddItem "Cuppon" RE: Userformda Combobox Seçimine Göre Bir Sayfadaki Veriyi Diğer Sayfaya Kopyalama - userx - 16/09/2021 Sayın Oğuz Türkyılmaz İsteğinizle ilgili bölümlerin bir örneği yükleyip isteklerinizi örnek üzerinden anlatsanız sanırım daha kolay çözüm bulunacaktır. RE: Userformda Combobox Seçimine Göre Bir Sayfadaki Veriyi Diğer Sayfaya Kopyalama - Oğuz Türkyılmaz - 16/09/2021 Ben çözüm buldum şimdi @userx hocam sizin koddan ilerledim. Birazdan paylaşacağım. RE: Userformda Combobox Seçimine Göre Bir Sayfadaki Veriyi Diğer Sayfaya Kopyalama - Oğuz Türkyılmaz - 16/09/2021 @userx ve @berduş hocalarım Userform üzerindeki Combobox'dan seçtiğim indeksin parametre sayfasındaki değerini başka bir sayfada kodda belirtilen hücreye aktarabildim. Bu şekliyle kullanabilirim fakat her sayfa da kullanacağım farklı comboboxlara değerleri getirebilmek için range başlangıç ve bitiş değerlerini her bir userform için ayrı ayrı girmem gerekecek. Örneğimi düzenledikten sonra yeni konu açıp kafamdaki modele göre bu çalışan kodu revize etmelimiyim yoksa bu şekilde de kullanabilirmiyim sizlere danışacağım. Bu konuyu kapatabilirsiniz.Çok teşekkürler. Kod:
Private Sub UserForm_Initialize() Re: Userformda Combobox Seçimine Göre Bir Sayfadaki Veriyi Diğer Sayfaya Kopyalama - berduş - 16/09/2021 ComboBox1.AddItem ThisWorkbook.Sheets("PARAMETRE").Cells(1, i) neden bu kodu kullandığınızı anlamadım açıkçası son = ThisWorkbook.Sheets("PARAMETRE").UsedRange.Columns.Count burada zaten son sütun bulunmuş oluyor ve zaten anladığım kadarıyla ürün adı 1. satırda değeri ise alt satırda o zaman neden önerdiğim ilk kodu kullanmıyorsunuz bu durumda tekrar aramaya gerek kalmaz
denenebilirdikodları aşağıdaki gibi düzenleyip dener misiniz not: combo 2 sütunlu olmalı
RE: Userformda Combobox Seçimine Göre Bir Sayfadaki Veriyi Diğer Sayfaya Kopyalama - berduş - 16/09/2021 Not: son satır yada sütunu bulmak için usedrange kodunu kullanmanızı çok önermem, boş olsa bile biçim formatı varsa alıyor onun yerine ilgili satıra göre aşağıdaki kod kullanılabilir ama aklımda kaldığı kadarıyla sizin parametre sayfanız daha karışık
|