Jump to content
Fórum Script Brasil

PBJ

Membros
  • Content Count

    11
  • Joined

  • Last visited

Community Reputation

0 Neutro

About PBJ

  1. Olá Tenho um listbox com linhas e colunas proveniente dos dados existentes na plan2. Gostaria de uma rotina que ao selecionar o item da listbox que mostra apenas os valores das três primeiras colunas substitua toda a linha existente na plan1 caso os três primeiros valores sejam iguais. obrigado.
  2. PBJ

    Ajuda com ListBox !

    Prezados, Peço ajuda para solucionar uma rotina de testes entre 3 listBox, onde o usuário no caso de esquecer de selecionar um deles seja avisado. Um dos listBox é MultiSelect e todos são ListStyleOption. A rotina que criei abaixo funciona somente com os primeiros itens de cada listBox se selecionar a partir do segundo item ele informa como falso. Como poderia resolver isso? Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim r As Integer For i = 0 To ListBox1.ListCount - 1 For j = 0 To ListBox3.ListCount - 1 For r = 0 To ListBox4.ListCount - 1
  3. Criei novo post com detalhes sobre esse assunto. http://scriptbrasil.com.br/forum/index.php?showtopic=143162
  4. PBJ

    Onde está o ERRO!

    Paulo, Funcionou, Plan1.Range("A65000").End(xlUp)(2, 1) = CDate(Me.ListBox1.List(i)) obrigado.
  5. Prezados, Gostaria de apoio para desenvolver uma forma para interação entre dois ListBox e dois ComboBox da seguinte forma. Aceito outras sugestões. ListBox1 armazena as datas de todo um ano. 01/01/2009 a 31/12/2009 ComboBox1 armazena as horas do período de 24h. 00:00 a 23:00 ComboBox2 também armazena as horas do período de 24h 00:00 a 23:00 ListBox2 armazena as datas selecionadas na ListBox1 . Ao selecionar uma data em ListBox1, o usuário deverá selecionar o horário de inicio e final nas ComboBox1 e 2, clicar em gravar e a data e horários transferidos para ListBox2. Somente a conclusão
  6. Olá, Consegui resolver o problema da data formatando as celulas da Plan1 como texto. Esse é a linha que adiciona as datas para Plan1: Plan1.Range("A65000").End(xlUp)(2, 1) = ListBox1.List(i) Não entendi o motivo da inversão do dia com o mês. JoséA Posso enviar por e-mail para você? abraços, Peter Segue meu e-mail. [email protected]
  7. PBJ

    Onde está o ERRO!

    Olá, Tenho a seguinte linha em meu código: Plan1.Range("A65000").End(xlUp)(2, 1).Value = ListBox1.List(i) Transfiro uma data de um listbox para outros sem problemas, mas imprimindo na planilha o valor fica invertido. Assim, 1/2/2009 é alterado para 2/1/2009 ??? Onde estou errando?
  8. Olá pessoal, Estou removendo o item selecionado na listBox1 e transferindo o item removido da listBox1 para a listBox2. Private Sub CommandButton1_Click() Dim i As Integer 'Incluir na listBox2 o item selecionado na listbox1 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Plan1.Range("A65000").End(xlUp)(2, 1) = ListBox1.List(i) ListBox2.AddItem ListBox1.List(i) End If Next i 'Retirar da listbox1 o item selecionado For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) = True Then ListBox1.RemoveItem (i) End If
  9. Prezado JoséA. Funcionou muito bem! Agradeço sua ajuda. obrigado, Peter
  10. Olá José, Sim, seleciono na combobox uma data para reeditar os valores existentes da planilha. Ao selecionar uma data o programa vai até a plan1 na data correspondente, busca os valores e apresenta nas textbox para alterações dos valores que forem necessários. O problema que ao selecionar a data o programa buscar os valores na plan1 e armazena todas na 2ª linha em vez de manter na mesma linha da data selecionada. Exemplo: Ao selecionar a data do dia 4/1/2009 na combobox o programa vai até plan1 na "A5" e transporta para as textbox para alterações necessárias, e imediatamente o programa leva o
  11. Olá pessoal! Peço ajuda para solucionar a seguinte dúvida: Tenho uma planilha com todas as datas do ano 1/1/20009 a 31/12/2009 ("A2:A366"), e inseri as datas na ComboBox1 com a seguinte rotina na inicialização do formulário: Private Sub UserForm_Initialize() Dim i As Range For Each i In ThisWorkbook.Worksheets("Plan1").Range("A2:A366").Rows Me.ComboBox1.AddItem Format(i.Cells(1, 1), "") Next i End Sub Muito bem, até ai sem problemas. Para cada linha da coluna "A" com suas datas tenho também nas colunas "B,C,D..." valores inseridos por meio de TextBox, que são registrados na
×
×
  • Create New...