Postagens

Mostrando postagens de outubro, 2010

Top

ECOS IT

Imagem
ECOS IT — Business IT Consulting | Orlando, FL ECOS IT Business IT Consulting & Technical Support Orlando, FL  ·  Serving Small & Medium Businesses About Us Your Strategic IT Partner ECOS IT provides strategic Business IT Consulting solutions, helping companies optimize their systems, enhance information security, and automate processes for greater efficiency and competitiveness. With over 25 years of hands-on experience, we act as a true strategic partner — transforming technology into a competitive advantage. 25+ Years of Experience SMB Focused Consulting 5 Core Service Areas What We Do Our Services From infrastructure assessment to process automation — we cover every layer of your business technology so you can focus on what matters most. ...

Macro: Criar Indice de Planilhas no Excel

Segue uma macro simples para aqueles que tem planilhas enormes e precisam criar índices com links. Passos para Criação da Macro: ALT+F11 Copie o Código abaixo Cole na área de trabalho do VBA Feche Pressione ALT+F8 Abaixo o código VBA ======================= Sub Cria_Indice() Dim Plan_TT, Plan_Atual As Integer Plan_TT = Sheets.Count Plan_Atual = 1 Do While Plan_Atual <= Plan_TT Cells(Plan_Atual, 1).Activate ActiveCell.Value = Sheets(Plan_Atual).Name Link_Ativo = Sheets(Plan_Atual).Name & "!A1" Nome_Link_Ativo = Sheets(Plan_Atual).Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Ativo, TextToDisplay:=Nome_Link_Ativo Plan_Atual = Plan_Atual + 1 Loop End Sub