(13/04/2021, 17:45)berduş yazdı: buton kodunu aşağıdaki gibi düzenleyip dener misiniz

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

Hocam oldu sanırsam. Yarına kadar programı deneyip size bilgi versem olur mu. Biraz tecrübe etmek istiyorum.

@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 Sub

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 x

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

Hocam mevcut iki kodu eskisi ile değiştirince
Subscript out of range
Hatası veriyor

son halini ekleyin inceleyelim bende sorun vermemişti.