Kod:
Sheets("TASARI").Cells.Clear
Private Sub CommandButton16_Click()
Sheets("TASARI").Cells.Clear
For x = 1 To 14
Y = Controls("ComboBox" & x).ListIndex + 1
If Y > 0 Then Sheets("VERİ").Columns(Y).Copy Destination:=Sheets("TASARI").Columns(x)
Next x
End Sub