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
bu durumda buton kodu da değişmeli