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

If Cells(vLin, "e") = Cells(2, "f") Then '//====' fazer a comparação coluna(e) e celula(f2)
Cells(vLin, "e").Offset(0, 1).Resize(1, 12).Copy [h2] '//====' selecionar area para copiar
Cells(vLin, "e").Offset(0, -1).Value = "u" '// para inserir o sinal na coluna(d)
Cells(vLin, "e").Offset(0, -1).Font.Name = "Wingdings 3" '//===='inserir o sinal na coluna(D)
z = Cells(vLin, "e")
Exit For '//======='ao encontar e copiar para celula(h2) saí do loop
End If
Next vLin

MsgBox "Linha [ " & vLin & " ] Letra [ " & UCase(z) & " ] filtrados com sucesso!" & vbCrLf & _
"- - - - - - - - - - - - - - - - - - - - - - -" & vbCrLf & _
"Escola Saberexcel VBA Estudos® " & vbCrLf & _
"Treinamentos com Macros, Fórmulase Funções ", vbInformation, "Escola Saberexcel VBA Estudos®"
[f1].Select
End Sub

'//======= colorir sétimo caracter da colun(f) em vermelho
Sub sbx_colorir_setimo_caracter_vermelho()
Dim i As Long
For Col = 6 To 19
For i = 1 To Cells(Rows.Count, "f").End(xlUp).Row
Cells(i, Col).Characters(Start:=7, Length:=1).Font.ColorIndex = 3
Next i
Next Col
Saber1.Shapes("ver").Visible = False
Saber1.Shapes("pre").Visible = True
End Sub

'//======= colorir sétimo caracter da colun(f) em vermelho
Sub sbx_colorir_setimo_caracter_preto()
Dim i As Long
For Col = 6 To 19
For i = 1 To Cells(Rows.Count, "f").End(xlUp).Row
Cells(i, Col).Characters(Start:=7, Length:=1).Font.ColorIndex = 1
Next i
Next Col
Saber1.Shapes("ver").Visible = True
Saber1.Shapes("pre").Visible = False
End Sub

Sub sbx_selecionar_f2()
[f2].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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





 <<< Registre-se em nosso Site >>>

Escola Saberexcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções

Esse Planilha faz parte das planilhas treinamento:
LOCALIZAR, IDENTIFICAR, DESLOCAR DADOS - PLANILHAS CELULAS LINHAS E COLUNAS

o objetivo desse exemplo é localizar e identificar a primeira e ultima linha da coluna(G) identificar
em seguida, selecionar a mesma área de linha na coluna[c]; e colorí-la em amarelo. Observe que ao executar o Macro, o código "Clearformats' retira a formatação das células, para facilitar a identificação do resultado teste com o macro. a medida que for expandindo a digitação na coluna(G), também irá afetar a coluna(C). (----->) - se colore o intervalo de células em amarelo, isso quer dizer, que voce pode, copiar, negritar, sublinhar, recortar, deletar, etc ..... espero que o exemplo possa lhe ser útil. Fique com Deus.

(*) - não deixe de ver nosso trabalho:
120 - Planilhas de Loops (Excelente planilhas exemplos com todas instruções loops)
PLANILHAS - trabalhando com deslocamento de dados em Células, linhas e colunas.

' - - - - - - - - - - - - - - - - - - - - - - - - - -
Const s = vbInformation
Const b = "Escola Saberexcel VBA Estudos®"
' - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub selecionar_numero_linhas_correspondentes_colC()
Dim x As Range
[a].ClearFormats

UL = Range("G650000").End(xlUp).Row '.Value 'definir a UL(UltimaLinha)
PL = Range("G2").End(xlUp).Row '.Value 'definir a PL(Primeira Linha)

MsgBox "UL(Ultima Linha): [ " & UL & " ] - PL(Primeira Linha) [ " & PL & " ]", s, b

'Range("c" & UL & ":" & "c" & PL).Select 'seleciona também

Set x = Range("c" & UL & ":" & "c" & PL) '.Select
x.Select
x.Interior.ColorIndex = 36
[h1].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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

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

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