Notifications
Clear all

Cadastro: Itens da Listbox para uma outra planilha.

4 Posts
2 Usuários
0 Reactions
868 Visualizações
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Prezados,

Como registrar os itens de um listbox, para uma outra planilha?

A necessidade também é de excluir, através de um botão, o item de uma listbox.

Em outros casos, quando o valor a ser gravado encontra-se em um textbox, eu utilizo o código abaixo:

Dim lRow As Long
Dim Ultimalinha As Long

Dim matricula

matricula = TextBox1.Text

Workbooks.Open ("C:Usersalisson.jalDownloadsBD_GERAL.xlsx")
ActiveSheet.Unprotect ("1234")

Sheets("FORM_operacional").Select

ActiveSheet.Unprotect ("1234")

With Sheets("FORM_operacional") '<- troque o nome da planilha, se necessário

Cells(3, "V") = matricula

 
Postado : 20/01/2015 6:49 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Se poder explicar melhor e dar mais detalhes.

Essa outra planilha está em outro arquivo?

Você pode passar os dados para um determinado intervalo.

tipo

Sub lbx_Celulas()

Dim AleVBAArray As Variant
Dim AleVBARange As Range

AleVBAArray = ListBox1.List
Set AleVBARange = Range(Cells(1, 1), Cells(UBound(AleVBAArray) + 1, 1))
AleVBARange = AleVBAArray

End Sub

Att

 
Postado : 20/01/2015 8:48 am
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Sim, esta em outro arquivo.

 
Postado : 20/01/2015 11:24 am
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Na verdade essa listbox terá algumas linhas preenchidas. Eu preciso que os dados contidos em cada coluna e linha, sejam gravados em uma outra planilha.

 
Postado : 20/01/2015 11:51 am