Normally, CSV output would be row-by-row, echoing the layout visible on screen, but I wanted to demonstrate that generating the output by using VBA code provides options beyond what is available by, for instance, using the Save As. Finally, we transfer the information from the Userform to the specific columns of emptyRow.As mentioned earlier For example purposes, this code TRANSPOSES COLUMNS AND ROWS that is, the output file contains one CSV row for each column in the selected range.

The variable emptyRow is the first empty row and increases every time a record is added. If DateCheckBox3.Value = True Then Cells(emptyRow, 5).Value = Cells(emptyRow, 5).Value & ' ' & DateCheckBox3.CaptionĬells(emptyRow, 7).Value = MoneyTextBox.ValueĮxplanation: first, we activate Sheet1. If DateCheckBox2.Value = True Then Cells(emptyRow, 5).Value = Cells(emptyRow, 5).Value & ' ' & DateCheckBox2.Caption If DateCheckBox1.Value = True Then Cells(emptyRow, 5).Value = DateCheckBox1.Caption To show the Userform, place a command button on your worksheet and add the following code line:ĮmptyRow = WorksheetFunction.CountA(Range('A:A')) + 1Ĭells(emptyRow, 1).Value = NameTextBox.ValueĬells(emptyRow, 2).Value = PhoneTextBox.ValueĬells(emptyRow, 3).Value = CityListBox.ValueĬells(emptyRow, 4).Value = DinnerComboBox.Value Only one of the option buttons can be selected. Note: a combo box is a drop-down list from where a user can select an item or fill in his/her own choice.

To change the names and captions of the controls, click View, Properties Window and click on each control. It is good practice to change the names of controls. Captions are those that appear on your screen. Change the names and captions of the controls according to the table below. When you arrive at the Car frame, remember to draw this frame first before you place the two option buttons in it.Ĥ. Next, you can drag a text box on the Userform. For example, create a text box control by clicking on TextBox from the Toolbox. Once this has been completed, the result should be consistent with the picture of the Userform shown earlier.

Add the controls listed in the table below. If the Toolbox does not appear automatically, click View, Toolbox. If the Project Explorer is not visible, click View, Project Explorer.Ģ. To add the controls to the Userform, execute the following steps.ġ.

Excel vba on making a column wider