Ayuda con Macro para copiar formula hasta ultima Celda

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Ayuda con Macro para copiar formula hasta ultima Celda

Notapor darkangel090588 » 12 Ene 2018 20:34

Buenas tardes



tengo una duda con mi macro la cual al momento de ejecutarla no me avanza y me da un error "1004" en tiempo de ejecución error en el método "range" de objeto "_Global" en lo que quiero es que me copie la formula que tengo en J1:W1 y la pegue en j19:w19 de ahi que permita correr la formula en el rango donde están los datos j19:w27 pero el rango llega a ser variable por que puedo tener desde 5000 registros hasta un máximo de 15000 (hasta el momento no han salido mas registros) ya estuve buscando en el foro pero lo mas que avanzo es hasta este punto, realmente no se mucho de programación solo funciones básicas este es el código anexo una copia del archivo

Sub Coberturar()
'
' Coberturar Macro
' Pasa las formulas al campo delimitado
'

'



Range("J1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("J19").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=2
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("j19:w" & Range("J19:W").End(xlDown).Address).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=2
Application.CutCopyMode = False


Range("j19:w" & Range("j19").End(xlDown).Address).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" ", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.SmallScroll ToRight:=-4
Range("C18").Select
Application.CutCopyMode = False
End Sub


agradeciendo de antemano el apoyo muchas gracias
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
darkangel090588
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 1
Registrado: 22 Jul 2017 17:27

Re: Ayuda con Macro para copiar formula hasta ultima Celda

Notapor Cacho R » 13 Ene 2018 00:58

.
Hola darkÁngel! Intenta con:

Código: Seleccionar todo
Sub Coberturar()
[j1:w1].Copy
With Range("j19:w" & [c18].End(xlDown).Row)
  .PasteSpecial xlPasteFormulas
  .Value = .Value
  .Replace What:="0", Replacement:="", LookAt:=xlWhole
  .Replace What:=" ", Replacement:="", LookAt:=xlWhole
End With
End Sub
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10481
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 10 invitados