SaberExcel - o site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, localiza a linha da última célula usada, e retrona uma msgbox,
na coluna A a partir da celula A1.

Excel VBA Estudos® >> www.saberexcel.com >> Escola de Informática



Sub Ultima_linha_celula()
Dim vlCelBusca As Long
On Error Resume Next
'Essas linhas comentadas abaixo você poderá usar como um ["Verfica Inconsistência"] se tal célula estiver vazia msgbox e sai da macro.
'If Sheets("Plan2").Cells(1, 1) = "" Then
' MsgBox ("É so digitar algo na Coluna A, Blz!"), vbInformation, "Saberexcel.com"
' Encontrar a última linha, que forneceu um texto ou valor.
' faz a busca aqui...
' Exit Sub
'Else
vlCelBusca = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox "A Linha ULTIMA CELULA usada esta na linha é : " & vlCelBusca, vbInformation, "Saberexcel.com"
Sheets("Plan2").Cells(2, 3) = "A Linha ULTIMA CELULA usada esta na linha : - " & vlCelBusca
'End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel

Saberexcel - o site das macros
Macros do Aplicativo Microsoft Excel VBA, referenciando a células de vários modos, e didáticamente vamos fazer umas operações matemáticas com os alguns valores. No exemplo de planilha usei formatação condicional também com o sentido didático, para ajudar a quem precisa,
que foi objeto de busca em nosso site. Baixe o exemplo de planilha no final desta página.
Espero que o exemplo possa ajudá-los. Fique com Deus, Boa sorte.

Sub Exercicio_I()
exercicio_1 'usamos para ocultar o shapes na folha de planilha
x = Workbooks.Item(1).Worksheets.Item("Plan1").Range("D6")
Z = Workbooks.Item(1).Worksheets.Item("Plan1").Range("H6")
y = x * Z
Workbooks.Item(1).Worksheets.Item("Plan1").Range("F1") = y / 2
Workbooks.Item(1).Worksheets.Item("Plan1").Range("D9") = "Multiplicando celula(D6) pela Celula(H6) dividindo por 2, retornando resultado na célula(F1)"
End Sub

Sub Exercicio_II()
exercicio_2 'usamos para ocultar o shapes na folha de planilha
x = Range("D6")
Z = Range("H6")
y = x * Z
Range("F1") = y
Range("D9").Value = "Multiplicando celula(D6) pela Celula(H6) retornando resultado na célula(F1)"
End Sub

Sub Exercicio_III()
exercicio_3 'usamos para ocultar o shapes na folha de planilha
x = [D6]
Z = [H6]
A = [A1]
y = x * Z + A
[F1] = y
[D9].Value = "Multiplica a célula(D6) pela Celula(H6) e soma com o valor da célula(A1)"
End Sub

'nomeando as células e calculando valores a partir de váriaveis
Sub Exercicio_IV()
exercicio_4 ''usamos para ocultar o shapes na folha de planilha
x = [dado1] ' célula D6 nomeada como dados1
Z = [dado2] ' célula H6 nomeada como dados2
y = (x * Z) / 4 'multiplicando e dividindo por 4
[dado3] = y ' célula F1 nomeada como dados3
[D9].Value = "Multiplicando range nomeadas dados1 pela dados2 e dividindo por quatro"
End Sub

Sub Exercicio_V()
exercicio_5 'usamos para ocultar o shapes na folha de planilha
Cells(1, 1).Select 'referencia a célula(A1)

x = ActiveCell.Offset(5, 3).Value ' range.propriedade offset(desloc) para item D6
Z = ActiveCell.Offset(5, 7).Value ' range.propriedade offset(desloc) para item H6

ActiveCell.Offset(0, 5).Value = (x * Z) / 4 'range.propriedade offset(desloc) para item f1 resultado da multiplicação e divisao
[D9].Value = "Usando a range.propriedade OffSet(Desloc) para referenciar as celulas D6,H6,F1"
End Sub

Sub Oculta_Shapes()
For i = 1 To 60
On Error Resume Next
With ActiveSheet
.Shapes("txt" & i).Visible = False
End With
Next
[A1].Select
End Sub

Sub exercicio_1()
Oculta_Shapes
Saber1.Shapes("txt1").Visible = True
End Sub

Sub exercicio_2()
Oculta_Shapes
Saber1.Shapes("txt2").Visible = True
End Sub

Sub exercicio_3()
Oculta_Shapes
Saber1.Shapes("txt3").Visible = True
End Sub

Sub exercicio_4()
Oculta_Shapes
Saber1.Shapes("txt4").Visible = True
End Sub
Sub exercicio_5()
Oculta_Shapes
Saber1.Shapes("txt5").Visible = True
End Sub

Sub ver_macros_modulo_vbe()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macros no módulo VBE?", vbYesNo, "Saberexcel - site das macros")
If resposta = 6 Then '6 é igual a vbyes
Application.Goto reference:="Exercicio_I"
End If
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel




Publicidade:
Compre com garantia, segurança e ótimos preços nas lojas SubMarino