Foro Excel

Hola, una vez estube necesitando un localizador de celdas y seria bueno compartirlo con ustedes.

no es muy usual, pero de algo les podria servir ,,,,

Hay dos tipos de ejemplos, una en cada hoja

Ejemplo1:

solo les dara las coordenadas en donde hay datos

Ejemplo2:

les dara las coordenadas de cualquier celda, esté vacia o no...

Espero que les sea de utilidad ...

Hola, faltó el adjunto con los ejemplos!

NO SE QUE SUCEDIO EN EL PRIMER MENSAJE, IGUAL AQUI VA EL ADJUNTO ...

Leuro... Un Saludo... vi tu macro
propongo otro que permite lo siguiente:
a).- Menor Codigo... y un poquito de matematicas
b).- El limite de Columnas es entero < 32.600 si utilizamos INTEGER ( el tuyo solo es 675)

Dim letcol As String
Dim intCrementa As Integer
a = ActiveCell.Column
If ActiveCell.Value <> "" Then
Do
intCrementa = a Mod 26
If intCrementa = 0 Then intCrementa = 26
letcol = Chr(64 + intCrementa) & letcol
a = a \ 26
Loop While a > 0
MsgBox ("Ha escrito en : " & letcol & Chr(13) & "Fila: " & ActiveCell.Row)
End If

Hola, creo que se puede resumir el select case, pongo código ejemplo:

Código: Seleccionar todo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LetCol As String, Fil As Long, i As Integer
LetCol = Replace(Target.Address, "$", "") 'Saco los signos $
For i = 0 To 9
  LetCol = Replace(LetCol, i, "") '"Saco los nros
Next i
Fil = Target.Row
MsgBox ("Columna:    " & LetCol & Chr(13) & "Fila:               " & Fil)
End Sub


Espero sea de ayuda.

WOWWWW, DEFINITIVAMENTE ME FALTA MAS CODIGO, SIN PALABRAS... SEGUIRE PONIENDO MIS AYUDAS Y USTEDES LES SEGUIRAN PONIENDO SU TOQUE MAGICO... MUCHISIMAS GRACIAS ....

Intentando simplificar un poco mas

Código: Seleccionar todo

Sub columna()
Dim direccion As String
direccion = ActiveCell.Address(True, False)
MsgBox Left(direccion, InStr(1, direccion, "$") - 1)
End Sub

Hola, a ver que os parece esta "cuasifórmula":

Código: Seleccionar todo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

x = 1: y = ActiveCell.Column
While y > 26: y = (y - 1) / 26: x = x + 1: Wend

MsgBox "Columna=" & Mid(ActiveCell.Address, 2, x) & "    Fila=" & ActiveCell.Row

End Sub


"Hasta luego Lucas"

Antoni

hola sabes q no puedo descargar el aadjunto