Adicionado em: | 01/01/2011 |
Modificado em: | 05/03/2011 |
Tamanho: | Vazio |
Downloads: | 611 |
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
Adicionado em: | 31/01/2011 |
Modificado em: | 31/01/2011 |
Tamanho: | Vazio |
Downloads: | 707 |
Saberexcel - O site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), deletam linhas baseada em critérios, neste caso
deletará linhas baseadas nas células em branco que existirem nas colunas: (F), (G), (H)
'simplificando códigos de programação ms excel vba.
Sub Deletar_Linhas_Celulas_Branco()
MsgBox ("Linhas onde houver células em branco na coluna(F:G:H) serão DELETADAS!!!!")
vUltimaLinha = Cells.SpecialCells(xlLastCell).Row
'montando o loop para verificar nas células vazias nas colunas específicas
'veja que a simetria e orgranização do código facilita o entendimento, obdeçam esse critério.
'
For i = vUltimaLinha To 1 Step -1
'-----------'
'Observem que não exisite o End If (fechando a estrutura if) - porque há uma condição verdadeira na frente do Then
If Cells(i, "F").Value = "" Then Rows(i).Delete
If Cells(i, "G").Value = "" Then Rows(i).Delete
If Cells(i, "H").Value = "" Then Rows(i).Delete
'-----------'
Next i
End Sub
Simplifiquei a estrutura da macro copiar e colar.
Os códigos copiam de uma planilha e cola em outra planilha na célula (A1)
você poderá nomear um range dinâmico para isso, cada vez que for inserido dados,
o range dinâmico expande com tamanho dos dados digitados.
Esse tipo de programação estarei explanando nos - Modulos Como Fazer - Saberexcel
'veja que uso o nome de código da folha de planilha(Saber1,Saber2), porque?,
'- Se o usuário mudar o nome da folha de planilha, não gera erro... certo?
Sub copiar_colar_teste()
Saber2.[A1:Q25].Copy Saber1.[A1]
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel
Adicionado em: | 06/02/2011 |
Modificado em: | 06/02/2011 |
Tamanho: | Vazio |
Downloads: | 1544 |
Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere linhas vazias abaixo veriicando valores da célula ativa,
observe que o Loop entra em determinada célula, memoriza o valor, insere o valor em linhas vazias, por exemplo se o valor da célula
ativa for 5 o macro inserirá cinco linhas e assim por diante. Baixe o exemplo de planilha no final da página.
'R.: Silvia, é possível sim, voce que o macro insira um determinado número
'de linhas em branco baseada no valor da célula ativa.
'1, insere uma linha abaixo, 2 duas linhas, 3 tres linhas, 7 sete linhas....
'A macro que voce deverá usar é assim veja.
Sub Inserir_numero_linhas_valor_celula_anterior()
Dim I As Double, J As Integer
'[:] na frente do código significa - como se fosse linha debaixo (próxima linha).
If [a].Value = "" Then MsgBox "copie os números para teste botão copiar...", vbInformation, "Saberexcel": Exit Sub
For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
For J = 1 To Range("A" & I)
Rows(I + 1).Insert shift:=xlDown
Next J
Next I
[C4].Value = "Observe que foi inserido o número de Linhas vazias correspondente ao valor que está na célula"
End Sub
Sub copiar_teste()
limpar_teste
[b].Copy [a]
[C4].Value = ""
End Sub
Sub limpar_teste()
[g,C4].Clear
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Adicionado em: | 09/02/2011 |
Modificado em: | 09/02/2011 |
Tamanho: | Vazio |
Downloads: | 824 |
Saberexcel - site das macros
Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application) com auxilio de uma inputbox, ocultam linhas em determinada folha de planilha, a primeira macro voce poder digitar os números separados por vírgulas na inputbox, a segunda macro que também contém uma inputbox com argumento type=8, que permite selecionar as linhas na região que desejar ocultar determinadas linhas na folha de planilha.
Prezados senhores,
Será que seria possível uma macro que oculta linhas pre-definidas,
explico: preciso de uma macro que ocultam linhas pre-definidas, através de uma inputbox,ou mesmo a própria célula. É possível??, se puder me ajudar agradeço.
Rubens - fficop
R - Sim é possível veja, vou te enviar dois exemplos você poderá ver qual lhe
servirá melhor.
Este exemplo de macro voce digita na entrada de dados(Inputbox) o número das linhas
que precisa que ocultem, números separados por vírgulas,
Ex. 5,6,7,8,9,29,34,85, etc..
Espero que lhe seja útil, fique com Deus, Boa sorte.
Expedito Marcondes
Sub Ocultar_linhas_Inputbox()
Dim sB$, Ex, i%
Saber2.Select
linhas_ver
sB = InputBox("Entre com as linhas que deseja ocultar, separe-as por vírgula")
If sB = "" Then Exit Sub
Ex = Split(sB, ",")
For i = 0 To UBound(Ex)
On Error Resume Next 'tratando um possível erro!
Rows(Ex(i)).Hidden = True
On Error GoTo 0
Next
End Sub
'com essa macro usando uma entrada de dados inputbox, voce poderá ocultar linhas
'selecionando diretamente nas células. Espero que lhes seja útil.
Sub Ocultar_linhas_inputbox_I()
Dim c As Variant
Saber2.Select
linhas_ver
On Error Resume Next
Set c = Application.InputBox("Selecione o intervalo de células - para ocultar linhas !!!", "Saberexcel", , Type:=8)
If Err.Number = 0 Then c.EntireRow.Hidden = True
On Error GoTo 0
End Sub
Sub linhas_ver()
Cells.RowHeight = 14.25
Range("A1").Select
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application) , sozinho, praticando com os produtos didáticos SaberExcel
Adicionado em: | 05/03/2011 |
Modificado em: | 05/03/2011 |
Tamanho: | Vazio |
Downloads: | 1017 |
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
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
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA