Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como pegar a posiçã...
 
Notifications
Clear all

Como pegar a posição [Linha] [Coluna] de uma célula

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
3,254 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos gostaria de saber como faço para enviar por parâmetro os posição da [Linha] [Coluna] de uma célula selecionada em meu código VBA

Public Function Somatorio(Linha Coluna) '[b]Parâmetros [Linha] [Coluna] da célula selecionada[/b]
    
    Application.Volatile
    
    Linha = 2
    soma = 0
    
    Do While Cells(Linha, 2) <> ""

        soma = soma + Cells(Linha, 2)
        Linha = Linha + 1
        
    Loop
    
    Somatorio = soma
      
End Function

Desde já agradeço

Fico no aguardo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/08/2012 8:46 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não entendi?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/08/2012 9:53 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo o que eu quero é o seguinte:

Quando eu clicar em uma célula preciso que meu programa VBA receba a posição a Linha e a Coluna onde eu cliquei.

Exemplo: Se eu seleciono C12 eu que ter esta posição Coluna 3 e Linha 12 ai terei a possibilidade de trabalhar com estes valores.

Tem como enviar esta posição aqui por parametro ? Public Function Somatorio(Linha As Integer Coluna As Integer)

Desde já agradeço

Fico no aguardo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/08/2012 12:36 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

boa noite é só implementar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Value Then
MsgBox "Linha: " & ActiveCell.Row & Chr(13) & "Coluna: " & ActiveCell.Column
End If
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/08/2012 3:01 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Primeiramente agradeço a atenção.

Caro markosoftware e Reinaldo esta anexo agora uma planilha com o que estou querendo fazer, se puderem dar a dica estou pronto a executar.

Agradeço desde já

Obrigado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/08/2012 10:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde, segue!

att, MarkoSoftware

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/08/2012 1:13 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico