Saberexcel - o site das Macros
Essas funções do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem na folha de planilha na celula ativa a letra da coluna correspondente, isto é, onde a função foi inserida. Para facilitar o teste inserí umas macros auxliares para facilitar no teste.
Espero que isso possam ajudá-los em alguma coisa. Fiquem com Deus. E_Marcondes

Option Explicit

Function Coluna_Letra$(Optional ByVal vColuna%)
Dim Target As Range
Set Target = Application.Caller
If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna)
Coluna_Letra$ = Target.Address(True, False)
Coluna_Letra$ = Left(Coluna_Letra, InStr(1, Coluna_Letra, "$") - 1)
End Function

Function MostraColuna$(Optional ByVal vColuna%)
Dim Target As Range
Set Target = Application.Caller
If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna)
MostraColuna = Target.Address(True, False)
MostraColuna = Left(MostraColuna, InStr(1, MostraColuna, "$") - 1)
End Function

'macros abaixo são para auxiliar no teste do usuario desenvolvedor
Sub Inserindo_Funcoes_teste()
[C1].Value = "Observe, macro desloca 1 linha acima, portanto se inserir na linha 1 gera erro"
ActiveCell.Offset(-1, 0).Value = "Inserindo funções para teste na célula Ativa"
ActiveCell.FormulaR1C1 = "=MostraColuna()"
ActiveCell.Offset(0, 1).FormulaR1C1 = "'=MostraColuna()"

ActiveCell.Offset(2, 1).Select

ActiveCell.FormulaR1C1 = "=Coluna_Letra()"
ActiveCell.Offset(0, 1).FormulaR1C1 = "'=Coluna_Letra()"

ActiveCell.Offset(1, 0).Select
Range("G20").Select
End Sub

Sub limpar()
Cells.ClearContents
End Sub

Sub visualizar_macro()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macros no módulo VBE", vbYesNo + vbInformation, "Saberexcel - site das macros")
If resposta = vbYes Then
Application.Goto reference:="Coluna_Letra"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub

Sub oc()
'observe que aqui eu usei o nome da folha de código da folha de planilha (se mudar o nome da planilha nao gera erro - Saber1)
Saber1.Shapes("sb").Visible = False
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

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

 

---

'USANDO O MESMO CÓDIGO NO EVENTO CHANGE - E DANDO SAIDA PARA UMA CÉLULA(G15).
Observe que usei o mesmo código para retornar os mesmos valores quando determinado valor for digitado na célula(E15).
veja que a linha de código: If Not Intersect(Target, Range("E15")) Is Nothing Then, rodará o procedimento se a condição for verdadeira,
isto é, se a célula ativa for a célula(E15), senão(Else) sai do procedimento(Exit Sub)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNumColuna As Integer, iValor As Integer, zSB As Integer
On Error Resume Next ' se nao digitar nada ou numero nao existente

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

Saberexcel VBA Estudos®
Esse procedimento do Aplicativo Microsoft Excel VBA agrupa e desagrupa colunas na folha de planilha principal de um livro.
no exemplo também muda o muda o nome(caption) do botão ligado procedimento.


Private Sub Botao1_Click()
If Botao1.Caption = "Desagrupar Colunas" Then
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=3
Botao1.Caption = "Agrupar as Colunas"
Else
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Botao1.Caption = "Desagrupar Colunas"
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) , copia as medidas das colunas determinadas na folha de planilha(Plan2)
para a planilha planilha(Plan1).


Sub copiar_medida_colunas_para_outra_plan()
Dim X As Byte
Dim Y As Long
Dim Z As Integer

Application.ScreenUpdating = 0

For X = 1 To 12 'planilhas
For Y = 1 To 20 'para 20 linhas
For Z = 1 To 20 'para 20 colunas

Plan1.Range("A" & Y).RowHeight = Plan2.Range("A" & Y).RowHeight
Plan1.Columns(Z).ColumnWidth = Plan2.Columns(Z).ColumnWidth

Next Z
Next Y
Next X

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



 

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, retorna a quantidade de colunas usadas, a próxima coluna em branco, endereço da célula da última coluna usada, e endereço da célula da proxima coluna em branco.
Por exemplo, se voce quiser repetir o exemplo observe na imagem abaixo as linha(1) usada a´te a coluna D


por exemplo se voce seguir o exemplo da imagem acima, terá esse retorno na msgbox.

(MSGBOX) - Colunas - quantidade usadas [ 4 ]
(MSGBOX) - Proxima coluna em branco [5 ]
(MSGBOX) - Endereço celula ultima coluna usada [$D$1 ]
(MSGBOX) - Endereço celula da proxima coluna em branco [$E$1]

Sub Colunas_range_usada_e_nao_usadas_Linha1()
'quantidade de coluna em usada
MsgBox "Colunas - quantidade usadas [ " & _
Range("IV1").End(xlToLeft).Column & " ]", vbCritical, "Quantidade de coluna em usada Lin1"

'proxima coluna em branco
MsgBox "Proxima coluna em branco Lin[1] [ " & _
Range("IV1").End(xlToLeft).Column & " ]", vbInformation, "Proxima coluna em branco Lin1"

'endereço da ultima coluna usada
MsgBox "Endereço da ultima coluna usada Lin1 [" & _
Range("IV1").End(xlToLeft).AddressLocal & " ]", vbExclamation, "Endereço da ultima coluna usada Lin1"

'endereço da proxima coluna em branco
MsgBox "Endereço da proxima coluna em branco Lin1 [" & _
Range("IV1").End(xlToLeft).Offset(0, 1).AddressLocal & " ]", vbExclamation, "Endereço da proxima coluna em branco Lin1"
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - Saberexcel