Skip to main content
respondi no local errado e corrigi
Fonte Link

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

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

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
Consegui fazer funcionar, alterando o tipo da variável de worksheet para string
Fonte Link

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

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

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

Estilo da escrita, para se adequar ao SO
Fonte Link
Marcus Nunes
  • 19mil
  • 9
  • 32
  • 59

VBA RowSource com variavelvariável

Bom dia amigos, sou novo aqui e estou fazendo a minha primeira pergunta.

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

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

VBA RowSource com variavel

Bom dia amigos, sou novo aqui e estou fazendo a minha primeira pergunta.

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

VBA RowSource com variável

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
Fonte Link
Carregando