Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma ordem ascendentes em valores na coluna(A) na folha de planilha, para facilitar o teste, inserí uma macro para copiar e colar dados de um determinado intervalo para uma célula especifica como mostra no segundo código(Macro). Observe que nomeei os dois intervalos de células para copiar os dados e facilitar na realização dos testes. Fiquem com Deus, Expedito Marcondes.


Sub ordenar_coluna_a()
Saber1.Range("A1:A65000").Sort Saber1.Range("A2"), xlAscending
MsgBox ("Ordem ascendente inserida coluna[A]"), vbInformation, "Saberexcel - o site das macros"
End Sub

'copiando e colando com muita simplicidade:
'Ao invez de várias linhas de códigos que geralmente usam, aqui fiz algo com bastante simplicidade e muito funcional,
'veja bem, nomeei um intervalo de células na folha de planilha com o nome de 'x' Range(L1:L25) , e nomeei a célula para receber(colar)
'como [y] Range(A1) . se quiser visualizar melhor, baixe o exemplo de planilha no final da página. Espero que o exemplo possam ajudá-los. Fiquem com Deus.
Expedito Marcondes

Sub copiar_simples()
[x].Copy [y]
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel







Publicidade
Compre com segurança, garantia e ótimos preços

SaberExcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem ordem crescente e decrescente de determinados números na folha de planiha, também usamos a propriedade offset(descloc) para inserir a ordem inversa. Baixe o exemplo de planiha no final da página. Fique com Deus, Expedito Marcondes


Sub Ordem_Crescente()
limpar_teste
For i = 0 To 7
[A1].Offset(0, i) = "=2^" & i
Next i
End Sub

Sub Ordem_decrescente()
limpar_teste
For i = 7 To 0 Step -1
[A1].Offset(0, 7 - i) = "=2^" & i
Next i
End Sub

' **************************
Sub Ordem_decrescente_I()
For i = 7 To 0 Step -1
[H3].Offset(0, -i) = "=2^" & i
Next i
End Sub

Sub Ordem_decrescente_II()
limpar_teste
For i = 0 To 7
[A3].Offset(0, i) = "=2^" & i
Next i
End Sub

Sub limpar_teste()
[A3:H3].ClearContents
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - o site de quem precisa aprender macros
Essas macros do Aplicativo Microsoft Excel VBA, inverte a ordem de números de uma determinada coluna, observe que não é ordem descendente, é uma inversão de ordem, como pode ver na imagem abaixo, a posição dos números na ordem inversa. baixe a planilha exemplo no final da página.


'................'
Option Explicit
Option Base 1

Sub Inverter_Valores_Celulas()
Dim WkbBook As Workbook
Dim wsPlan As Worksheet
Dim rnDados As Range
Dim VlrDados As Variant, VlrTemp As Variant
Dim i As Long
On Error Resume Next
Set WkbBook = ActiveWorkbook
Set wsPlan = WkbBook.Worksheets("Inverter valores celula")

With wsPlan
Set rnDados = .Range(.Range("A2"), .Range("A65536").End(xlUp))
End With

VlrDados = rnDados.Value

For i = 1 To (UBound(VlrDados, 1) / 2)
VlrTemp = VlrDados(i, 1)
'Aqui para posições 1 a 9 na matriz» do último 9 valores a
'partir da matriz original.
VlrDados(i, 1) = VlrDados(UBound(VlrDados) - i + 1, 1) * 1
'Aqui para posições 10 a 18 na matriz» do 9 valores a
'partir da matriz original.
VlrDados(UBound(VlrDados) - i + 1, 1) = VlrTemp * 1

Next i

With wsPlan
.Range("B2:B" & UBound(VlrDados, 1) + 1).Value = VlrDados
End With

End Sub

Sub limpar()
Range("B2:B19").ClearContents
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - Saberexcel

Publicidade
Compre com garantia, segurança e ótimos preços nas lojas submarino.