imagina essa função
Public Function Soma_LetraCol(ByVal letra_Coluna As String, valor As Long) As String
Dim CLx As String
Col_soma = Cells(1, letra_Coluna).Column + valor
CLx = Cells(1, Col_soma).Address
Soma_LetraCol = Mid(CLx, InStr(CLx, "$") + 1, InStr(2, CLx, "$") - 2)
End Function
no caso ela incrementa letra A+1=B
if Soma_LetraCol("A",1)="B" then
a função sempre retorna um valor então vc não pode usar ela separadamente para executar uma ação
coluna = Soma_LetraCol("A",1)
Range(coluna & 2)="Letra B"
Range(Soma_LetraCol("A",1) & 2)="Letra B"
se vc quer usar para executar açõe com valores de referencia tem que usar macros comuns e adicionar a referencia
tipo essa
Sub FormulaS(ByVal AtivDesativ As Boolean)
Inicio
'Call Copia_SetorO("formula")
Call SetorL("formula")
If AtivDesativ = True Then
Range(Ci & 10).Copy
Range(Ci & Li + 1000, Cf & Lf).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
Range(Ci & Li, Cf & Lf).ClearContents
End If
Final
End Sub
no caso se chama
FormulaS true
ou
call FormulaS( true )
ou até uma variavel com verdadeiro ou falço no lugar de true
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 14/07/2015 4:59 pm