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
buton kodunu aşağıdaki gibi düzenleyip dener misiniz