JoséA

Olá Michelle!!! Estou com problema no `PC` que está com o arquivo. Aguarde em breve... você é colega do Guilherme?

No 2º post você disse: "...O que preciso é que o código some cada produto que foi vendido e depois ordene os produtos pelo número de vendas..." depois disse: :rolleyes: "...Seria pesquisada a data e a quantidade..." Fiquei confuso, a 1ª opção consegui aqui.

Seria pesquisa DtaInicial à DtaFinal, somaValores e classifica? ou :blush: Seria a busca dos itens vendidos (sem repetir), somaValores e classificação?

Exponha um modelo de sua fonte de dados de onde deve ser gerado o relatório?

Veja um exemplo, cole/copie em um Módulo e rode a macro Time: Sub Time() 'aplica o time atual + 2 segundos para executar o procedimento Application.OnTime Now + TimeValue("00:00:02"), "ExecutarMacro" End Sub Sub ExecutarMacro() MsgBox "Atenção! Apague esta MsgBox e coloque seu procedimento. " End Sub

Sugetões possíveis: 1 - Format toda coluna de datas como data, talvez estejam como texto; 2 - Coloque o textbox's assim: valor2 = CDate(TextBox2) valor3 = CDate(TextBox3) 3 - Disponha seu arquivo.

Deve ser porque o textbox não teve sua formatação convertida para data, tente colocar assim: CDate(Textbox) Aqui segue um link de pesquisa com datas muito bom, criado por Felipe Dassi. PesquisaDatas

:wacko: Não entendi muito bem o que você quer. você quer inerir dados na Plan2 com a Plan1 ativa, seria isso?? :unsure:

Post a sua planilha.

Fico feliz por isso.

'DESABILITA COMBOBOX1 Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = 0 End Sub

Se for o ComBox VBA seria: Private Sub UserForm_Initialize() Me.ComboBox1.ListIndex = 0 End Sub

Neste caso seria só gravar uma macro. Private Sub CommandButton1_Click() Sheets("Plan1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub

1 - Considerando coluna A c/ dados e resultado na coluna E Sub PesquisaIntervalo() Application.EnableEvents = False Dim lastRow As Long Dim lastResultRow As Long Dim X As Long ' Verifica qual a ultima célula preenchida lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' Apaga valores anteriores Range("E1:E65536").ClearContents lastResultRow = 1 'linha resultado ' Ciclo em todas as linhas For X = 1 To lastRow '1 Linha dados pequisa ' verifica se o valor é igual ao da pesquisa If Cells(X, 1).Value >= 11 And Cells(X, 1) <= 25 Then '1 coluna pequisa ' Copia os valores Cells(lastResultRow, 5).Value = Cells(X, 1).Value lastResultRow = lastResultRow + 1 End If Next Application.EnableEvents = True End Sub 2 - Para essa dúvida, você pode referenciar a célula como Range("j73") ou [j73]. No caso CDbl("1,65") é que quando você lança valores entre aspas eles são lançados no formato texto (você não consegue aplicar uma função soma, p/ ex.). Já com CDbl() você converte os valores em texto p/ númericos. Sub Chauvenet() If Range("j73").Value = 5 Then Range("u39").Value = CDbl("1,65") Else If Range("j73").Value = 6 Then Range("u39").Value = CDbl("1,73") Else If Range("j73").Value = 7 Then Range("u39").Value = CDbl("1,80") Else If Range("j73").Value = 8 Then Range("u39").Value = CDbl("1,86") Else If Range("j73").Value = 9 Then Range("u39").Value = CDbl("1,92") Else End If End If End If End If End If End Sub Verifique e informe.

Disponha.

Na verdade este código traria a formatação para o textbox1, digitarias e ao sair do text1 ficaria JAN-07 no mesmo. Para melhor compreenderes pegue este exemplo: http://www.sendspace.com/file/vxdjn3 Digitarás 23/01/07 no TextBox1 e ao sair dele (TextBox1) será inserido no TextBox3 a mesma data no formato JAN-07. Teste aí e informe.

Seria assim? Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = UCase(Format(TextBox1, "mmm-yy")) End Sub

Private Sub CommandButton1_Click() Plan1.Activate 'plan desejada UserForm1.Hide ActiveWindow.SelectedSheets.PrintPreview UserForm1.Show End Sub

Ok! Disponha amigo.

Seria assim: Alteração por ComBox

Não entendi bem sua solicitação. você seleciona no combobox, busca linha correspondente nos textbox e não esta conseguindo alterar corretamente na planilha. Seria isso? <_<

Nem irá achar "RowSource do Listbox" é uma propriedade do controle ListBox. Para um TextBox, acho, não seria possivel carregar um intervalo (ListBox - sim). No TextBox: Private Sub UserForm_Initialize() TextBox1 = Plan1.Range("A1").Value 'carrega plan1 A1 p/ TextBox1 End Sub

Teste assim: Sub PESQUISA() Application.EnableEvents = False Dim lastRow As Long Dim lastResultRow As Long Dim X As Long ' Verifica qual a ultima célula preenchida lastRow = Plan2.Cells(Rows.Count, 1).End(xlUp).Row ' Apaga valores anteriores Plan3.Range("A2:AE65536").ClearContents lastResultRow = 2 'linha resultado ' Ciclo em todas as linhas For X = 2 To lastRow '1 Linha dados pequisa ' verifica se o valor é igual ao da pesquisa If Plan2.Cells(X, 3).Value >= CDate(TextBox1) And Plan2.Cells(X, 3) <= CDate(TextBox2) Then '1 coluna pequisa ' Copia os valores Plan3.Cells(lastResultRow, 1).Value = Plan2.Cells(X, 1).Value Plan3.Cells(lastResultRow, 2).Value = Plan2.Cells(X, 2).Value Plan3.Cells(lastResultRow, 3).Value = Plan2.Cells(X, 3).Value Plan3.Cells(lastResultRow, 4).Value = Plan2.Cells(X, 4).Value lastResultRow = lastResultRow + 1 End If Next Application.EnableEvents = True End Sub Aqui p/ 04 colunas adapte aí.

Um exemplo: Private Sub CommandButton1_Click() [B2].Value = CDbl(TextBox1) End Sub

Acionar essa fórmula por uma macro, seria isso? Sub Macro() ' aqui insere sua fórmula em plan1 A1 Plan1.Range("A1") = "=ROUND(IF(R[38]C33<>0,IF(R[38]C28=10,R[38]C31*120.8%,IF(R[38]C28=20,R[38]C31*131.3%,IF(R[38]C28=30,R[38]C31*106.4%,IF(R[38]C28=40,R[38]C31*124.7%,""Setor de Atividade Errado""))))),2)" 'aqui iquala plan1 A1 ao se valor sem a fórmula Plan1.Range("A1").Value = Plan1.Range("A1").Value End Sub