Excel Como fazer chamada de parâmetros em uma função

[Reinaldo.belli]

Boa tarde, 

 

Minha duvida é bem simples só to acostumado com outras linguagens e ainda to boiando sobre a passagem de parâmetros. A situação é a seguinte: Tenho um useforme com várias textbox que puxam o valor de uma planilha e criam um formulário de preenchimento. Como são muitas textbox e tenho que programar em uma por uma o caminho da célula que ela vai buscar a informação eu resolvi criar uma função e mudar somente as variáveis pra que eu ganhasse tempo ao invés de ter que escrever dentro de uma por uma, daí a dúvida: Como passo os parâmetros C(coluna) e L(linha) para dentro da função TextBox_Exit?

A dúvida é boba, mas já apanhei muito hoje. Obrigado

Private Sub TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean, ByVal C As Double, ByVal L As Double)
If Worksheets("PILOTO CCK ").Cells(L, C) > Worksheets("PILOTO CCK ").Cells(L, C + 2) Or Worksheets("PILOTO CCK ").Cells(L, C) < Worksheets("PILOTO CCK ").Cells(L, C + 3) Then
MsgBox ("Teste!")
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim C As Double
Dim L As Double
C = 4
L = 9
Call TextBox_Exit(Cancel, Me.TextBox1, C, L)
End Sub

 

[CasaDoHardware]

Nao entendi a duvida.

 

Tentou declarar como publica?

[Reinaldo.belli]

@CasaDoHardware Alterei para isso para ver se resolvia, mas dá o seguinte erro: Número de argumentos incorreto ou atribuição de propriedade inválida

Public Sub Trata_TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean, ByRef C As Double, ByRef L As Double)
C = C
L = L
If Worksheets("PILOTO CCK ").Cells(L, C) > Worksheets("PILOTO CCK ").Cells(L, C + 2) Or Worksheets("PILOTO CCK ").Cells(L, C) < Worksheets("PILOTO CCK ").Cells(L, C + 3) Then
MsgBox ("Teste!")
End If
End Sub
Public Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim CC As Double
Dim LL As Double
CC = 4
LL = 9
Call Trata_TextBox_Exit(Cancel, Me.TextBox1, CC, LL)
End Sub

 

[Midori]

Além dos parâmetros de linha e coluna (L e C), qual a necessidade de criar outros?

 

O evento da função TextBox1_Exit já é referente ao controle que está chamando a função, então não há a necessidade de passar um parâmetro para identificar o TextBox.

[Reinaldo.belli]

@olliver.soul Sem ele o erro muda e passa a ser tipos incompatíveis. Mas creio eu que não precise mesmo

[Midori]

A função pode ser criada apenas com os dois parâmetros

 

Public Sub Trata_TextBox_Exit(ByRef C As Double, ByRef L As Double)
If Worksheets("PILOTO CCK ").Cells(L, C) > Worksheets("PILOTO CCK ").Cells(L, C + 2) Or Worksheets("PILOTO CCK ").Cells(L, C) < Worksheets("PILOTO CCK ").Cells(L, C + 3) Then
MsgBox ("Teste!")
End If
End Sub

 

Aí basta chamar a função passando os dois valores