seleccionar celdas en macro

hola, tonya !

... una macro... que tiene una formula evalua... una celda y devuelve un valor numerico
... son varias celdas de una misma columna... una vez que tengo la formula es arrastrarla hasta... todas las celdas de dicha columna...
... mi problema es que quiero que esto tambien lo realice la macro... puesto que el numero de celdas varia...
... como puedo poner en la macro que... se arrastre... hasta el ultimo valor de esa misma columna ...

[probablemente] habria varias opciones: autofill, copy, offset, resize, end(xlup/xldown), etc. [segun *la formula*] :))

puedes exponer la macro ? [o al menos la formula ?]
puedes comentar *como* se haria la determinacion de *la ultima celda* donde se debe arrastrar la formula ?
[segun la ultima celda de una, dos, tres, ... columnas anteriores/posteriores a la celda donde se pone la formula ?]

saludos,
hector.

Hola Hector:

Te pongo el código de la macro:

Sub Dejareclaperi()
'
' Dejareclaperi Macro
' Deja reclamaciones de peritos para importar
'
' Acceso directo: Ctrl+Mayús+P
'
Rows("1:7").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.NumberFormat = "@"
Columns("D:D").Select
Selection.NumberFormat = "0"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Cod"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Act"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Iris"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Nis"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Tipo"
Range("H2").Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[-7],""0000"")"
Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-4]="""",0,(IF(RC[-4]=""demora"",1,(IF(RC[-4]=""retraso
indemnizacion"",2,(IF(RC[-4]=""mala reparacion"",3,(IF(RC[-4]=""mal
servicio"",4,(IF(RC[-4]=""consulta o informacion"",5,(IF(RC[-4]=""demora
agencia"",6,7)))))))))))))"
End Sub

La última celda donde se debe arrastrar es la que coincide con las columnas
de la izquierda (anteriores) que contienen datos.

Gracias por todo.

Hector, ¿podrías decirme algo? Es que me corre un poquito de prisa...

Gracias por anticipado.

"Tony" wrote:

Hola Hector:

Te pongo el código de la macro:

Sub Dejareclaperi()
'
' Dejareclaperi Macro
' Deja reclamaciones de peritos para importar
'
' Acceso directo: Ctrl+Mayús+P
'
Rows("1:7").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.NumberFormat = "@"
Columns("D:D").Select
Selection.NumberFormat = "0"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Cod"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Act"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Iris"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Nis"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Tipo"
Range("H2").Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[-7],""0000"")"
Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-4]="""",0,(IF(RC[-4]=""demora"",1,(IF(RC[-4]=""retraso
indemnizacion"",2,(IF(RC[-4]=""mala reparacion"",3,(IF(RC[-4]=""mal
servicio"",4,(IF(RC[-4]=""consulta o informacion"",5,(IF(RC[-4]=""demora
agencia"",6,7)))))))))))))"
End Sub

La última celda donde se debe arrastrar es la que coincide con las columnas
de la izquierda (anteriores) que contienen datos.

Gracias por todo.

hola, Tony !

Hector, podrias decirme algo? Es que me corre un poquito de prisa...

[perdon... -creo que- se me durmio el gallo] :D

prueba con algo +/- como lo siguiente y...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Dejareclaperi()
' Acceso directo: Ctrl+Mayus+P
Rows("1:7").Delete
Columns("a:a").NumberFormat = "@"
Columns("d:d").NumberFormat = "0"
Range("a1:e1") = Array("Cod", "Act", "Iris", "Nis", "Tipo")
Range("h2").Formula = "=text(a2,""0000"")"
Range("i2").Formula = "=if(e2="""",0,(if(e2=""demora"",1,(if(e2=""retraso indemnizacion"",2,(if(e2=""mala reparacion"",3,(if(e2=""mal servicio"",4,(if(e2=""consulta o informacion"",5,(if(e2=""demora agencia"",6,7)))))))))))))"
With Range("h2:i2")
.AutoFill .Resize(Range("a65536").End(xlUp).Row - 1), xlFillDefault
End With
End Sub

__ el codigo expuesto __

Te pongo el codigo de la macro:

Sub Dejareclaperi()
'
' Dejareclaperi Macro
' Deja reclamaciones de peritos para importar
'
' Acceso directo: Ctrl+Mayus+P
'
Rows("1:7").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.NumberFormat = "@"
Columns("D:D").Select
Selection.NumberFormat = "0"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Cod"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Act"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Iris"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Nis"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Tipo"
Range("H2").Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[-7],""0000"")"
Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-4]="""",0,(IF(RC[-4]=""demora"",1,(IF(RC[-4]=""retraso
indemnizacion"",2,(IF(RC[-4]=""mala reparacion"",3,(IF(RC[-4]=""mal
servicio"",4,(IF(RC[-4]=""consulta o informacion"",5,(IF(RC[-4]=""demora
agencia"",6,7)))))))))))))"
End Sub

La ultima celda donde se debe arrastrar es la que coincide con las columnas
de la izquierda (anteriores) que contienen datos.

Hola Hector:

He probado el código que me has puesto y al ejecutar la macro se para justo
después del With Range ("h2:i2") y me da error que dice más o menos como que
no es un argumento correcto...

¿Puedes decirme qué ocurre?...

Gracias de nuevo

"Héctor Miguel" wrote:

hola, Tony !

> Hector, podrias decirme algo? Es que me corre un poquito de prisa...

[perdon... -creo que- se me durmio el gallo] :D

prueba con algo +/- como lo siguiente y...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Dejareclaperi()
' Acceso directo: Ctrl+Mayus+P
Rows("1:7").Delete
Columns("a:a").NumberFormat = "@"
Columns("d:d").NumberFormat = "0"
Range("a1:e1") = Array("Cod", "Act", "Iris", "Nis", "Tipo")
Range("h2").Formula = "=text(a2,""0000"")"
Range("i2").Formula = "=if(e2="""",0,(if(e2=""demora"",1,(if(e2=""retraso indemnizacion"",2,(if(e2=""mala reparacion"",3,(if(e2=""mal servicio"",4,(if(e2=""consulta o informacion"",5,(if(e2=""demora agencia"",6,7)))))))))))))"
With Range("h2:i2")
.AutoFill .Resize(Range("a65536").End(xlUp).Row - 1), xlFillDefault
End With
End Sub

__ el codigo expuesto __
>> Te pongo el codigo de la macro:
>>
>> Sub Dejareclaperi()
>> '
>> ' Dejareclaperi Macro
>> ' Deja reclamaciones de peritos para importar
>> '
>> ' Acceso directo: Ctrl+Mayus+P
>> '
>> Rows("1:7").Select
>> Selection.Delete Shift:=xlUp
>> Columns("A:A").Select
>> Selection.NumberFormat = "@"
>> Columns("D:D").Select
>> Selection.NumberFormat = "0"
>> Range("A1").Select
>> ActiveCell.FormulaR1C1 = "Cod"
>> Range("B1").Select
>> ActiveCell.FormulaR1C1 = "Act"
>> Range("C1").Select
>> ActiveCell.FormulaR1C1 = "Iris"
>> Range("D1").Select
>> ActiveCell.FormulaR1C1 = "Nis"
>> Range("E1").Select
>> ActiveCell.FormulaR1C1 = "Tipo"
>> Range("H2").Select
>> ActiveCell.FormulaR1C1 = "=TEXT(RC[-7],""0000"")"
>> Range("I2").Select
>> ActiveCell.FormulaR1C1 = _
>> "=IF(RC[-4]="""",0,(IF(RC[-4]=""demora"",1,(IF(RC[-4]=""retraso
>> indemnizacion"",2,(IF(RC[-4]=""mala reparacion"",3,(IF(RC[-4]=""mal
>> servicio"",4,(IF(RC[-4]=""consulta o informacion"",5,(IF(RC[-4]=""demora
>> agencia"",6,7)))))))))))))"
>> End Sub
>>
>> La ultima celda donde se debe arrastrar es la que coincide con las columnas
>> de la izquierda (anteriores) que contienen datos.