Requiero agarrar la informaciónd e un archivo de texto y llenar todo en un excel para crear un pdf personalizado.
Sub LlenarCotizacion()
Dim Datos As Worksheet, Cotizacion As Worksheet
Dim Producto As Range, Cantidad As Range, PrecioUnitario As Range, Total As Range
Dim i As Integer, j As Integer, k As Integer
'Abrir los archivos de Excel
Set Datos =
Workbooks.Open("Ruta\Datos de
Cotizacion.xlsx").Worksheets("Hoja1")
Set Cotizacion =
Workbooks.Open("Ruta\Template de
Cotizacion.xlsx").Worksheets("Hoja1")
'Recorrer la lista de productos y precios en Datos de Cotizacion
For i = 2 To
Datos.Range("A" &
Rows.Count).End(xlUp).Row
Set Producto =
Datos.Range("A" & i)
Set PrecioUnitario =
Datos.Range("B" & i)
'Buscar el producto correspondiente en la cotización
For j = 2 To
Cotizacion.Range("A" &
Rows.Count).End(xlUp).Row
If
Cotizacion.Range("A" & j) = Producto Then
Set Cantidad =
Cotizacion.Range("B" & j)
Set PrecioUnitario =
Cotizacion.Range("C" & j)
Set Total =
Cotizacion.Range("D" & j)
'Calcular el total
Cantidad.Value = InputBox("Ingrese la cantidad para el producto " &
Producto.Value)
Total.Value =
Cantidad.Value *
PrecioUnitario.Value
End If
Next j
Next i
'Guardar y cerrar los archivos de Excel
Datos.Parent.Save
Cotizacion.Parent.Save
Datos.Parent.Close
Cotizacion.Parent.Close
End Sub
[0:49 p. m., 12/5/2023] arleal: Si tienes un archivo de texto con la información de una cotización, puedes utilizar las herramientas de pivotaje en Excel para transformar los datos en un formato de tabla con las columnas y filas necesarias para generar una cotización con el formato deseado. Sigue estos pasos para pivotear los datos:
Abre Excel y haz clic en la pestaña "Datos".
En la sección "Obtener datos externos", haz clic en "De texto/CSV" y selecciona el archivo de texto con la información de la cotización.
En el cuadro de diálogo "Asistente para importar texto", selecciona la opción "Delimitado" si el archivo de texto está separado por comas o tabulaciones. Si el archivo de texto está en formato de ancho fijo, selecciona la opción "Ancho fijo".
Asegúrate de que los encabezados de columna estén marcados como "Mi tabla tiene encabezados". Haz clic en "Siguiente".
En el paso 3 del asistente, asegúrate de que todas las columnas estén seleccionadas y luego haz clic en "Finalizar" para importar los datos a Excel.
Con los datos importados, haz clic en la pestaña "Insertar" y selecciona "Tabla". Marca la casilla "Mi tabla tiene encabezados" y haz clic en "Aceptar".
Con la tabla creada, puedes utilizar la herramienta de "PivotTable" en la pestaña "Insertar" para pivotear los datos según tus necesidades. Selecciona las columnas que deseas agregar a la tabla pivote y arrástralas a los campos de fila y columna según corresponda. Utiliza las funciones de suma, promedio o conteo para agregar datos numéricos y agruparlos por categorías.
Con la tabla pivote creada, puedes utilizar el formato y diseño que desees para crear una cotización con el formato deseado. Asegúrate de guardar el archivo en un formato compatible con el software o sistema que utilizarás para compartir la cotización.
Con estos pasos, deberías ser capaz de pivotear los datos de un archivo de texto en Excel y generar una cotización con el formato deseado.
[0:53 p. m., 12/5/2023] arleal: En VBA, para leer un archivo en la nube y seleccionar filas y columnas para rellenar otro archivo, se pueden utilizar las funciones y métodos de Excel. A continuación, te presento un ejemplo de cómo hacerlo:
Conectarse a OneDrive: En primer lugar, es necesario conectarse a OneDrive para poder acceder al archivo. Para ello, se puede utilizar la función
Workbooks.Open de Excel y especificar la ruta de la carpeta de OneDrive.
Seleccionar las filas y columnas: Una vez que se ha abierto el archivo, se puede utilizar el método Range de Excel para seleccionar las filas y columnas deseadas. Por ejemplo, para seleccionar la columna A y las filas de la 2 a la 10, se puede utilizar la siguiente línea de código:
mathematica
Copy code
Selection.Copy
Workbooks("
NuevoArchivo.xlsx").Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
Este es solo un ejemplo básico de cómo utilizar VBA para leer un archivo en la nube y seleccionar filas y columnas para rellenar otro archivo. Es importante tener en cuenta que se pueden utilizar diferentes métodos y funciones de Excel para personalizar y ajustar el código según las necesidades específicas.
Contexto general del proyecto
Requiero experto de excel para tener algo especifico para templates y que se copie info de un lado a otro.
Plazo de Entrega: 31 Mayo, 2023