Basole

Veja se te atende, coloquei botao p/ pesquisa separado e um botao para recarregar os dados. 2ComboBox2.zip

Bom nao entendi direito o seu problema, mas segue em anexo, um ex. com o seu codigo: 2ComboBox.zip

Eu prefiro usar o excel como frontend para inserir, alterar e excluir e imprimir relatorios dos dados e o access com backend para 'guardar os dados' Segue anexo um exemplo. Veja se consegue seguindo a logica e adaptar a sua necessidade. Control de Stock.zip

tenho um ex. que faz isso q precisa, mas envia direto pelo Gmail.

vj. o ex se consegue ajustar a sua situacao Menor Preco.xlsx

Pf. upload um ex destacando o resultado q deseja.

É apenas + uma sugestao. Pra quem sabe usar é bem simples. Acho até + fácil do que você esta sugerindo, pois muita gente nao sabe renomear arquivos. (Ctrl+c, Ctrl+v no editor vbe do excel e pronto), no final terá o mesmo resultado.

Se o seu arq. texto todo, seguir este padrão, esta macro vai te ajudar: Sub ImportaSeuTxt() Dim tEmail As String Dim nNum As String Dim nFile, rowTxt As String 'altere a linha abaixo, de acordo com o caminho do seuTXT nFile = "C:\Temp\SeuTxt.txt" Open nFile For Input As #1 Do While Not EOF(1) Line Input #1, rowTxt str1 = LTrim(rowTxt) If Mid(str1, InStr(str1, ";"), 1) = ";" Then tEmail = Left(str1, InStr(str1, ";") - 1) nNum = Right(str1, Len(str1) - InStr(str1, ";")) Else End If Worksheets(1).Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Value = tEmail Worksheets(1).Range("B" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Value = nNum Loop Close #1End Sub

Nivio Ramos Junior, Por favor compartilhe seu arquivo, pois p/ podermos ajuda-lo é necessário ter algumas informaçoes, como nome da tabela, tamanho dos campos, indice(s) etc.

Nivio Ramos Junior, Por favor elabore melhor sua questao. voce quer cadastrar o que: Agenda, Clientes, fornecedores, produtos, etc.? Quais os campos que precisa: Codigo, nome, descriição, telefone, etc.? Se possivel compartilhe uma planilha exemplo com as sua necessidades. obrigado.

veja esse ex. c/ macro: Private Sub Workbook_Open()Application.OnKey "{F9}", "ApertandoF9"End Sub e em um modulo: Sub ApertandoF9()Plan1.Range("a1") = Plan1.Range("a1") + 1End Sub

Xflapc2, Pelo que eu entendi o que ele quer da pra fazer com formulas. Segue um exemplo: InserirDados.xlsx

=ARRED(2,2+3,2;0)

Se nao puder editar o caminho no sistema web, faça um atalho. Crie um .bat com o conteudo "C:\Program Files (x86)\Microsoft Office\Office15\WinWord.exe" incluindo as aspas, em seguida converta este (.bat) para (.exe) ( http://livedefaces.livreforum.com/t14-aprenda-a-transformar-arquivos-bat-em-exe) com o "winword.exe" pronto salve-o em " C:\Program Files (x86)\Microsoft Office\Office10\ " quando. o seu sistema web chamar esse caminho, vai ativar o atalho que abrirá o word no novo caminho.

segue minha sugestao: Private Sub CommandButton4_Click() Application.ScreenUpdating = False On Error GoTo z Dim cel As String cel = ActiveCell.Value Select Case cel Case Is <> "" Range(cel).Select Case Is = "" Exit Sub End Selectz:End Sub

veja se á isso, para testar insira os valores e click 2 vezes nas celulas g1 a g5: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim cel As String Rem :altere as celulas (ex. g1:g5) que deseja ativar If Not Intersect(Target, Range("g1:g5")) Is Nothing Then cel = Target.Value If cel <> "" Then Range(cel).Select Rem :se quiser elimine a(msg)linha abaixo MsgBox "celula " & cel & " selecionada !" Else Rem :se quiser elimine a(msg)linha abaixo MsgBox " insira o valor da celula !" End If End IfEnd Sub

Tente assim... =DATADIF(B37;B38;"d") & " dias"

tente isso: Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Intersect(Target, Range("a1:b15")) Is Nothing Then Call macro1 End If If Not Intersect(Target, Range("e20:f35")) Is Nothing Then Call macro2 End IfEnd Sub

Substitue da sua plan. por este: Sub Retângulo1_Clique()Dim z As Longz = Range("c1047586").End(xlUp).RowIf z = 10 Then Exit SubCells(Rows.Count, "C").End(xlUp).Offset(1) = Application.InputBox("Insira um numero..ou cancele", "Insirir ou cancelar ?")If Cells(Rows.Count, "C").End(xlUp).Offset = False ThenCells(Rows.Count, "C").End(xlUp).Offset = ""If z >= 2 Then Range("c" & (z)) = ""End IfEnd Sub

Mas não foi isso que voce informou + acima. Desculpe nao entendi, "cancelar" o que ?

Veja o ex. no link abaixo: http://www.sendspace.com/file/ncvz4r

Tente isso: =DATADIF(A1;A2;"d")

então use o ex. de forumula abaixo, em: "Usar uma fórmula para determinar quais células devem ser formatadas" * altere os numeros de serie de acordo com suas datas (no ex. abaixo: 30/05/2013 a 30/05/2014) =SE($M2>=41424;E($M2<=41789))

Boa tarde, Sugiro que você. utilize esta planilha (aba: "dados do Pedido"), apenas para receber/guardar as inf. recebidas pelo formulario tipo como um banco de dados e crie uma nova planilha(aba) como "espelho" para voce "tratar os dados", inserir formulas, vai dizendo, formatacao, imagens, etc, etc, etc... http://www.sendspace.com/file/cv606v

Nesse caso vai uma sugestão: Nas opções da form. condicional escollha: -> Formatar apenas células que contenham. (o valor da celula - esta entre: "numero de serie inicial" e "numero de serie final") . Caso os dados forem texto ou valores fora destes parametros = Falso e o contrario, =Verdadeiro p/ os valores dentro dos parametros