Saltar al contenido

Corregir una macro con Autofill

publicado

Que tal foro, tengo una macro


Hoja1.Select


Application.ScreenUpdating = False
With Hoja1
.Range("A10:C10").EntireColumn.Insert
.Range("A11").Formula = "=D11&E11&F11&G11"
.Range("B11").Formula = "=L11&M11&N11&O11"
.Range("C11").Formula = "=COUNTIF(A$11:A$250,B11)"
.Range("A11:C11").AutoFill Destination:=Range("A11:C250")
.Range("$C$10:$G$250").AutoFilter Field:=1, Criteria1:="0"
.Range("D11:G250").Copy Hoja2.Range("A500").End(xlUp).Offset(1, 0)
.Range("C10").AutoFilter
.Range("A1:C1").EntireColumn.Delete
End With
Application.ScreenUpdating = False
Hoja2.Select

[/CODE]

en esta parte del codigo

[CODE]
.Range("C11").Formula = "=COUNTIF(A$11:A$250,B11)"
[/CODE]

Como puedo hacer para que en el punto A$250 en ves de que sea 250 que me tome todo lo que tiene datos porque no me deja hacer el procesar datos exactos

de ante mano gracias

Featured Replies

publicado
  • Autor

O que en la columna A después de poner el resto de los datos que los vacíos se rellenen con algún número

publicado

Hola Gente estoy intentando llevar un libro de productos solicitados por médicos y necesito de su ayuda quiero copiar todo lo que escriba en los campos de color en la hoja historial médico, la macro que realice la hice con la grabadora y no puedo hacer que funcione bien. Y despues necesitaria que otra macro me permita obtener un informe con todos los datos dependiendo del medico. Desde ya muchas gracias

publicado
  • Autor
Hola Gente estoy intentando llevar un libro de productos solicitados por médicos

Que tal buen día necesitarias hacer subir un ejemplo y abrir el tema para que te puedan ayudar

saludos desde México

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.