Jump to content

Recommended Posts

un favor me pudieran ayudar  con lo siguiente

quisiera obtener los resultados como se encuentran en el archivo "0 PD CARGA POL 20 07.Xlsm"  Hoja "RECIB" , los datos los debe de extraer del archivo "Recibidas_2020_08_Facturas.xlsx , trate de introducir las columnas en matriz sin embargo debido a que mi pc es lenta y manejo muchos datos fue la razón por la que decidí introducir mis columnas en matriz tanto las columnas que estoy copiando , así como las columnas de destino, sin embargo no lo hace correctamente, adjunto mis archivos y mi macro para cualquier apoyo, corrección de antemano, les agradezco

 

Sub Macro2()
'
Application.ScreenUpdating = False
Dim ws2, ws1 As Worksheet, Mat
Dim Q&

Set ws1 = ActiveSheet

'mio = ActiveWorkbook.Name
ws2 = "Selecciona el libro a procesar"
MsgBox ws2, vbOKOnly

ws2 = Application.GetOpenFilename(Title:=ws2)
If ws2 = False Then Exit Sub
On Error GoTo 0
Set ws2 = Workbooks.Open(ws2)


Sheets("XML").Select
If [B2] = "" Then
MsgBox "Libro u Hoja sin Informacion."
 End If

'ReDim Matt(1 To 58)
Q = Range([B1], Cells(Rows.Count, "b").End(xlUp)).Rows.Count

colso = Array("B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BC", "BD", "BE", "BF", "BG")
colsd = Array("A", "B", "D", "E", "F", "G", "H", "I", "J", "K", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH")

If [B2] <> "" Then

For col = LBound(colso) To UBound(colso)
For col2 = LBound(colsd) To UBound(colsd)


    Cells(2, colso(col)).Resize(Q).Copy
    ws1.Cells(4, colsd(col2)).Resize(Q).PasteSpecial xlPasteValues

  Next
Next
End If



Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

 

 

Recibidas_2020_08_Facturas.xlsx 0 PD CARGA POL 20 07.xlsm

Link to post
Share on other sites

@CECILIO , ¿solo era eso lo que no te funcionaba? 😜

Te dejo una solución. Fíjate en las variables cómo están dimensionadas (como lo tenías no te debía funcionar nada) y en código, que está comentado la parte importante.

Por tu código inicial he dado por hecho que querías sustituir los datos, no ponerlos al final

Copia de 0 PD CARGA POL 20 07-2.xlsm

Link to post
Share on other sites
Hace 2 horas, CECILIO dijo:

no me los pega en las columnas que necesito pero ademas me borra los títulos de la fila

Pero eso ya es fácil que lo qrregles tú ¿No? En un archivo con tantas columnas solo tú sabes cómo y dónde pegarlos, pero vamos... lo más lógico es copiar/pegar en un mismo sitio.

Para lo de los títulos mira el rango que hay en la línea con "ws1.Range(aqui).ClearContents"

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Posts

    • Nunca debes utilizar los textbox, la función Val(), ni la función Format() en los cálculos, utiliza las variables y las funciones de conversión del tipo adecuado. He añadido un pequeño calendario.   PRUEBA1.xlsm
    • Hola @Greysi! Pude armar este listado en base a la información contenida en esta página. El Listado parece bastante completo (47.940 ciudades), al margen de ciertas excepciones (como Argentina que solo tiene 38 ciudades jajajaja) y contiene muchos nombres en inglés. Espero te sirva! Abrazo! Paises-Estados-Ciudades.xlsx
    • el inconveniente es , que deseo ingresar los datos en los textbox con separador de miles y que me ejecute los cálculos correspondientes 
    • gracias por la atención prestada. ingreso un valor en un textboxt (credito), y en otro le coloco los dias en que se va a demorar en devolverlo calculando asi +PRUEBA1.xlsm un interes de el 10% 
    • Saludos BigPetroman, te comento, el archivo que bajaste no tiene la modificacion, ya que cuando lo subi no tenia idea de como hacerlo. Despues de subir el archivo, busque informacion sobre el siguiente comentario que realizaste. Y logre hacer que funcionara, asi que puse el codigo de lo que habia hecho para que me dieran su opinion. Aunque el codigo realiza la validacion, no funciona del todo como yo queria. Ya que lo logico seria que al capturar el serial, haga la validacion y muestre un mensaje indicando que el serial ya esta auditado. Pero, la validacion, o aviso de serial ya auditado, lo muestra despues de apretar el boton "Anotar Entrada" De todos modos, anexo el archivo para que veas lo que logre. Los seriales los tomo de la Hoja "Laptop", asi que si el serial esta en esa hoja, no deja ingresar el valor en la Hoja "Reg. N_Auditados". Es decir, hace bien el trabajo... Agradecido de antemano, y pido disculpas si mi comentario genero confusion. Equipos No Auditados.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy