UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

cavr7


Hola a todos,

espero me puedan ayudar con este inconveniente, tengo 2 archivos uno llamado reporte
este es un listado de nombres y asistencias con horarios son subtotales el problema es que al ejecutar la macro por medio de un botón
no me copia todos los datos a la hoja concentradoP.xlsx
se queda en unos subtotales antes de terminar a veces 2 o 3 formulas de subtotal.
me podrían ayudar orientándome donde esta mi error.
ya que abro los subtotales con el evento 3 y al final los quiero volver a cerrar a vista 2 pero tampoco funciona.


Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Outline.ShowLevels RowLevels:=3
With Workbooks("ConcentradoP").Sheets("Concentrado")
Application.ScreenUpdating = False
For a = 2 To Range("c1000000").End(xlUp).Row
If Cells(a, 14) <> "pasado" Then
If Cells(a, 1) = 1 Then
Cells(a, 14) = "pasado"
rw = .Range("a1:a1000000").Find("").Row
For b = 1 To 13
.Cells(rw, b) = Cells(a, b)
Next b
End If
End If
Next a
Application.ScreenUpdating = True
Windows("ConcentradoP.xlsx").Activate
.Select
End With
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub



Saludos y Gracias
Rigoberto
Archivos
Reporte.zip
No tienes los permisos para descargar los archivos.
(47 KB)

cavr7


El problema esta en que el .End(xlUp).Row
lo determina en el fin del subtotal y no en el fin del documento.

ya lo omite y busque por un rango especifico
.Row  únicamente

si alguien tiene otra sugerencia se lo agradeceré.

Saludos

tyno


Hola crav7.
Probá dos cosas:
Uno: modifica esta linea de esta manera:

With Workbooks("ConcentradoP.xlsx").Sheets("Concentrado")

y lo otro sería esto:

For a = 2 To Range("a1000000").End(xlUp).Row

Saludos

cavr7


Te agradezco tu ayuda tyno.

Saludos
Rigoberto

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.