Como faço para colocar uma planilha variavel em uma RowSource? estou tentando concatenar com a ultima linha mas esta dando erro:
Private Sub UserForm_Initialize()
Dim plan As Worksheet
Dim lin As Range
Dim fim As Range
Optionapos = True
If Optionapos = True Then
Set plan = Worksheets("CadReu")
Else
Set plan = Worksheets("CadReuOlde")
End If
With plan
'atualiza a caixa localizar
Dim totaldelinhas As Integer
totaldelinhas = plan.UsedRange.Rows.Count
'formreunioes.cxLocalizar2.ColumnCount = .Columns.Count
formreunioes.cxLocalizar2.RowSource = .Range("A1:A" & totaldelinhas)
End With
Resolvi alterando o código sobretudo o tipo da variável plan As Worksheet para para string e funcionou, como segue:
Private Sub UserForm_Initialize() Dim plan As String Dim lin As Range Dim fim As Range
Optionapos = True
If Optionapos = True Then plan = "CadReu" Else plan = "CadReuOlde" End If
'atualiza a caixa localizar Dim totaldelinhas As Long totaldelinhas = Worksheets(plan).UsedRange.Rows.Count
formreunioes.cxLocalizar2.RowSource = plan & "!" & "A2:A" & totaldelinhas