excel 07

[anos80]

boas tardes!
Eu só a pouco tempo é que entrei no mundo da programação por isso será que alguém me pode ajudar ?

Objectivo:

Construir uma aplicação que ordene por ordem crescente os valores introduzidos nas células A1,A2 e A3. O
resultado dever ser colocado nas células B1, B2 e B3. Este programa deve ser executado através de um botão colocado na Folha de Cálculo.​

 

[dreamerboy]

Private Sub CommandButton1_Click()
Range("A1:A3").Select
Selection.Copy
Range("B1:B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Macro FTW

 

[anos80]

Obrigado , funciona lindamente!

 

[anos80]

Atribuição de nota

Boas,
tenho outro programa para fazer e estou com uma duvida na linha de codigo!

Objectivo:

Construir uma aplicação que em função da nota introduzida num objecto tipo caixa de texto, identifique o estado do aluno na célula B2, utilizando estruturas de decisão Select Case​

Private Sub TextBox1_Change()
Dim nota As Single
Dim resultado As String
Select Case classificação
Case nota = 0
 resultado = "faltou"
Case nota < 8
 resultado = "reprovou"
Case nota > 8 And nota < 9.5
 resultado = "oral"
Case nota >= 9.5 And nota < 20
 resultado = "apovado"
Case Else
 resultado = "erro"
End Select
Folha1.Cells(2, 2) = resultado
End Sub