Retornando LETRAS a partir do número de Posicionamento de uma Coluna

Uma função simples para retornar as letras que correspondem a um número retornando a coluna.


Function ColumnLettersFromRange (rInput As Range) As String
    ' © 2007-20 A&A - In Any Place®, except where noted, all rights reserved.
    ' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT
    ' LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
    ' Feel free to use the code as you wish but kindly keep this header section intact.
    ' Copyright© A&A - In Any Place®, all Rights Reserved.    '      Author: André Bernardes
    '     Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
    ' Description: Retorna a letra da coluna de um Range
    
    Let ColumnLettersFromRange = Split(rInput.Address, "$")(1)
End Function

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com

VBA Tips - Concatenando a primeira letra de cada palavra - UDF to concatenate first letter of each word in a cell

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

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

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

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

Praticidade é o nosso lema, certo? Sim, facilidade concatenamos as primeiras letras de nomes próprios?

Por exemplo:

Johnson & Johnson                        J & J

Procter & Gamble                          P & G

Boston Consulting Group                B C G

Segue:

Function ConcateneWords(str1 As String)

Dim arr1, i As Integer, str2 As String

Let arr1 = Split(str1, " ")

Let str2 = ""

For i = LBound(arr1) To UBound(arr1)

Let str2 = str2 & Left(arr1(i), 1) & " "

Next

Let  ConcateneWords = Application.WorksheetFunction.Trim(str2)

End Function

Tags: concatenar, concatenate, letra, primeira, letter