Ir para conteúdo
Fórum Script Brasil

cleitoncoelho

Membros
  • Total de itens

    13
  • Registro em

  • Última visita

Sobre cleitoncoelho

cleitoncoelho's Achievements

0

Reputação

  1. Boa Tarde! Pessoal estou precisando de uma ajuda para exportar um formulario vba para PDF... Será que vocês podem me dar uma ajuda? Valeu!
  2. Pessoal Bom Dia! Me ajudem por favor... Preciso de formatar o valor que a caixa de texto vai receber como 0,00. Atualmente não esta montrando casas decimais apenas inteiro. txtmcersh.Text = Val(Plan3.Cells(6, 13)) Obrigado!
  3. O numlinha é apenas para ele começar apartir da linha2 que é onde começa os meus valores que preciso mostrar. Preciso que eles sejam escritos em linhas diferentes. Obrigado!
  4. Fiz assim so que não esta trazendo os valores de acordo com a minha seleção no listbox. Alterei a propriedade para multiselect. Sera que podem me ajudar?? For lItem = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(lItem) = True Then Plan1.Cells(numlinha, 4) = ListBox1.List(lItem) ListBox1.Selected(lItem) = False End If Next
  5. Pessoal Boa Tarde! Tem como eu selecionar todos os valores de uma list box? Private Sub CommandButton1_Click() Dim numlinha As Double Dim numlinha2 As Double Dim numcoluna As Double numlinha = 2 numlinha2 = 10 Plan3.Cells.Range("A10:G1000") = "" 'Limpa toda a planilha entes de executar. Do While Plan1.Cells(numlinha, 3) <> "" If Plan1.Cells(numlinha, 3) = cbotipo.Text Then ------ seleciono o tipo de equipamento (carregamento ou Transporte) If Plan1.Cells(numlinha, 4) = Cbofrota.Text Then ------ Quero selecionar todos os valores da combobox------ como fazer isso? If (Plan1.Cells(numlinha, 1)) >= DTPicker1 And Plan1.Cells(numlinha, 1) <= DTPicker2 Then Plan3.Cells(numlinha2, 1) = Plan1.Cells(numlinha, 1) Plan3.Cells(numlinha2, 2) = Plan1.Cells(numlinha, 2) Plan3.Cells(numlinha2, 3) = Plan1.Cells(numlinha, 3) Plan3.Cells(numlinha2, 4) = Plan1.Cells(numlinha, 4) Plan3.Cells(numlinha2, 5) = Plan1.Cells(numlinha, 5) Plan3.Cells(numlinha2, 6) = Plan1.Cells(numlinha, 6) Plan3.Cells(numlinha2, 7) = Plan1.Cells(numlinha, 7) numlinha2 = numlinha2 + 1 End If End If End If numlinha = numlinha + 1 Loop Valeu!
  6. cleitoncoelho

    Grafico em Form

    Pessoal Boa Tarde! Tem como eu colocar um grafico que já esta pronto em uma planilha excel no meu formulario VBA? alguém pode me ajudar? !! URGENTE!!
  7. Esses dados vem de uma planilha do excel. Voce tem algum exemplo? Sou iniciante em VBA Valeu!
  8. Boa Noite! Tenho 2 combobox no meu formulario e preciso que ao clicar na primeira ela carrega os dados referente para a segunda combo. Ex. (Combo - Estado) (combo - Cidades) ao selecionar o estado de mina gerais retorna todas as cidades mineiras. tenho os estados na coluna C e as cidades na coluna D. Será que alguém poderia me ajudar? Muito Obrigado! :rolleyes:
  9. Muito Obrigado João Neto! Funcionou certinho! Deus te abençõe!
  10. Muito Obrigado João Neto! Funcionou certinho! Deus te abençõe!
  11. Renato, Obrigado pela dica mas o que eu preciso é de pesquisar na Plan1 na coluna 1 todos os valores que estiver dentro do periodo selecionado e acho que a função datediff não da pra fazer... Ou se você tiver algum exemplo... Valeu!
  12. Pessoal Boa Tarde! sou iniciante em VBA e estou com dificuldade em fazer um codigo para retornar a data dentro do periodo selecionado pelo usuario. Estou utilizando DTpicker1 DTpicker2 dentro de um form. O codigo esta retornando o valor digitado na primeira data ... preciso fazer entre o periodo digitado na DTpicker1 e DTpicker2... Do While Plan1.Cells(numlinha, 3) <> "" If Plan1.Cells(numlinha, 3) = Cbotipo.Text Then If Month(Plan1.Cells(numlinha, 1)) = Month(DTPicker1) And Year(Plan1.Cells(numlinha, 1)) = Year(DTPicker1) Then ' If Month(Plan1.Cells(numlinha, 1)) = Month(DTPicker2) And Year(Plan1.Cells(numlinha, 1)) = Year(DTPicker2) Then Plan3.Cells(numlinha2, 1) = Plan1.Cells(numlinha, 1) Plan3.Cells(numlinha2, 2) = Plan1.Cells(numlinha, 2) Plan3.Cells(numlinha2, 3) = Plan1.Cells(numlinha, 3) Plan3.Cells(numlinha2, 4) = Plan1.Cells(numlinha, 4) Plan3.Cells(numlinha2, 5) = Plan1.Cells(numlinha, 5) Plan3.Cells(numlinha2, 6) = Plan1.Cells(numlinha, 6) Plan3.Cells(numlinha2, 7) = Plan1.Cells(numlinha, 7) numlinha2 = numlinha2 + 1 'End If End If End If End If numlinha = numlinha + 1 Loop Desde já agradeço pela atenção!
×
×
  • Criar Novo...