RocketR

Tenho alguns nomes de alguns alunos em uma planilha na coluna A e preciso listar esses nomes em uma ListBox em um formulário em ordem alfabética. Alguém pode me ajudar? Estou usando o seguinte codigo, mas não se mostra efetivo: Private Sub Clistar_Click() PresultadoAB.Clear For Each plan In Worksheets Set x = plan.Columns(1).Find(all) If Not x Is Nothing Then firstAddress = x.Address Do plan.Select x.Select Range(x.Address).Select ActiveCell.Offset(0, 1).Select Pnomecurso = x.Text & " - " & ActiveCell PresultadoAB.AddItem Pnomecurso Set x = plan.Columns(1).FindNext(x) Loop While Not x Is Nothing And x.Address <> firstAddress Else MsgBox "Nenhum resultado encontrado!" End If Next End Sub PresultadoAB é a listbox

Olá! Queria fazer uma macro para pesquisar palavras-chave na coluna A, a partir do A2. A macro está funcionado, mas ela pesquisa na planilha inteira, e não apenas na Coluna A... Segue o codigo: For Each plan In Worksheets Set x = plan.Cells.Find(what:=Pnome) If Not x Is Nothing Then firstAddress = x.Address Do plan.Select x.Select Range(x.Address).Select ActiveCell.Offset(0, 1).Select Pnomecurso = x.Text & " - " & ActiveCell Presultado.AddItem Pnomecurso Set x = plan.Cells.FindNext(x) Loop While Not x Is Nothing And x.Address <> firstAddress Else MsgBox "Nenhum resultado encontrado!" End If Next Se alguém souber como eu limito a pesquisa á celula A2 até o final da coluna A, me ajude por favor! (: Obrigado!

@CasaDoHardware Muito obrigado mesmo cara, salvou! Sou novo aqui no fórum, mas me sinto muito bem vindo! O codigo ficou assim: If contador = 0 Then totalregistro = Worksheets("plan1").UsedRange.Rows.Count + 1 With Worksheets("Plan1") .Cells(totalregistro, 1) = Caluno .Cells(totalregistro, 2) = Ccurso .Cells(totalregistro, 3) = Cperiodo Range("F" & totalregistro).Select ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",IF(RC[-1]="""","""",((RC[-2]+RC[-1])/2)))" Range("G" & totalregistro).Select ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",""Indefinido"",IF(RC[-1]>=6,""Aprovado"",""Reprovado""))" MsgBox "Aluno cadastrado com sucesso" Cnome = "" End With Else End If Maravilha! Segui seu conselho e usei o gravador de macro com referencia relativa e voilá! Está tudo funcionando muito bem!

Estou com um probleminha... Criei uma macro no excel para fazer cadastro de alunos em uma planilha através de um formulário. Em determinado momento na macro, hora de fazer os registros dos dados do aluno, a macro gera e grava uma formula na nas celulas das colunas F e G, porém as formulas não executam sozinhas, só executam manualmente na base do F2+ENTER. Ao invéz de mostrar o resultado, a celula mostra a formula. Já tentei de tudo.. Já verifiquei se as celulas não estão formatadas como texto, já olhei em opções de cálculo e está tudo automático. Não sei mais o que fazer... Trecho da macro que faz o registro: If contador = 0 Then totalregistro = Worksheets("plan1").UsedRange.Rows.Count + 1 TR = totalregistro ND = Chr(34) & "" & Chr(34) Cformula = "=SE(D" + TR + "=" + ND + ";" + ND + ";SE(E" + TR + "=" + ND + ";" + ND + ";((D" + TR + "+E" + TR + ")/2)))" Cop = Cformula With Worksheets("Plan1") .Cells(totalregistro, 1) = Caluno .Cells(totalregistro, 2) = Ccurso .Cells(totalregistro, 3) = Cperiodo .Cells(totalregistro, 6) = Cop Cformula = "=SE(F" + TR + "=" + ND + ";" + Chr(34) + "Indefinido" + Chr(34) + ";SE(F" + TR + ">6;" + Chr(34) + "Aprovado" + Chr(34) + ";" + Chr(34) + "Reprovado" + Chr(34) + "))" Cop = Cformula .Cells(totalregistro, 7) = Cop MsgBox "Aluno cadastrado com sucesso" Cnome = "" End With Else End If As linhas que atribuem valor á "Cformula" é onde é gerada as formulas das colunas F e G. As formulas ficam da seguinte maneira: Coluna F: =SE(D2="";"";SE(E2="";"";((D2+E2)/2))) (Linha 2 como exemplo) Coluna G: =SE(F2="";"Indefinido";SE(F2>6;"Aprovado";"Reprovado")) (Linha 2 como exemplo também) Não há nada de errado com as formulas, unico problema é que elas simplesmente não mostram o resultado automáticamente. Segue em anexo uma imagem da planilha como fica.. a linha 2 foi a que eu dei F2+ENTER manualmente, e a linha 3 é como fica antes disso. Obrigado!!