cleitoncoelho
Membros-
Total de itens
13 -
Registro em
-
Última visita
Tudo que cleitoncoelho postou
-
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!
-
(Resolvido)Formatar caixa de texto (casas decimais) como 0,00 URGENTE
pergunta respondeu ao cleitoncoelho de cleitoncoelho em VBA
Muito Obrigado João! Funcionou Perfeitamente! -
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!
-
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
-
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!
-
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!!
-
(RESOLVIDO)Combobox atualizando valores referente a selecao
pergunta respondeu ao cleitoncoelho de cleitoncoelho em VBA
Esses dados vem de uma planilha do excel. Voce tem algum exemplo? Sou iniciante em VBA Valeu! -
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:
-
AJUDA PARA PESQUISA ENTRE DATAS (PERIODO)VBA
pergunta respondeu ao cleitoncoelho de cleitoncoelho em VBA
Muito Obrigado João Neto! Funcionou certinho! Deus te abençõe! -
AJUDA PARA PESQUISA ENTRE DATAS (PERIODO)VBA
pergunta respondeu ao cleitoncoelho de cleitoncoelho em VBA
Muito Obrigado João Neto! Funcionou certinho! Deus te abençõe! -
AJUDA PARA PESQUISA ENTRE DATAS (PERIODO)VBA
pergunta respondeu ao cleitoncoelho de cleitoncoelho em VBA
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! -
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!