Private Sub worksheet_SelectionChange(ByVal Target As Range)
strColum = "D" ' Columna problema en este caso "D"... entre comillas
sinFila = 4 'Inicio de fila del primer valor
strColum = Trim(strColum)
If ActiveCell.Address = "$" & strColum & "$" & Trim(Str(sinFila)) Then
While Cells(sinFila, strColum) <> "FINAL"
If Cells(sinFila, strColum) <> "" Then
strMonto = Cells(sinFila, strColum)
For intulti = Len(strMonto) To 1 Step -1
If Mid(strMonto, intulti, 1) = "." Then
Mid(strMonto, intulti, 1) = ","
Cells(sinFila, strColum) = strMonto
Exit For
End If
Next
End If
sinFila = sinFila + 1
Wend
End If