code tạo list cho combobox (1 người xem)

[NguyenthiH]

Chào các anh chị, em có 1 userform, trên userform có 1 combobox, em tạo list cho combobox như sau:

Private Sub UserForm_Initialize()
 
 With ComboBox1
      .ColumnCount = 1
      .ColumnWidths = "80"
      .List = Sheet1.Range(Sheet1.Range(E65536).End(xlUp), Sheet1.Range(E2)).Value
      End With
      

End Sub

nhưng code không chạy (combobox không có list)
Mong các anh chị giúp đỡ.

 

[♫ђöล♥ßล†♥†µ♫]

Chào các anh chị, em có 1 userform, trên userform có 1 combobox, em tạo list cho combobox như sau:

Private Sub UserForm_Initialize()

With ComboBox1
      .ColumnCount = 1
      .ColumnWidths = "80"
      .List = Sheet1.Range(Sheet1.Range(E65536).End(xlUp), Sheet1.Range(E2)).Value
      End With
    

End Sub

nhưng code không chạy (combobox không có list)
Mong các anh chị giúp đỡ.

Bạn sửa
.List = Sheet1.Range(Sheet1.Range(E65536).End(xlUp), Sheet1.Range(E2)).Value
thành
.List = Sheet1.Range(Sheet1.Range("E65535").End(xlUp), Sheet1.Range("E2")).Value
Mà Chạy Code không thấy nó kêu keng à

 

[NguyenthiH]

Cám ơn anh Hoa Bất Tử, đúng là code chạy nó keo keng mà em không để ý.
(thì ra là thiếu dấu (") _ đúng là mắt kèm nhèm quá)

 

[NguyenthiH]

Mà code chạy kêu keng có bị gì không anh????

 

[truongvu317]

E65536

Xem ra bạn này còn "mò" vba dài dài đấy.

 

[NguyenthiH]

là sao hả bạn???? chổ "E65536"????

 

[truongvu317]

là sao hả bạn???? chổ "E65536"????

Ừ, đó là những khái niệm cơ bản nhất trong vba, còn chưa nắm chắc thì nên tìm hiểu lại, đừng cố dấn thân sâu vào, rồi sau này nó loạn ra.

 

[NguyenthiH]

Cám ơn bạn!