Posts by jrsilverio

I need help to make the ComboBox9 is filled with the ComboBox8 information complement.

For example, if in ComboBox8 in column A2 is the first name "Mike", and it is selected, in ComboBox9 in the same row and corresponding column, which would be B2, is the last name "Jones", be filled in ComboBox9

Private Sub ComboBox9_Change()


End Sub

Private Sub UserForm_Activate()

'ComboBox8
Dim totLIN2 As Long, LIN2 As Long
totLIN2 = Plan2.Range("c" & Rows.Count).End(xlUp).Row
ComboBox8.Clear
For LIN2 = 1 To totLIN2
ComboBox8.AddItem Plan2.Cells(LIN2, 3)
Next

'ComboBox9

'HELP???

End Sub

up

Help to modify as follows, each ComboBox I add, will pull the information I choose from the X Column of the worksheet.

'SEARCH AND SHOW'
Dim mySheets, myControls, sht, uniqueList
Dim ncell As Long
Set mySheets = Sheets(Array("Planilha2"))
myControls = Array(ComboBox4) 'example: + ComboBox5 (column B), ComboBox6 (column C)...
i = LBound(myControls)
For Each sht In mySheets
  With sht
    myControls(i).List = Application.Unique(.Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row))
    i = i + 1
  End With
Next

When selecting the ComboBox2 option that pulls information from column B2... (already done), it understands that information pulled, and takes the rest of the information from that LINE and throws it in the fields.

EXAMPLE.

I selected B2, it pulls the information from A2 in ComboBox1, C2 in ComboBox3, D2 in ComboBox4, E2 in ComboBox5 and F2 in that X (which is a label).

Quote from Mumps

If you want to delete only row 8 from column B to column V try:

Code

Sub DeleteRow()
    Rows(8).Delete
End Sub

If you want to delete all the rows in your table, try:

Code

Sub DeleteRows()
    ActiveSheet.ListObjects("tabela1").DataBodyRange.Delete
End Sub

Is it possible to include a message with a pop up window? "Are you sure you want to clear the worksheet? Yes or No"

So, this worksheet is under development, little by little I'm tidying each item, this code would be for the button in red right when you open the worksheet, its function should be to delete all entries from B8 to V8, delete the entire lines.

The writing of the button is in Portuguese, the native language of where I live, but it's this button right when you open the file, button in red.

Failed to delete lines from the worksheet, even if there are 500000 lines, you have to delete from B8 to V8 all.

If question = vbYes Then

Sheets("Planilha0").Select
Celulas = Array("B8:V8")

For i = 0 To UBound(Celulas)
    Range(Celulas(i)).ClearContents
Next i

End If