cleitoncoelho
-
Total de itens
13 -
Registro em
-
Última visita
Posts postados por cleitoncoelho
-
-
txtmcersh.Text = Format(Val(Plan3.Cells(6, 13)),"0.00")
Muito Obrigado João! Funcionou Perfeitamente!
-
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!
-
você quer q todos os itens selecionados do listbox sejam escritos na planilha em linhas diferentes??
o codigo deve ser mais ou menos esse, só q ele esta escrevendo todos na mesma linha, um sobrepondo o outro. no final deve ter só um dos itens escrito na planilha.
você deveria ir somando o numlinha dentro do if.
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!
-
"selecionar" todos os itens?? não deu pra entender direito o q você quer...
e afinal é uma combobox ou uma listbox?? se você quer q todos os itens fiquem selecionados ao mesmo tempo, vai funcionar somente na listbox, é só você setar a propriedade .Selected(indice) como True para cada item (onde, no exemplo, indice é o numero do item, comecando no 0).
agora se o q você quer é, nesse seu codigo comparar o texto de cada item com a celula da planilha, então faca um for q va de 0 até .ListCount - 1, e já comparando a propriedade .List(indice) do combobox.
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!!
-
da onde vem essas informações
se vier de uma tabela, no evento onClick do primeiro combo(ESTADO) ele executa uma query e preenche o combo 2 (Cidade)
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:
-
Muito Obrigado João Neto!
Funcionou certinho!
Deus te abençõe!
-
Muito Obrigado João Neto!
Funcionou certinho!
Deus te abençõe!
-
pesquise sobre a função DateDiff, ela retorna diferenças entre datas no formato que você quiser (ano, mês, dia, hora, minuto...).
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!
Exportar um formulario vba para PDF
em VBA
Postado
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!