Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna a letra da coluna, com auxílio de um entrada de dados InputBox,
quando usuário digitar o número da coluna, retornará a letra. Observe que atendo ao Pedido da Melina, usei o mesmo código no Evento_Change da Folha de Planilha ao 'digitar', na célula(E15), o procedimento da saida de dados para célula(G15)

Sub Coluna_Letra_Numero()
Dim vNumColuna As Integer, iValor As Integer, zSB As Integer
On Error Resume Next ' se nao digitar nada ou numero nao existente
vNumColuna = InputBox("Digite o valor da letra da coluna desejada", "Saberexcel - site das macros", "155")
'vNumColuna = ActiveCell.Column

If vNumColuna <= 26 Then
MsgBox Chr(vNumColuna + 64), vbInformation, "Saberexcel - site das macros"
Else

iValor = Application.RoundDown(vNumColuna / 26, 0)

If iValor = vNumColuna / 26 Then iValor = iValor - 1
zSB = (vNumColuna - (26 * iValor)) + 64
MsgBox "Coluna [ " & vNumColuna & " ] é a coluna [ " & Chr(iValor + 64) & Chr(zSB) & " ]", vbInformation, "Saberexcel - site das macros"
End If

End Sub

 

---

'USANDO O MESMO CÓDIGO NO EVENTO CHANGE - E DANDO SAIDA PARA UMA CÉLULA(G15).
Observe que usei o mesmo código para retornar os mesmos valores quando determinado valor for digitado na célula(E15).
veja que a linha de código: If Not Intersect(Target, Range("E15")) Is Nothing Then, rodará o procedimento se a condição for verdadeira,
isto é, se a célula ativa for a célula(E15), senão(Else) sai do procedimento(Exit Sub)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNumColuna As Integer, iValor As Integer, zSB As Integer
On Error Resume Next ' se nao digitar nada ou numero nao existente

If Not Intersect(Target, Range("E15")) Is Nothing Then
vNumColuna = Range("E15").Value 'InputBox("Digite o valor da letra da coluna desejada")

'vNumColuna = ActiveCell.Column
' se a letra da coluna correspondente ao número for igual ou menor que 26
If vNumColuna <= 26 Then
MsgBox Chr(vNumColuna + 64)
[G15].Value = "Coluna [ " & vNumColuna & " ] é a coluna..: [ " & Chr(vNumColuna + 64) & " ]"
Else

iValor = Application.RoundDown(vNumColuna / 26, 0)

If iValor = vNumColuna / 26 Then iValor = iValor - 1
zSB = (vNumColuna - (26 * iValor)) + 64
[G15].Value = "Coluna [ " & vNumColuna & " ] é a coluna [ " & Chr(iValor + 64) & Chr(zSB) & " ]"
End If
Else
Exit Sub
End If

End Sub


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

Saberexcel - site dos que precisam aprender Microsoft Excel VBA(Visual Basic Application)

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), tem por finalidade inserir o total de lançamentos em determinada área de folha de planilha, observe que o exemplo poderá ajudá-lo muito na conclusão de um relatório.
Usando a WorksheetFunction ContA (que corresponde a Funçao do Excel Cont.Valores()), o macros com variáveis que verificam o número de linhas e colunas usadas, vão inserir o total dos lançamentos efetuados na folha folha de planilha.
Não deixe de ver as 340 Planilhas Exemplos de worksheetFunctions, desenvolví uma para cada Função do Excel, e onde foi possível inserir a worksheetFunction para ilustrar o exemplo foi feito.
Sobre as 340 Planilhas worksheetfunction funções de planilhas retornam valores vba


Sub Contando_lancamentos()
Dim vLinhas
vLinhas = Range("A65000").End(xlUp).Row + 2 'observe que será lançado após tres linhas abaixo
Range("A" & vLinhas) = "Total Lançamentos efetuados...:'"
Range("G" & vLinhas) = Application.WorksheetFunction.CountA(Range("A1:A" & vLinhas)) - 1
Range("H" & vLinhas) = "Lançamentos'"
End Sub

Caso você queira inserir a fórmula conta.valores na célula J28,
veja que usei o gravador de macro para capturar o código da fórmula e inserí aqui,
Sobre Gravador de macros é o objeto de estudo de nosso Caderno_1, do Curso Completo Microsoft Excel VBA
Domime bem esse assunto do Gravador de Macros. ajuda muito aos iniciantes. Fiquem com Deus - Expedito Marcondes

Sub Inserindo_formula_contar()
[J28].FormulaR1C1 = "=COUNTA(R[-26]C[-9]:R[22]C[-9])"
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

Esse macro do aplicativo Microsoft Excel VBA(visual Basic Application), localiza a última linha e próxima em branco em colunas representadas por meses, após a seleção do mês desejado na célula(B1), observem que usei o Evento_Change do Objeto Worksheet(Folha de Planilha), que é sensibilzado ao selecionar o mês. Espero que o exemplo sirva. Fique com Deus, Expedito Marcondes

Sub procurar_palavra()
[B1].Select
Cells.Find(What:=Range("B1").Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveCell.End(xlDown).Offset(1, 0).Select
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

Esse macro do Aplicativo Microsoft Excel VBA, procura por determinada palavra em determinada coluna e a deleta, esses critérios são coletados a partir uma entrada de dados Inpubtox. Espero que o exemplo possam lhes ser útil, Fique com Deus,
Expedito Marcondes.

Sub sbx_deletar_linhas_baseado_criterios()

Dim vRange As Range, DeletaRange As Range, vColuna As Range
Dim vProcuraTexto As String, vProcuraColuna As String, vColunaAtiva As String
Dim PrimeiroEndereco As String, CheckaNulo As String
Dim SCA

[C1].Select ' Para selecionar a coluna(C),
'Extract active column as text

SCA = Split(ActiveCell.EntireColumn.Address(, False), ":")
vColunaAtiva = SCA(0)

vProcuraColuna = InputBox("Digite a coluna desejada ou cancela para sair", "Linha código para deletar", vColunaAtiva)

On Error Resume Next
Set vRange = Columns(vProcuraColuna)
On Error GoTo 0

'Se um intervalo inválido for inserido em seguida, sair
If vRange Is Nothing Then Exit Sub

vProcuraTexto = InputBox("Entre com o texto procurado", "Deleta código linha", [E1].Value) 'ActiveCell.Value)
If vProcuraTexto = "" Then
CheckaNulo = InputBox("Você realmente deseja excluir linhas com células vazias?" & vbNewLine & vbNewLine & _
"Sim quero, caso contrário sairá código", "Cuidado", "Não")
If CheckaNulo <> "Sim" Then Exit Sub
End If

Application.ScreenUpdating = False

'para coincidir com a seqüência de texto TODO
Set vColuna = vRange.Find(What:=vProcuraTexto, After:=vRange.Cells(1), LookIn:=xlValues, Lookat:=xlWhole)
'para corresponder a uma cadeia de texto PARCIAL use esta linha
'Set vColuna = vRange.Find(What:=vProcuraTexto, After:=vRange.Cells(1), LookIn:=xlValues, Lookat:=xlpart)
'para coincidir com o caso e de uma cadeia de texto TODO
'Set vColuna = vRange.Find(What:=vProcuraTexto, After:=vRange.Cells(1), LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=True)

If Not vColuna Is Nothing Then
Set DeletaRange = vColuna
PrimeiroEndereco = vColuna.Address
Do
Set vColuna = vRange.FindNext(vColuna)
Set DeletaRange = Union(DeletaRange, vColuna)
Loop While PrimeiroEndereco <> vColuna.Address
'nao deixe de ver nosso trabalho com 100 planilhas exemplos Loops (com todas as intruções Do/While/Loop/until/For Next/)
End If

'Se houver condição verdadeira exclua as linhas
sbx = MsgBox("As Linhas contendo a palavra [ " & [E1] & " ] serão deletadas!!!", vbYesNo + vbCritical, "CUIDADO - AÇÃO IRREVERSÍVEL!!")
If sbx = 6 Then
If Not DeletaRange Is Nothing Then DeletaRange.EntireRow.Delete
End If
'caso queira retirar a mensagem vbyesno.
' If Not DeletaRange Is Nothing Then DeletaRange.EntireRow.Delete

Application.ScreenUpdating = True

End Sub

Sub limpar_teste()
[a].Copy [b]
[b].Value = "LISTA"
MsgBox "dados copiados para teste com sucesso!!!", vbInformation, "Saberexcel - site das macros"
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Escola Saberexcel VBA Estudos e Treinamentos, Macros Fórmulas e Funções

Esse macro do aplicativo Microsoft Excel VBA(Visual Basic Application), deleta todas as linhas vazias no intervalo de células usados na coluna(A).

Sub deletar_linhas_em_branco()
On Error GoTo err:
Range(Range("A65000").End(xlUp), Range("A2")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
[C2].Value = "VAZIAS DELETADAS"
Exit Sub

err: MsgBox ("não existe linhas vazias na área usada"), vbInformation, "Saberexcel - o site das macros"
[C2].Value = "VAZIAS INEXISTENTES" 'caso o usuario insista em deletar linhas vazias sem existir.
End Sub

Sub copiar_teste()
[a].Copy [b] 'copiando área de células(a) para célula(renomeada como(b))
[C2].Value = "deletar vazias"
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


Excel planilha vba deletar linhas vazias