Paulo Semblano

O Excel 2003 permite classificar por Lista Personalizada. Selecione os dados, clique em Ferramentas/Opções/Listas Personalizadas e adicione a lista Em Dados/Classificar clique no botão Opções e escolha a Lista desejada.

Link incorreto

No lugar de: Me.minhaCaixa01.SetFocus Insira: Cancel = True E para restringir a digitação somente para números: Private Sub minhaCaixa01_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 8, 48 To 57 Case Else KeyAscii = 0 End Select End Sub

1) Use Cdate 2) ListBox1.Clear

Veja este link: http://www.tudosobrexcel.com/excel_forum/v...mprimir+listbox

Use Cdate

A1: MATERIAL B1: CÓDIGO C1: QT Digite os materiais, códigos e quantidades abaixo dessas colunas Colunas para a totalização: E1: MATERIAL F1: CÓDIGO G1: QT Na célula E2 digite o 1º material a ser somado (por exemplo: Parafuso) Na célula F2 o seu código (por exemplo: 3150) Na célula G2 a seguinte fórmula: =SOMARPRODUTO(($A$2:$A$8=E2)*($B$2:$B$8=F2)*($C$2:$C$8)) As que estão em vermelho são para substituir pelo número da última linha ou com um número de linha bem maior. É só seguir o mesmo procedimento para as colunas E, F e G para os outros produtos

Você pode atualizar de duas formas conforme exemplo abaixo: Diretamente dentro do código do UserForm - ATUALIZA1 Ou pela planilha conforme o ATUALIZA2 (no exemplo, com os dados na planilha 1 começando na célula A2) O KeyAscii é para bloquear a digitação Private Sub UserForm_Initialize() Call ATUALIZA1 End Sub Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = 0 End Sub Sub ATUALIZA1() With ComboBox1 .AddItem "Acre" .AddItem "Ceará" .AddItem "Maranhao" End With End Sub Sub ATUALIZA2() Dim I As Long For I = 2 To Plan1.Range("A65536").End(xlUp).Row ComboBox1.AddItem Plan1.Range("A" & I).Value Next I End Sub

Para inserir uma cópia da planilha atual por último: [coode]Sub TESTE1() Dim NOMEPLAN As String NOMEPLAN = ActiveSheet.Name Sheets(NOMEPLAN).Copy After:=Sheets(Sheets.Count) End Sub Para inserir uma cópia da Plan2 por último: Sub TESTE2() Sheets("Plan2").Copy After:=Sheets(Sheets.Count) End Sub

No lugar de: L = UserForm1.Rows.Count + 1 Tente: L = Plan1.Range("A65536").End(xlUp).Row + 1

Use 2 planilhas: Plan1 e Plan2 Na Plan2 linha 1 digite nas colunas A, B e C os seguintes títulos: PRODUTO, FORNECEDOR e VALOR Clique em Inserir/Nome/Definir Na caixa menor superior digite PRODUTO Na caixa menor inferior digite a seguinte fórmula: =INDIRETO("Plan2!$A$2:$A$" & CONT.VALORES(Plan2!$A:$A)) Clique no botão Adicionar e depois no botão OK Na Plan1 linha 1 digite nas colunas A, B e C os seguintes títulos: FORNECEDOR, PRODUTO e VALOR Clique na célula B2. Clique em Dados/Validação. Na aba Configurações em Permitir escolha Lista, e na caixa Fonte digite =PRODUTO Na célula A2 digite a seguinte fórmula: =SE(B2="";"";PROCV(B2;INDIRETO("Plan2!A2:B" & CONT.VALORES(Plan2!$A:$A));2;0)) Na célula C2 digite a seguinte fórmula: =SE(B2="";"";PROCV(B2;INDIRETO("Plan2!A2:C" & CONT.VALORES(Plan2!$A:$A));3;0))

O ideal seria se FORNEC. NOVO/PROD. NOVO/VAL. NOVO estivessem em outra planilha para cadastros novos.

Suponhamos os valores nas células abaixo: A1: 17:00 B1: 19:30 C1: 02:30 D1: R$ 40,00 Na célula E1 digite: =C1*24*D1 Multiplica-se por 24 porque o Excel trabalha com números fracionários para representar horas. Vinte e quatro horas representa o número inteiro 1. Nas células onde digitou horas e minutos clique em Formatar/Células/Geral. Você verá que os números são menores do que 1. A propósito, onde é essa escola que paga R$ 40,00 a hora? Estão precisando de instrutor avançado em Excel?

Fiz um teste com os números que me passou e deu certo com a fórmula abaixo. A condição é que tenha 3 asteriscos. =VALOR(ESQUERDA(A1;PROCURAR("*";A1)-1))*VALOR(EXT.TEXTO(A1;PROCURAR("*";A1)+1;PROCURAR("*";A1;PROCURAR("*";A1)+1)-PROCURAR("*";A1)-1))*VALOR(DIREITA(A1;NÚM.CARACT(A1)-PROCURAR("*";A1;PROCURAR("*";A1)+1)))

Monte uma planilha com alguns dados e mande para nós.