@@CanalSGP minha dúvida é a seguinte: tenho um formulário em Excel vba e quero salvar os dados de cada textbox em uma célula específica da planilha. Exemplo: textbox1 salvar na célula A3; textbox2 salvar na célula B5, textbox3 salvar na célula D13 e assim por diante. Consegue me ajudar?!
Caro Mestre, parabéns pelo seu trabalho. Fiz tudo igual, porém ao rodar dá o erro '70', não foi possível definir a propriedade List. Permissão negada. Alguém pode me ajudar?
Boa noite, obrigado, se for muitos registros pode demorar, porque precisa ajustar a posição de cada coluna. Se for este caso talvez seja melhor classificar os registros diretamente na planilha Excel.
Fui usar esses códigos, e na primeira userform com um listbox, funcionou de boa, nem acreditei. Fui passar pra outra userform com 4 listbox, e todos os dados de todas as listbox de qualquer userform pararam de ser exibidos. Me lasquei. Estranho que até mesmo no arquivo que eu deixo de backup, parou de exibir os dados de todas as listbox tbm. Tô desesperado. Estava terminando um projeto para um salaozinho da minha namorada. 😭😭😭😭
Bom dia, acredito que não seja devido ao código de classificação, deve ser outro problema. Porque se fosse este procedimento, ao retirar os códigos ou desativar estaria funcionando.
Buenos días, te escribe Martín Carrera desde Ecuador Me pareció muy interesante tu código pero no puedo implementarlo porque me marca un error. Trabajo con Microsoft 365 y Windows 11 Te digo la línea que me produce el error Temp = .List(i, x) AQUÍ SE PRODUCE LA DETENCIÓN Sub Classificar_Ordem_Alfabetica(ColunaClass) 'On Error GoTo Erro Dim i As Double, Linha As Double, x As Double Dim Temp As String With frm_VerProveedores.ListBox1 For Linha = 1 To .ListCount - 1 For i = LBound(.List) To UBound(.List) - 1 If VBA.UCase(.List(i, ColunaClass)) > VBA.UCase(.List(i + 1, ColunaClass)) Then
If i 0 Then For x = 0 To .ColumnCount - 1 Temp = .List(i, x) AQUÍ SE PRODUCE LA DETENCIÓN .List(i, x) = .List(i + 1, x) .List(i + 1, x) = Temp
Next x End If End If Next i
Next Linha End With Exit Sub Erro: MsgBox "Erro!", vbCritical, "CLASSIFICAR OREDEM ALFABÉTICA" End Sub
Boa tarde, verificando o código não encontrei erro, talvez seja número de coluna ou linha fora da estrutura da listbox. Ou pode ser que esteja carregando a listbox por meio do rowsurce, com este método não funciona.
@@CanalSGPhola yo tenía el mismo error y después de revisarlo muchas veces resultó que me faltaba el punto antes de list y así se corrigió el problema
Sempre com uma solução. Obrigado Mestre.
De nada.
Meu amigo, parabéns pelo trabalho. Aprendi muita coisa contigo, começando do zero.
Como faço pra postar uma dúvida? Tem algum contato?
Bom dia, obrigado, pode ser pelos comentários mesmos.
@@CanalSGP teria algum outro canal que eu pudesse te enviar uma dúvida?
@@CanalSGP minha dúvida é a seguinte: tenho um formulário em Excel vba e quero salvar os dados de cada textbox em uma célula específica da planilha. Exemplo: textbox1 salvar na célula A3; textbox2 salvar na célula B5, textbox3 salvar na célula D13 e assim por diante. Consegue me ajudar?!
Boa tarde, segue exemplo:
Planilha1.Range("A1").Value = Textbox1.Value
Caro Mestre, parabéns pelo seu trabalho. Fiz tudo igual, porém ao rodar dá o erro '70', não foi possível definir a propriedade List. Permissão negada. Alguém pode me ajudar?
Bom dia, obrigado, solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.
Excelente! Só que o meu código não está rodando na linha do laço: "For i = LBound(.List) To UBound(.List) - 1"
Como resolver?
Bom dia, se estiver carregando a listbox pelo método rowsurce acredito que não funciona a classificação, talvez seja isso.
Muito bom mesmo, mas esta demorando um pouco, como faço para ficar mais rápida?
Boa noite, obrigado, se for muitos registros pode demorar, porque precisa ajustar a posição de cada coluna. Se for este caso talvez seja melhor classificar os registros diretamente na planilha Excel.
Fui usar esses códigos, e na primeira userform com um listbox, funcionou de boa, nem acreditei. Fui passar pra outra userform com 4 listbox, e todos os dados de todas as listbox de qualquer userform pararam de ser exibidos. Me lasquei. Estranho que até mesmo no arquivo que eu deixo de backup, parou de exibir os dados de todas as listbox tbm. Tô desesperado. Estava terminando um projeto para um salaozinho da minha namorada. 😭😭😭😭
Bom dia, acredito que não seja devido ao código de classificação, deve ser outro problema. Porque se fosse este procedimento, ao retirar os códigos ou desativar estaria funcionando.
Buenos días, te escribe Martín Carrera desde Ecuador
Me pareció muy interesante tu código pero no puedo implementarlo porque me marca un error.
Trabajo con Microsoft 365 y Windows 11
Te digo la línea que me produce el error
Temp = .List(i, x) AQUÍ SE PRODUCE LA DETENCIÓN
Sub Classificar_Ordem_Alfabetica(ColunaClass)
'On Error GoTo Erro
Dim i As Double, Linha As Double, x As Double
Dim Temp As String
With frm_VerProveedores.ListBox1
For Linha = 1 To .ListCount - 1
For i = LBound(.List) To UBound(.List) - 1
If VBA.UCase(.List(i, ColunaClass)) > VBA.UCase(.List(i + 1, ColunaClass)) Then
If i 0 Then
For x = 0 To .ColumnCount - 1
Temp = .List(i, x) AQUÍ SE PRODUCE LA DETENCIÓN
.List(i, x) = .List(i + 1, x)
.List(i + 1, x) = Temp
Next x
End If
End If
Next i
Next Linha
End With
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "CLASSIFICAR OREDEM ALFABÉTICA"
End Sub
Boa tarde, verificando o código não encontrei erro, talvez seja número de coluna ou linha fora da estrutura da listbox. Ou pode ser que esteja carregando a listbox por meio do rowsurce, com este método não funciona.
@@CanalSGPhola yo tenía el mismo error y después de revisarlo muchas veces resultó que me faltaba el punto antes de list y así se corrigió el problema