Problema ao preencher combobox

[TIA0]

boa tarde,

estou tentando preencher um combobox, porem esta gerando um erro! O código que estou usando é o seguinte...

total = ThisWorkbook.Worksheets("Plan3").UsedRange.Rows.Count

cmb_mat_situ.RowSource = ThisWorkbook.Worksheets("Plan3").Range("A2:A & total").Rows

como devo proceder?

abraços

[João.Neto]

total = ThisWorkbook.Worksheets("Plan3").UsedRange.Rows.Count

cmb_mat_situ.RowSource = ThisWorkbook.Worksheets("Plan3").Range("A2:A" & total).Rows

Editado Junho 3, 2010 por João.Neto

[TIA0]

Eita... que mole que eu dei :///

mas tipo, concertei lá, deu um "msgbox" antes volto o intervalo correto! Porem da erro 13 "tipos incompatíveis"... terei que converter a sequencia final para string e ai então utiliza-la?

[João.Neto]

Posta todo o código, por favor, que agora cê falou grego para mim... rsrsrsrs :wacko:

Editado Junho 3, 2010 por João.Neto

[TIA0]

Então... não tem muito código, estou tentando somente preencher o combbox ao inicializar o form... da uma olhada e me diz o que pode ser!

abraços

[JoséA]

Private Sub UserForm_Initialize()
Dim lastRow As Long
Dim i As Integer
cmb_mat_situ.Clear
' Verifica qual a ultima linha preenchida
lastRow = Plan3.Range("A65000").End(xlUp).Row
'adiciona dados
For i = 2 To lastRow
Me.cmb_mat_situ.AddItem Plan3.Range("A" & i)
Next
End Sub

[João.Neto]

Pode ser usado também:

cmb_mat_situ.RowSource = ThisWorkbook.Worksheets("Plan3").Range("A1").CurrentRegion.Resize( _ 
ThisWorkbook.Worksheets("Plan3").Range("A1").CurrentRegion.Rows.Count, 1).Address(External:=True)

Editado Junho 6, 2010 por João.Neto

[TIA0]

Obrigado a todo pela ajuda! Consegui dar jeito no combobox!!!