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 Erróneo copiado de datos el 10/03/14, 04:23 pm

maquinitaazul


Que tal amigos expertos,estoy trabajando en un pequeño proyecto para obtener un punto de venta y me surgió un problema en una parte del código de factura. El problema es con una instrucción en el copiado de datos de una hoja,(FACTURA) a otra hoja,(SALIDAS),me explico:

Tengo una hoja "FACTURA", en ella registro todas las ventas que se realizarán, automáticamente por medio de un comanbutton los datos son trasladados a la hoja "SALIDAS", para mantener una secuencia lógica de las ventas, plasmando los registros en la ultima hoja mencionada. El problema es que en dos columnas no hace el copiado como debe, pues se vuela renglones y los registros no quedan alineados, creo que es por el formato de copiado, pero aun queriendo atinar al error no se como resolverlo, y lo que requiero es que me puedan orientar para llegar a resolver esta dificultad. Espero haber sido claro. De antemano muchas gracias por su atención, saludos amigos.

PDD. Anexo el archivo en skydrive, ya que el foro no me permite subir el archivo, no se porque razón.Nuevamente saludos a todos.



https://onedrive.live.com/?cid=da5587c9508bd4f0#cid=DA5587C9508BD4F0&id=DA5587C9508BD4F0%21243

2RESUELTO Re: Erróneo copiado de datos el 10/03/14, 05:40 pm

Admin


Admin
Hola maquinitaazul.

Debes leer, para que veas que extensiones de archivo se pueden subir al foro, donde se carga arriba tienes la información.

Administración
UniversoExcelForo

http://www.universoexcelforo.com

3RESUELTO Re: Erróneo copiado de datos el 10/03/14, 06:36 pm

maquinitaazul


Que tal amigo administrador, la razón es que excede los Kb que permite el foro.

4RESUELTO Re: Erróneo copiado de datos el 10/03/14, 07:18 pm

Admin


Admin
Nuevamente hola.

Dejo tu archivo y sin comprimir.
Te informo y confirmo que NO se pueden subir archivos con extensión .rar

Administración
UniversoExcelForo
Archivos
ejemplo.xlsm
No tienes los permisos para descargar los archivos.
(36 KB)

http://www.universoexcelforo.com

5RESUELTO Re: Erróneo copiado de datos el 10/03/14, 08:26 pm

maquinitaazul


Disculpa, traté de subirlo sin comprimir,y no pude, por eso creí que era el peso.Muchas gracias.

6RESUELTO Erróneo copiado de datos el 11/03/14, 01:35 am

DEDOS


Hola, 
Te reenvío el archivo con una alternativa, si te sirve en el código va un ejemplo.

Saludos y suerte
Archivos
ejemplo.xlsm-1.xlsm
No tienes los permisos para descargar los archivos.
(32 KB)

7RESUELTO Re: Erróneo copiado de datos el 11/03/14, 12:08 pm

maquinitaazul


Amigo Dedos,muchas gracias por tu tiempo,tu código es eficiente,cumple con lo requerido. Sólo un detalle.Si quisiera adecuarlo para todas las filas que necesito, sería un código muy grande.¿Habrá una forma de acortarlo?


Nuevamente muchas gracias amigo.

8RESUELTO Erróneo copiado de datos el 12/03/14, 11:41 pm

DEDOS


Hola, disculpa la tardanza:
Hay que subir de nuevo la pregunta, la verdad es que no he podido dar con la solución con menos código.
Una vez mas, te pido disculpas
Estaré al pendiente para aprender como se hace, SAludos



Última edición por DEDOS el 12/03/14, 11:42 pm, editado 1 vez (Razón : faltó la última linea)

9RESUELTO Re: Erróneo copiado de datos el 13/03/14, 12:31 am

tyno


Hola maquinita, saludos DEDOS.
Creo que una solución para este caso sería utilizar un par de bucles For Next, lo cual nos va a permitir trabajar con un código de macro resumido y que podemos adaptar fácilmente en caso que necesitemos trabajar con más filas de datos:

Sub copy()
On Error Resume Next
Pregunta = MsgBox("¿Está seguro de Realizar el Movimiento?,Si aceptar,no podrá deshacer los cambios efectuados", vbYesNo + vbQuestion, "Factura System")
If Pregunta <> vbNo Then


With Sheets("salidas")
For a = 11 To 27 
rw = .Range("a10:a1000000").Find("").Row
If Cells(a, 1) <> "" Then
For b = 1 To 6
.Cells(rw, b) = Cells(a, b)
Next b
End If
Next a
End With


Módulo9.FORM1
Módulo9.EJEM2
Módulo9.suma


Range("A11:A27").ClearContents
Range("C11:C27").ClearContents
Else
Exit Sub
End If
End Sub


El primer bucle For a=11 To 27 recorre las filas 11 a la 27 de la factura. En caso que se agreguen más filas solo se modifica es valor 27 por el que se desee.
El segundo bucle For b=1 To 6 recorre las columnas de la factura, luego se igualan las celdas de una y otra Hoja.

Paso el archivo con la macro de ejemplo. Saludos
Archivos
ejemplo.xlsm-1.xlsm
No tienes los permisos para descargar los archivos.
(35 KB)

10RESUELTO Re: Erróneo copiado de datos el 13/03/14, 03:27 pm

maquinitaazul


Hola que tal amigos, no se preocupen por el tiempo, lo que cuenta es que se tomaron la molestia para ayudarme.Agradezco a DEDOS su excelente aporte, que es en el que me estaba basando,agradezco tu ayuda y tu interés por querer aprender y ayudar a otros usuarios de este, un gran foro.Agradeciendo también al buen tyno, que como ya lo había dicho antes, es un genio en este ámbito, y uno de los mejores expertos que he tenido el gusto de ver.

Les comento que en los últimos días agregue una condición al anterior código,"el del buen amigo dedos",que era en el que me estaba basando, e incremente una pocas lineas para una condición que tiene mas o menos la siguiente lógica para cada fila: if range("c11")=empty then
          MsgBox"Llene todos los campos"
          exit sub
          else
'después iría el código del buen tyno

With Sheets("salidas")
For a = 11 To 27 
rw = .Range("a10:a1000000").Find("").Row
If Cells(a, 1) <> "" Then
For b = 1 To 6
.Cells(rw, b) = Cells(a, b)
Next b
End If
Next a
End With


Módulo9.FORM1
Módulo9.EJEM2
Módulo9.suma


Range("A11:A27").ClearContents
Range("C11:C27").ClearContents
Else
Exit Sub
End If
End Sub


Como verán al momento de estar trabajando con el código del buen DEDOS esta instrucción funcionaba, pero ahora con la ayuda del master tyno, creo que tendría que hacerla bucle y en bucles soy muy malo, si me pudiesen ayudar estaría agradecido, de igual manera si estoy faltando a una regla del foro, comprendería que no me contestasen y crearía un nuevo tema con dicha pregunta.Muchas gracias por todos amigos.

11RESUELTO Gracias el 13/03/14, 03:51 pm

DEDOS


Maestro Tyno:
Gracias por el aporte, en verdad que ha diario se aprende algo nuevo, bueno, en mi caso no lo aprendí lo estoy asimilando y debo practicarlo hasta que me lo aprenda.
Saludos

12RESUELTO Re: Erróneo copiado de datos el 13/03/14, 04:27 pm

maquinitaazul


Amigos, buen día, he solucionado el último problema muchas gracias, doy el tema por SOLUCIONADO, hasta entonces.


código que me resolvió el problema:

Dim cant As Byte
Dim j As Byte
For j = 1 To 27

For i = 11 To 11 Step 1

If Range("C" & i + j) = "" Then cant = cant + 1
Next i
Next j
'controlo si la variable tiene valor <> 0, en ese caso envía el mensaje y no guarda
If canti <> 0 Then
MsgBox "Atención que faltan datos en col C, no se guardará", , "ATENCIÓN"

Else

13RESUELTO Re: Erróneo copiado de datos el 13/03/14, 04:28 pm

maquinitaazul


Muchas gracias nuevamente amigos,espero algún día saber un 10% lo que ustedes.Reciban un saludo cordial.

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.