Alyson Ronnan Martins

juro que estou olhando tentando entender mais não estou conseguindo.

Olha se te ajuda. Public Sub PegarDados(Valor As String) Dim Procurar Dim Planilha Planilha = "Plan1" Set Procurar = Sheets(Planilha).Columns("A:A").Find(Valor, , , LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False) If Not Procurar Is Nothing Then Procurar = Procurar.Row 'MsgBox Procurar TextBox2.Text = Sheets(Planilha).Cells(Procurar, "B").Text TextBox3.Text = Sheets(Planilha).Cells(Procurar, "C").Value Else TextBox2.Text = "" TextBox3.Text = "" MsgBox "Não foi encontrado o numero procurado" End If End Sub PS: Desculpa pela demora o E-mail não me avisou que tinha respondido Obs.: Esse é o código mais rápido para encontrar valor em planilha com muitos dados. Os outros podem usar o "FOR" que demora muito para achar.

olha se esse é isso ai. http://www.4shared.com/file/KEm4S9mJce/PrintView_Form07.html

Tenho dois código para isso porém eu preciso saber de uma coisa. Vai ter muito cadastros ou poucos (somente controle). Dependendo da quantidade é um código deferênte. ok? Aguardo

Bem quanto mais pesada a planilha ou lento o computador o Excel vai ficar mais lento. Não tem muito o que fazer quanto a isso. O que você pode fazer é redirecionar o Excel para uma planilha antes de salvar para que a primeira coisa mostrada seja a planilha que você selecionou.

Olha se funciona para ti: Sub Entrada() On Error GoTo NomeErrado 'Criando o primeiro comando Dim Planilha As String Planilha = Cells(3, 3).Value Sheets(Planilha).Select 'Esse comando você vai para a planilha 'agora na tela é preenchido os dados 'a ordem eu não sei então estou colocando uma qualquer e você arruma ai. 'Destino => Dados 'Todos os dados são cadastrados apartir da linha 2 da planilha selecionada Sheets(Planilha).Rows("2:2").Insert shift:=xlDown Cells(2, "A").Value = "Entrada" Cells(2, "B").Value = Sheets("MENU").Cells(8, 4).Value 'Coluna da Data Cells(2, "C").Value = Sheets("MENU").Cells(10, 4).Value 'Coluna da Descrição Cells(2, "D").Value = Sheets("MENU").Cells(12, 4).Value 'Coluna da quantidade Cells(2, "E").Value = Sheets("MENU").Cells(14, 4).Value 'Coluna da Valor Cells(2, "F").Value = Now() 'Armazenar o momento do cadastro 'Voltar ao menu Sheets("MENU").Select Exit Sub NomeErrado: MsgBox "Foi preenchido um nome para a planilha, favor verificar.", vbCritical, "Aviso" Sheets("MENU").Select End Sub Sub SAIDA() On Error GoTo NomeErrado 'Criando o primeiro comando Dim Planilha As String Planilha = Cells(3, 3).Value Sheets(Planilha).Select 'Esse comando você vai para a planilha 'agora na tela é preenchido os dados 'a ordem eu não sei então estou colocando uma qualquer e você arruma ai. 'Destino => Dados 'Todos os dados são cadastrados apartir da linha 2 da planilha selecionada Sheets(Planilha).Rows("2:2").Insert shift:=xlDown Cells(2, "A").Value = "Saida" Cells(2, "B").Value = Sheets("MENU").Cells(8, 4).Value 'Coluna da Data Cells(2, "C").Value = Sheets("MENU").Cells(10, 4).Value 'Coluna da Descrição Cells(2, "D").Value = Sheets("MENU").Cells(12, 4).Value 'Coluna da quantidade Cells(2, "E").Value = Sheets("MENU").Cells(14, 4).Value 'Coluna da Valor Cells(2, "F").Value = Now() 'Armazenar o momento do cadastro 'Voltar ao menu Sheets("MENU").Select Exit Sub NomeErrado: MsgBox "Foi preenchido um nome para a planilha, favor verificar.", vbCritical, "Aviso" Sheets("MENU").Select End Sub

Isso costuma acontecer porque o computador não suportou colar os dados, não sei muito o que fazer quanto isso. tentar importar as informações ela se vai continuar aparecendo os erros.

Public Sub Apagar() Dim LinhaInicial As Long Dim ColunaInicial As Long LinhaInicial = 1 ColunaInicial = 1 'Esse código assim mostra aonde deve começar a linha e a coluna dos seus dados Dim ContarLinhas As Long Dim ContarColunas As Long ContarLinhas = Cells(Rows.Count, ColunaInicial).End(xlUp).Row ContarColunas = Cells(LinhaInicial, Columns.Count).End(xlToLeft).Column For x = LinhaInicial To ContarLinhas Step 1 For y = ColunaInicial To ContarLinhas Step 1 Dim ValorProcurado As String Dim ValorEncontrado As String ValorProcurado = 3 'basta mudar aqui ou criar mais comandos para olhar ValorEncontrado = Cells(x, y).Value If ValorProcurado = ValorEncontrado Then Cells(x, y).ClearContents 'pode ser usado também o cells(x, y).value = "" End If Next y Next x End Sub Olha se assim você consegue.

Bom não sei se esta por ai mais vou criar algo mais complexo. Olha se acompanha. Ok?

Com o arquivo fica mais rapido.

olha se isso funciona: Range("A1:L20").ClearContents

Simples só colocar os segundos para identicar o seu registro. pronto assim você tera sempre a informação atual. Agora se não puder usar isso avisa que agente ajuda. Dim IDNota as string IDNota = format(now, "YYMMDDSS")

Teria como upar seu arquivo para servir de exemplo?

Boa noite. Eu dei uma revisada no seu projeto e vi um problema. Nas referências cadastradas não tinha uma delas no meu computador e creio que seja a mesma que esteja dando erro no seu. Eu desativei a referência e a planilha funcionou normalmente. Desativa ela ai e me passa uma resposta. No VBA: Menu Ferramentas > Referências...

já tentou somente "Paste"?

Boa noite. Você precisa identificar a ultima linha vazia. para que as informações sejam salvas lá. Dim LinhaDisponivel As Long LinhaDisponivel = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row + 1 Dá retorno ai.

Boa noite, olha se esse artigo te ajuda. ok? https://www.profissionaisti.com.br/2014/08/criando-um-ping-tester-no-vba-do-excel/

Só não entendi uma coisa você vai selecionar no excel ou no formulário?

Eu recomendo colocar um evento ao fechar. Assim você poderá definir o que fazer no excel. Mais duvida manda ai.

Luana. para fazer isso dá sim. mais teria como explicar um pouco mais ou mandar o arquivo excel para olhar?

Boa noite, teria como postar a planilha para olhar. para entender porque não adcionar no listbox;

Mauro vou te dar uma diva, abra o excel e coloque para gravar uma macro.. E faço o que está querendo. Você vai ver depois (dentro do VBA "F11") como o excel fez todo esse processo.

No proprio word já exist isso (é o numero de revisões). Cada vez que o arquivo é aberto e salvo o numero de revisão modifica.

Teria com tirar uma foto e e postar aqui para agente pode ver e conseguir entender melhor (sou meio lento )

para simular a tabulação você vai ter que coloca esse código para cada tabulação que precisar KeyDown Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'KeyCode : 9 = TAB If KeyCode = 9 Then TextBox2.Activate End If End Sub