Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, extrai para determinada região (intervalo de células) os números das linhas e colunas, para onde os dados são extraidos, ou seja (5 linhas e 9 colunas)


Sub Celulas_Exemplo()
For i = 1 To 5
For j = 1 To 11
Cells(i, j) = "Linha " & i & " Coluna " & j
Next j
Next i
' Range("A1:k10").Select
' Selection.Columns.AutoFit
End Sub

Sub Limpar()
Range("A1:K5").ClearContents
Range("B1") = "Inserir números das colunas e linhas - <<SaberExcel - site das macros>>"
End Sub

Sub ver_código()
SendKeys ("%{F11}")
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Baixe o exemplo de planilha contendo as macros acima
vba linhas macro insere determinado range letra e num linha (29.46 KB 2010-09-19 21:16:50)

Esta macro do Aplicativo Microsoft Excel VBA, Insere um marcador na linha do cursor realçando linha e coluna ativa um marcador para realçar a linha e a coluna ativa inserindo uma linha colorida na linha e coluna ativas, formata seleção no cursor linhas e colunas este evento insere um shape e navega junto com o cursor marcando selecionando as linhas e colunas ativadas pelo cursor retângulo. Observe que usamos o Evento Selection_Change da Folha de código da planilha.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'*** Definição de variáveis ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left

'Testa se os retangulos shapes são existentes.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete

'Ajuste dos shapes retangulos

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With

ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"

With ActiveSheet.Shapes("RectangleH")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With
End Sub


Aprenda Microsoft Excel VBA --(Saberexcel)--

Saberexcel_site_das_macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna a linha e coluna da célula selecionada, observe que aqui usamos o evento Selection Change, isso é, o evento ocorre ao selecionar determinada célula.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vColuna As String, vLinha As Long, i As Integer
vColuna = Replace(Target.Address, "$", "") 'guarda o simbolo $

For i = 0 To 9
vColuna = Replace(vColuna, i, "") ' guarda os números
Next i

vLinha = Target.Row
MsgBox ("Você Selecionou :" & Chr(13) & "Coluna.....: " & vColuna & Chr(13) & "Linha.......: " & _
vLinha & Chr(13) & "Celula......: " & Target.Address & Chr(13) & "Valor......: " & Target.Value), _
vbInformation, "Saberexcel - site das macros"
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel




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

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
Essas funções do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem na folha de planilha na celula ativa a letra da coluna correspondente, isto é, onde a função foi inserida. Para facilitar o teste inserí umas macros auxliares para facilitar no teste.
Espero que isso possam ajudá-los em alguma coisa. Fiquem com Deus. E_Marcondes

Option Explicit

Function Coluna_Letra$(Optional ByVal vColuna%)
Dim Target As Range
Set Target = Application.Caller
If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna)
Coluna_Letra$ = Target.Address(True, False)
Coluna_Letra$ = Left(Coluna_Letra, InStr(1, Coluna_Letra, "$") - 1)
End Function

Function MostraColuna$(Optional ByVal vColuna%)
Dim Target As Range
Set Target = Application.Caller
If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna)
MostraColuna = Target.Address(True, False)
MostraColuna = Left(MostraColuna, InStr(1, MostraColuna, "$") - 1)
End Function

'macros abaixo são para auxiliar no teste do usuario desenvolvedor
Sub Inserindo_Funcoes_teste()
[C1].Value = "Observe, macro desloca 1 linha acima, portanto se inserir na linha 1 gera erro"
ActiveCell.Offset(-1, 0).Value = "Inserindo funções para teste na célula Ativa"
ActiveCell.FormulaR1C1 = "=MostraColuna()"
ActiveCell.Offset(0, 1).FormulaR1C1 = "'=MostraColuna()"

ActiveCell.Offset(2, 1).Select

ActiveCell.FormulaR1C1 = "=Coluna_Letra()"
ActiveCell.Offset(0, 1).FormulaR1C1 = "'=Coluna_Letra()"

ActiveCell.Offset(1, 0).Select
Range("G20").Select
End Sub

Sub limpar()
Cells.ClearContents
End Sub

Sub visualizar_macro()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macros no módulo VBE", vbYesNo + vbInformation, "Saberexcel - site das macros")
If resposta = vbYes Then
Application.Goto reference:="Coluna_Letra"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub

Sub oc()
'observe que aqui eu usei o nome da folha de código da folha de planilha (se mudar o nome da planilha nao gera erro - Saber1)
Saber1.Shapes("sb").Visible = False
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel