(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.