Jump to content

cenrueda

Members
  • Content Count

    4
  • Joined

  • Last visited

  1. Hola Anexo archivo de prueba. con respecto a la pregunta manifestada. cruces.xlsx
  2. Hola tengo la siguiente situación, un libro de trabajo con dos hojas, en la hoja cruces tengo la columna nombre y precio lista, y en la hoja datos tengo información que contiene el nombre del producto, y el precio, resulta que debo de colocar el precio en la hoja de cruces, dependiendo del nombre respectivo, el problema es que con un simple buscarv no funciona, ya que los nombres no son iguales y por consiguiente no coinciden con una columna en común, alguien me podría por favor orientar acerca de que funciones pudiera trabajar. Agradezco de antemano sus valiosas ayudas.
  3. Hola Abraham gracias por su amable colaboración, efectivamente solucione el problema. Un abrazo
  4. Hola tengo la siguiente situacion, debo de importar n cantidad de archivos txt que se encuentran en 5 carpetas, cada archivo txt tiene un numero variable de registros los cuales estan separados por comas( , ) si yo ejecuto la macro, en el campo de la fecha me quedan con el formato mes/dia/año los primeros registros y el resto de registros quedan tal cual como estan en el arhivo plano que es dia/mes/año. Pero si yo realizo la importacion directamente desde el menu -> Datos\desde el texto/scv Hay si quedan todos los registros con la fecha tal cual dia/mes/año. Esto es para cada uno de los archivos txt que se encuentren dentro de cada carpeta. Agradezco la colaboración. Private Sub CmdImportarPlanos_Click() Dim archivos, valor As String Dim nvalor As String Dim cont, ultimalinea As Long Dim rango, numid, primapell As Variant Application.ScreenUpdating = False 'No hace refresco de pantalla For Each subcarpeta In carpeta.subfolders Workbooks.OpenText subcarpeta & "\al*.txt", DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _ , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _ True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _ Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1)), _ TrailingMinusNumbers:=True End Sub ALFA226.txt ALFA222.txt
×
×
  • Create New...

Important Information

Privacy Policy