+- 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ığı: Seçimli Liste Oluşturma (/konu-secimli-liste-olusturma.html)
RE: Seçimli Liste Oluşturma - hayalibey - 13/04/2021
(13/04/2021, 17:45)berduş yazdı: buton kodunu aşağıdaki gibi düzenleyip dener misinizHocam oldu sanırsam. Yarına kadar programı deneyip size bilgi versem olur mu. Biraz tecrübe etmek istiyorum.
ThisWorkbook.Sheets("TASARI").Cells.Clear '
For x = 1 To 14
If Not IsNull(Controls("ComboBox" & x)) Then Sheets("veri").Columns(Controls("ComboBox" & x)).Copy Destination:=Sheets("TASARI").Columns(x)
Next x
RE: Seçimli Liste Oluşturma - feraz - 14/04/2021
@berduş hocam alttaki gibi yapınca daha kısa olur combolara veri alması.Functionada gerek kalmaz bence.
Private Sub UserForm_Initialize()
Dim x As Byte
For x = 1 To 14
Controls("ComboBox" & x).Column = ThisWorkbook.Sheets("VERÝ").Range("A1:N1").Value
Next x
End SubRE: Seçimli Liste Oluşturma - berduş - 14/04/2021
bu durumda buton kodu da değişmeli
ThisWorkbook.Sheets("TASARI").Cells.Clear
For x = 1 To 14
y = Controls("ComboBox" & x).ListIndex + 1
If y > 0 Then Sheets("veri").Columns(y).Copy Destination:=Sheets("TASARI").Columns(x)
Next xRE: Seçimli Liste Oluşturma - hayalibey - 14/04/2021
Sayın berduş Hocam ve Zafer Hocam güncellemeyi yarın ofisteki dosyaya yapayim deneyeyim bilgi vereyim size.
Değerli hocalarım yaptığınız eklemelerle program çok güzel olacak
Ben bu durumda 2. Bir userforma daha ihtiyaç duyacağım
Yarın öncesi mesajlardaki revizeyi yapıp
yeni userformun yapısını hazırlayarak burdan yükleyeyim.
Berduş Hocam Zafer Hocam Allah ikinizden de razı olsun
RE: Seçimli Liste Oluşturma - hayalibey - 15/04/2021
Hocam mevcut iki kodu eskisi ile değiştirince
Subscript out of range
Hatası veriyor
RE: Seçimli Liste Oluşturma - berduş - 15/04/2021
son halini ekleyin inceleyelim bende sorun vermemişti.