Adicionado em: | 18/11/2010 |
Modificado em: | 23/12/2010 |
Tamanho: | Vazio |
Downloads: | 573 |
Essa macro do Aplicativo Microsoft Excel VBA, insere dados em determinadas linhas e colunas, baseada em um número
da célula(C16). Exemplo se a célula(C16) contiver o número 11, a macro vai inserir
a palavra 'Saberexcel' na planilha(Plan2) na linha 11 e nas colunas(15,16,17)
Sub insere_dados()
Plan2.Select
Plan2.Range(Cells(Plan2.Range("C16").Value, 15), _
Cells(Plan2.Range("C16").Value, 17)).Value = "Saberexcel"
Plan1.Select
End Sub
Adicionado em: | 02/12/2010 |
Modificado em: | 02/12/2010 |
Tamanho: | Vazio |
Downloads: | 1092 |
Saberexcel - O site das Macros
Essas macros do Aplicativo Microsoft Excel VBA, encripta e desencripta uma determinada frase em uma célula da folha de planilha
Sub Encripta()
Range("e7").Select
On Error Resume Next
Dim c As Range, i As Long, sCode As String, sCode2 As String
Application.ScreenUpdating = False
For Each c In Selection
If LowerCase = True Then c = LCase(c)
For i = 1 To Len(c) + 2
If i Mod 2 = 0 Then
sCode = sCode & Mid(c, i, 1)
Else
sCode = sCode & Mid(c, i - 2, 1)
End If
Next
For i = Len(sCode) To 1 Step -1
sCode2 = sCode2 & Chr(Asc(Mid(sCode, i, 1)) + 1)
Next
c = sCode2
Next
Application.ScreenUpdating = True
For i = Len(sCode) To 1 Step -1
sCode2 = sCode2 & Chr(Asc(Mid(sCode, i, 1)) + 1)
Next
[f12].Select
End Sub
Sub Desencripta()
Range("e7").Select
On Error Resume Next
Dim c As Range, i As Long, sCode As String, sCode2 As String, sCode3 As String
Application.ScreenUpdating = False
For Each c In Selection
sCode = ""
sCode2 = ""
sCode3 = ""
For i = Len(c) To 1 Step -1
sCode = sCode & Mid(c, i, 1)
Next
For i = 1 To Len(sCode) + 2
If i Mod 2 = 0 Then
sCode2 = sCode2 & Mid(sCode, i, 1)
Else
sCode2 = sCode2 & Mid(sCode, i - 2, 1)
End If
Next
For i = 1 To Len(sCode2)
sCode3 = sCode3 & Chr(Asc(Mid(sCode2, i, 1)) - 1)
Next
c = sCode3
Next
Application.ScreenUpdating = True
sCode = ""
sCode2 = ""
sCode3 = ""
For i = Len(TextBoxCode) To 1 Step -1
sCode = sCode & Mid(TextBoxCode, i, 1)
Next
For i = 1 To Len(sCode) + 2
If i Mod 2 = 0 Then
sCode2 = sCode2 & Mid(sCode, i, 1)
Else
sCode2 = sCode2 & Mid(sCode, i - 2, 1)
End If
Next
For i = 1 To Len(sCode)
sCode3 = sCode3 & Chr(Asc(Mid(sCode2, i, 1)) - 1)
Next
' TextBoxCode = sCode3
[f12].Select
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Publicidade
Compre com segurança, garantia e ótimos preços nas lojas Submarino
Adicionado em: | 18/07/2011 |
Modificado em: | 18/07/2011 |
Tamanho: | Vazio |
Downloads: | 0 |
Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA, auxiliado por uma função retorna o TipoValor contido nas células, neste caso,
células vazias, se contém números, se contém datas ou Texto. observe que também inserimos a função como fórmula na célula, que retorna
também o valor contido na célula.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sbx = TipoValor(ActiveCell)
ActiveCell.Offset(0, 2).Value = sbx 'deslocando duas colunas a direita e inserindo o resultado armazenado pela variável (sbx)
End Sub
'Função que retorna o tipo de dados contidos na célula
Private Function TipoValor(Celula As Range) As String
If Celula.Value = "" Then
TipoValor = "Celula Vazia"
ElseIf IsNumeric(Celula.Value) Then
TipoValor = "Contém número"
ElseIf IsDate(Celula.Value) Then
TipoValor = "Contém Data"
Else
TipoValor = "Contém texto"
End If
End Function
Adicionado em: | 21/05/2011 |
Modificado em: | 21/05/2011 |
Tamanho: | Vazio |
Downloads: | 2698 |
Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), importa dados de todas as folhas de planiha em determinadas range, e as copiam para folha de planilha 'Auxiliar. Baixe o exemplo no final da página.
Esse exemplo de Planilha faz parte do MODULO COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA
COMO FAZER - relação dos módulos como fazer programação ms excel vba
Sub Transferir_dados_planilhas()
'determinando as variáveis a serem usadas
Dim vUltimaLinha As Integer 'ultima linha para transferencia
Dim vUltimaLinhaTransf As Integer 'ultima linha para busca de dados
Dim vNumeroLinhas As Byte 'numero de linhas que vamos transferir
Dim wksDestino As Worksheet, vTodasPlans As Worksheet 'variaveis planilhas
Dim vRegiao As Range, vRegiaoTransf As Range 'variaveis range
Set wksDestino = Worksheets("Auxiliar") 'Referenciando 'setando' a variavel planilha destino
wksDestino.Range("A2:D1000").ClearContents 'limpando a area da planilha destino
For Each vTodasPlans In Worksheets 'determinando variável para a coleção de planilhas
If vTodasPlans.Name <> wksDestino.Name Then 'se o nome da folha de planiha dados for diferente do _
do nome da folha de planilha destino
With vTodasPlans 'com essa planilha
vUltimaLinha = .Range("A65536").End(xlUp).Row 'determina a última linha não vazia
Set vRegiao = .Range("A2:D" & vUltimaLinha) 'determina a região para exportar dados
End With
vNumeroLinhas = vRegiao.Rows.Count 'determina o número de linhas da região
With wksDestino 'com a planilha destino
vUltimaLinhaTransf = .Range("A65536").End(xlUp).Row + 1 'determina última linha a partir daquela _
que foi nomeada na região (vRegiao)
Set vRegiaoTransf = .Range(.Cells(vUltimaLinhaTransf, 1), .Cells(vUltimaLinhaTransf - 1 + vNumeroLinhas, 4)) 'é determinado aqui _ o intervalo que vai receber os itens na Regiaotransf.
vRegiaoTransf.Value = vRegiao.Value
End With
End If
Next
MsgBox ("Dados importados com Sucesso!!"), vbInformation, "Saberexcel - site das macros"
End Sub
Sub limpar_dados()
Dim wksDestino As Worksheet
Set wksDestino = Worksheets("Auxiliar")
wksDestino.Range("A2:D1000").ClearContents
MsgBox ("Dados deletados com sucesso para teste!"), vbInformation, "Saberexcel o site das macros"
End Sub
Sub visualizar_macros_vbe()
Dim Resposta As String
Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
If Resposta = 6 Then ' 6 é igual a vbyes
Application.Goto reference:="Transferir_dados_planilhas"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub
Sub oc()
Saber1.Shapes("sb").Visible = False
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
Baixe o exemplo de planilha contendo os macros acima
Adicionado em: | 18/05/2011 |
Modificado em: | 18/05/2011 |
Tamanho: | Vazio |
Downloads: | 1181 |
Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA
Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), exporta determinados dados, resultado de busca em uma Lista Suspensa e auxílio da Função Procv(), por data em um banco de dados. Esse Macro localiza a última linha na planiha 'Auxiliar' e envia os resultados da busca por data para o final dos dados nesta folha de planilha. Resumindo:
Macros buscam dados na folha de planilha Banco de dados e Macro exporta dados para última linha usada na planilha Auxiliar.
Observe que usei a instrução Sendkeys, com intutíto didático, para abrir a caixa suspensa na célula B1, quando for selecionada, caso houver mais uma caixa suspensa(Validação de Dados) na Coluna(B), abriria automáticamente também. Acho bem bacana, e é útil.
Clique nas células da coluna (B) e observe o resultado, (não tem caixa suspensa, mas surge o efeito, faça esse exercício em outro local)
Fique com Deus. Expedito Marcondes
Este exemplo de Planilha faz parte dos Módulos
COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA - SABEREXCEL
Planilhas inteligentes e didáticas.
Veja o Precedimento com evento Selection_Change, que foi inserido na folha de código da folha de planilha.
que abre automáticamente todas as listas de validação existentes na coluna(B). há vários exemplos nos
Módulos Como Fazer programção com Validação de Dados (excelentes exemplos)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target = "" Then SendKeys "%{down}"
SendKeys "%{down}"
End If
End Sub
- Aqui estou mostrando dois exemplos de como fazer essa exportação, o segundo exemplo a folha de planilha teste está em outra
matéria, mas voce poderá fazer o exercício, reproduzindo a situação em outra planilhas teste.
Espero que tenham gostado do exemplo. Fique com Deus, Expedito Marcondes.
O exemplo de planilha ligado abaixo para download é referente à esse macro, o exemplo abaixo está em outra matéria nesta mesma categoria.
Sub Exportar_dados_I()
'Simplificando o código :
Range("B3:B12").Copy
Sheets("Auxiliar").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'a segunda parte é algo mais localizar última célula usada e insere novos dados abaixo.
Range("B1") = Range("B1") + 1
Range("B3:B12").Copy
Sheets("Auxiliar").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[C1].select
Application.SendKeys ("{ESC}") 'acionando a tecla esc para retirar a seleção (COPY)
End Sub
'----------------------------------'
'esse é um outro exemplo que copia os dados para área desejada.
'fiz outro exemplo_I - veja...
Sub exportar_dados_dois()
Sheets("Auxiliar").Range("A3:A" & Sheets("Auxiliar").Range("A65536").End(xlUp).Row).ClearContents
Range("B3:B12").Copy
Sheets("Auxiliar").Range("A3").PasteSpecial Paste:=xlPasteValues
Range("B1") = Range("B1") + 1
Range("B3:B12").Copy
Sheets("Auxiliar").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Range("C1").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
Baixe o exemplo de planilha contendo os macros e procedimentos acima
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