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.]

1RESUELTO copia y pega datos en otra hoja el 20/03/14, 02:44 pm

rubito1


hola,subo un tema que ya estaba cerrado pero quisiera agregarle una opcion de ser posible;en el archivo LO EXplico(y luego subo el otro al cual pasara los archivos ya que no se como subir 2 archivos al mismo tiempo)
Archivos
pasar datos a resumen ejemplo abril.xlsm
No tienes los permisos para descargar los archivos.
(41 KB)

2RESUELTO va el otro archivo el 20/03/14, 02:45 pm

rubito1


ahi va el otro archivo
Archivos
RESUMEN ENTREGAS ANUAL.xlsm
No tienes los permisos para descargar los archivos.
(29 KB)

3RESUELTO Re: copia y pega datos en otra hoja el 22/03/14, 06:47 pm

tyno


Hola Rubito.
Me parece que el código para lo que necesitas tiene que quedar así:

Private Sub CommandButton2_Click()
On Error Resume Next
Application.ScreenUpdating = False
For a = 5 To Range("a1000000").End(xlUp).Row
If Cells(a, 40) <> "pasado" Then
If Cells(a, 1) <> "" Or Cells(a, 17) <> "" Then
If Cells(a, 17) = "E" Or Cells(a, 17) = "e" Or Cells(a, 17) = "" Then

Cells(a, 40) = "pasado"
Select Case Month(CDate(Cells(a, 3)))
Case 1: mes = "enero"
Case 2: mes = "febrero"
Case 3: mes = "marzo"
Case 4: mes = "abril"
Case 5: mes = "mayo"
Case 6: mes = "junio"
Case 7: mes = "julio"
Case 8: mes = "agosto"
Case 9: mes = "septiembre"
Case 10: mes = "octubre"
Case 11: mes = "noviembre"
Case 12: mes = "diciembre"
End Select
With Workbooks("RESUMEN ENTREGAS ANUAL").Sheets(mes)
rw = .Range("a1:a1000000").Find("").Row
For b = 1 To 12
.Cells(rw, b) = Cells(a, b)
Next b
End With
End If
End If
End If

Next a
Application.ScreenUpdating = True
End Sub

Saludos

4RESUELTO genial el 22/03/14, 10:59 pm

rubito1


como siempre...genio!!! gracias de nuevo tyno( ya cordate de ver mi otra consulta-de eliminar y reordenar- cuando tengas un momento disponible)gracias de nuevo y saludos

5RESUELTO tyno perdon ,cerre el tema pero... el 23/03/14, 03:39 pm

rubito1


perdon tyno,pero si bien cerre el tema ahora veo que falta algo! cambie algunas cosas pero lo importante es que si bien copia todo,si en la columna de fecha(columna 13)no hay ningun dato,no respeta la prioridad,que es que si en la columna a si hay un dato,debe copiarlo(si escribe"copiado" al ejecutar,pero no lo pasa a la otra hoja( te paso como lo agregue yo en la columna 13)

Código:
If Cells(a, 40) <> "pasado" Then
If Cells(a, 1) <> "" Or Cells(a, 17) <> "" Then
If Cells(a, 17) = "l" Or Cells(a, 17) = "L" Or Cells(a, 17) = "" Or Cells(a, 13) = "" Or Cells(a, 17) = "T" Or Cells(a, 17) = "t" Then
Cells(a, 40) = "pasado"
'ELIJO X CUAL COLUMNA TOMO "PREVISTA"
Select Case Month(CDate(Cells(a, 13)))
Case 1: mes = "enero"

6RESUELTO Re: copia y pega datos en otra hoja el 24/03/14, 10:51 am

tyno


¿y existe la otra Hoja? por lo que ví en el archivo que subiste solo tenías la Hojas de algunos meses. Recordá que las Hojas se tienen que llamar exactamente igual como están los nombres dentro de Select Case.


Saludos

7RESUELTO fijate el 24/03/14, 11:29 am

rubito1


tyno,lo que hicistes esta bien;solo que no cumple la condicion de que si la columna a tiene un valor >"",por mas que en la columna "m" "no" tenga ningun valor,deberia copiar ese dato igual al otro archivo pero no lo hace(si esta escribiendo "pasado" pero no lo pasa(los otros datos is los pasa;fijate y lo veras;adjunto nueva planilla modificada(link dropbox) y en la misma tambien podras ver lo del otro tema (eliminar filas)( o si queres eso lo vemos en el otro rtema)

link a dropbox

ademas vuelvo a subirte el otro archivo adonde lo copia
Archivos
RESUMEN ENTREGAS ANUAL.xlsm
No tienes los permisos para descargar los archivos.
(41 KB)

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.