Pegado Especial / dividir => Macro?

Activa tu grabadora de macros, realiza los mismos pasos de "siempre",
deten la grabadora y ya tienes el codigo que lo realizara, solo
asignaselo a un boton.

Abraham

On 26 jul, 16:33, Abraham wrote:
Mostrar la cita

Activa tu grabadora de macros, realiza los mismos pasos de "siempre",
deten la grabadora y ya tienes el codigo que lo realizara, solo
asignaselo a un boton.

Abraham

Abraham, esto no me sirve, ya que el rango que quiero seleccionar
dependerá de donde esten los datos..en cambio el codigo al grabar la
macro, asigna a un rango (range("xxxx").Select)...

Hola Arcano,

"Arcano" wrote
Mostrar la cita

Abraham, esto no me sirve, ya que el rango que quiero seleccionar
dependerá de donde esten los datos..en cambio el codigo al grabar la
macro, asigna a un rango (range("xxxx").Select)...

A ver algo asi:

Sub test1()
If Not TypeOf Selection Is Range Then Exit Sub
If Selection.Count > (8192 * 2) Then
MsgBox "Selection too large"
Exit Sub
End If
Dim c As Range
On Error Resume Next
For Each c In Selection.SpecialCells(xlCellTypeFormulas)
c = "=(" & Mid(c.Formula, 2, Len(c.Formula)) & ")/1000"
Next c
For Each c In Selection.SpecialCells(xlCellTypeConstants, xlNumbers)
c = c / 1000
Next c
End Sub

Sub test2()
Dim strRng As String
Dim strFrm As String
If Not TypeOf Selection Is Range Then Exit Sub
If Selection.Areas.Count > 1 Then
MsgBox "Can't work with multiple areas"
Exit Sub
End If
strRng = Selection.Address(, , , True)
strFrm = "IF(ISNUMBER(" & strRng & ")," & strRng & "/1000," & """""&" &
strRng & ")"
Selection = Evaluate(strFrm)
End Sub

Saludos,
KL

Excelente KL es lo que necesitaba.
Gracias.