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)

Saberexcel - o site das macros


Esta macro deleta valores e linhas onde determinados valores estão inseridos neste caso a palavra "Saber", observe que aqui também ensino como voce poderá copiar dados de uma outra planilha ou da mesma folha de planilha de forma bem simples, alias todo meu trabalho será voltado para tentar fazer um tipo de programação bem simples e de fácil entendimento.
veja as Planilhas exemplos COMO FAZER - Programação MS Excel VBA - Saberexcel.

Option Explicit

Sub Deletar_com_AutoFiltro()
Dim vDeletaValor As String
Dim vRange As Range
Dim vModoCalcular As Long

With Application
vModoCalcular = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

'preencha o valor que voce deseja excluir
'Variavel vDeletaValor = "<>'Saber" 'inserir diferente<> deleta todas as palavras diferentes "Saber"
vDeletaValor = "Saber"

'Use a folha de planilha com o nome que desejar neste caso é direcionado para planilha ativa
With ActiveSheet

'primeiramente deverá remover o autofiltro
.AutoFilterMode = False

'aplicando o autofiltro e critérios para coluna(A)
.Range("A1:A" & .Rows.Count).AutoFilter Field:=1, Criteria1:=vDeletaValor

With .AutoFilter.Range
On Error Resume Next
Set vRange = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not vRange Is Nothing Then vRange.EntireRow.Delete
End With

'Removendo autofiltro novamente
.AutoFilterMode = False
End With

With Application
.ScreenUpdating = True
.Calculation = vModoCalcular
End With
[D6].Value = "Todas as linhas com as palavras [Saber] foram deletas......"
End Sub

Essa macro é um jeito simples de copiar alguma que ensino nas planilhas dos módulos como fazer - Programação MS Excel VBA
observe como fica bem mais simples e funciona com uma performance muito maior.

Sub copiar_teste()
Saber2.[A1:A105].Copy Saber1.[A1] 'busca os dados pelo nome da folha de código.
[D6].Value = "Todos os dados foram copiados para o teste!"
End Sub





Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel

Saberexcel - o site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna a linha e coluna da célula ativa selecionada, retornando uma mensagem.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vColuna As String
Dim vIncrementa As Integer
a = ActiveCell.Column
If ActiveCell.Value <> "" Then

Do
vIncrementa = a Mod 26
If vIncrementa = 0 Then vIncrementa = 26
vColuna = Chr(64 + vIncrementa) & vColuna
a = a \ 26

Loop While a > 0

MsgBox ("Você selecionou!" & Chr(13) & "Coluna ......: [" & vColuna & " ]" & _
Chr(13) & "Linha..........: [ " & ActiveCell.Row & " ]" & Chr(13) & _
"Valor..........: [ " & ActiveCell.Value) & " ]" & _
Chr(13) & "Endereço....: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel - site das macros"
End If

End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA





Publicidade
Compre com segurança, garantia e bons preços nas lojas SubMarino

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

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)--