VBA Excel Basic - Inserindo e Deletando Linhas e Colunas - How To Insert And Delete Rows And Columns

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Sim, este é mais um tópico voltado para quem está iniciando na utilização do VBA - Visual Basic for Application no MS Excel.

O método Insert pode ser usado tanto para Linhas quanto para Colunas.

Sub sbExample12()

    Rows(6).Insert 'Inserirá uma linha na Linha 6.

    Rows(6).Delete 'Deletará a Linha 6.

    

    Columns("E").Insert 'Inserirá uma Coluna a partir da E.

    Columns("E").Delete 'Deletará a Coluna E.

End Sub

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Basic, Excel, worskheet, Sheet, aba, Planilha, Workbook, insert, delete, Rows, Columns, inserir, deletar,

VBA Excel Tip - Insira Fotos nos Comentários de cada Célula - Add photos to cells inside comments

|Blog Office VBA | Blog Excel | Blog Access | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Suponhamos que tenha uma planilha com uma lista de nomes de funcionários e queira ver as respectivas fotos destes funcionários.

Mais uma dica rápida, aprenda a inserir imagens dentro dos comentários das células.

A partir de uma pasta com as respectivas fotos, cada arquivo será o número do empregado. E a dica para visualizar as fotos de modo rápido e dinâmico, decidi colocar cada foto dentro de um comentário, em cada célula. Desse modo, quando passar o número do funcionário, uma janela de comentário aparecerá com a foto.

Mas é claro que desejo que todos usem a criatividade desenvolvendo novas soluções:

- Álbuns de fotos

- Capas dos seus CDs

- Capas da sua Lista de Blue-Rays

- Seus filmes preferidos

- Os livros que mais gosta

- Os produtos da sua empresa que estão sendo mostrados no gráfico imediatamente acima da lista

- As logomarcas das empresas comparadas dentro de um market share

Sub InsertPictures() 

    Dim cll As Range 

    Dim rng As Range 

    Dim strPath As String 

    Let strPath = "D:\Bernardes\Photos" 

    With Sheets("Sheet1") 

        Set rng = Range("A2:A416") 

    End With 

    For Each cll In rng 

        If Dir$(strPath & "\" & cll.Value & ".jpg") <> "" Then 

            With cll 

                .ClearComments 

                .AddComment ("") 

                .Comment.Shape.Fill.UserPicture (strPath & "\" & cll.Value & ".jpg")

                Let .Comment.Shape.Height = 160 

                Let .Comment.Shape.Width = 120 

                Let .Comment.Shape.LockAspectRatio = msoTrue 

            End With 

        End If 

    Next cll 

End Sub

Tags: VBA, Excel, Tips, cell, célula, photo, insert, comments, comentários, add, adicionar, inserir,

VBA Word - Inserindo cabeçalho e rodapé no documento - Word Footer and Header Code

| Blog Office VBA | Blog Excel | Blog Access |

Como posso automatizar a inserção de um cabeçalho e um rodapé no meu documento do MS Word? 

Tente utilizar o código abaixo:

Sub PutHeader_Footer()

 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

 ActiveWindow.Panes(2).Close

 End If

 If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

 ActivePane.View.Type = wdOutlineView Then

 Let ActiveWindow.ActivePane.View.Type = wdPrintView

 End If

 Let ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

 Let Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

 Let Selection.TypeText Text:="BERNARDES - Aqui está o cabeçalho! "

 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate

 Selection.TypeText Text:=" "

 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTime

 Selection.Find.ClearFormatting

 If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

 ActivePane.View.Type = wdOutlineView Then

 Let ActiveWindow.ActivePane.View.Type = wdPrintView

 End If

 Let ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

 NormalTemplate.AutoTextEntries("Digite o nome do arquivo com o respectivo path").Insert Where:= _

 Selection.Range, RichText:=True

 Selection.TypeText Text:=" "

 NormalTemplate.AutoTextEntries("Criado em").Insert Where:=Selection.Range _

 , RichText:=True

 Selection.TypeText Text:=" "

 NormalTemplate.AutoTextEntries("- Pág. ").Insert Where:=Selection.Range, _

 RichText:=True

 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub 

Tags: VBA, Word, footer, header, code, cabeçalho, rodapé, inserir