Jump to content

SALAVERRINO

Members
  • Content Count

    277
  • Joined

  • Last visited

About SALAVERRINO

  • Rank
    Advanced Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Buenas tardes a los integrantes de este prestigioso foro, en esta ocasión recurro a uds para solicitar su apoyo en como mejorar las siguientes formulas que detallo a continuación: formula desarrollada en celda Q2: =SI.ERROR(SI(G2="";"";SI(G2=AAA;BUSCARV(G2;BASE_AUXILIAR!$B$8:$B$47;1;FALSO);));E2) Utilice: Nombre de Rango: AAA (base_auxiliar D2:D7) y para BUSCARV (base_auxiliar B8:B47) y se hay mejor opción de mejora acepto ideas. Y es ahí donde quisiera usar Función SI y Función BUSCARV como se aprecia la formula en celda S2 o quizás haya otro método. FUNCION SI CON BUSCARV.xlsx
  2. Buenos días @avalencia la PC la trabajo únicamente yo en modo personal, y lo que paso es actualizaron el windows y office automáticamente, y como indicas ahi fue el problema para ejecutarse la macro, la única forma sería desinstalar el office y volver a instalar y esperar que funcione el archivo y sino pasa nada ahi, ya seria windows.
  3. Buenas noches @avalencia, adjunto link (imágenes) del error al ejecutar la macro, pero lo curioso es que estos archivos inicialmente se ejecuto en mi pc sin ningún problema con windows 10 (64 bits) y office 365 (32 bits) un aproximado de 2 semanas y luego ya comencé con los errores y por la tarde lo ejecute en otra maquina con windows 10 (64 bits) y office 2016 (32 bits) y si se ejecuto sin inconveniente alguno. Saludos y espero comentarios. https://drive.google.com/file/d/1bK2jAlIxr4kjOEYNrv7-zRLaZwGsVwKI/view?usp=sharing https://drive.google.com/file/d/1W9rch6cetE7FP2laZHXiT0XuAI79aCe1/view?usp=sharing
  4. Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como solucionar el ERROR en la siguiente instrucción que detallo, los archivos estuvieron trabajando sin ningún problema, pero haces 2 días comenzó con a fallar Error ejecución. Set objWord = CreateObject("Word.Application") Siendo la macro original: Sub tablaaword() patharch = ThisWorkbook.Path & "\CARTA FAPOSA.docx" Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0 Worksheets("TELECREDITO").Range("A1:D7").Select Selection.Copy textobuscar = "[tabla_excel]" objWord.Selection.Move 6, -1 'moverse al principio del documento objWord.Selection.Find.Execute FindText:=textobuscar While objWord.Selection.Find.found = True 'reemplaza el texto, y busca si hay otro para reemplazarlo objWord.Selection.PasteExcelTable False, True, False objWord.Selection.Move 6, -1 objWord.Selection.Find.Execute FindText:=textobuscar Wend objWord.Activate End Sub Desde ya agradezco su apoyo y colaboración. Saludos.
  5. Hola @Haplox gracias por el aporte brindado el cual me ayudo mucho a tener una copia de lo que quería y conservando la misma información dentro del mismo archivo, porque había echo varios intentos y nada, lo único que gane es si tengo otro archivo abierto este se vuelve abrir por si solo y eso no es lo requerido, por lo que con esta solución daría como TEMA SOLUCIONADO. Gracias.
  6. Buenas tardes a los integrantes de este foro, pude solucionar el problema de como Combinar datos de Tabla de Excel a Word, para lo cual comparto la rutina. Anterior: Worksheets("TELECREDITO").Range("A1:D7").Select Actual: Worksheets("telecredito").Range("a1").CurrentRegion.Copy por lo que daria como TEMA SOLUCIONADO.
  7. Buenas tardes a los integrantes de este foro, recurro a uds para que me brinde su apoyo en como hacer que en la Barra de estado de Excel, muestre el tiempo de ejecucion que se describe en la macro que se adjunta, ya que he visto ejemplo donde mencionada por "Porcentaje", desde ya agradezco su apoyo y colaboración. Sub Reloj() Application.ScreenUpdating = False ActiveWorkbook.Save Application.OnTime Now + TimeValue("00:00:30"), "reloj" Application.ScreenUpdating = True End Sub Saludos.
  8. Buenas tardes a los integrantes de este prestigioso foro, en esta ocasión de recurro a uds, para que me brinden su apoyo en como mejorar la macro que detallo los códigos VBA y lo que se pretende es grabar en forma automática una hoja determinada (pestaña "BASE"), desde ya agradezco su apoyo. ThisWorkbook: Private Sub Worbook_Open() Application.OnTime Now + TimeValue("00:01:00"), "savebook" End Sub Módulo21: Sub savebook() ActiveWorkbook.Save Application.OnTime Now + TimeValue("00:01:00"), "savebook" End Sub link del programa: https://drive.google.com/file/d/1oF-UFzIkB2Z5Nhxk70OTxUqzS7XUAciW/view?usp=sharing
  9. Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como mejorar la siguiente macro que describo a continuación, dicha macro permite exportar dicha información a una plantilla en diseñada Word, pero mi problema esta en dicha tabla no solamente puede contener 6 filas sino muchas en la sentencia: Worksheets("TELECREDITO").Range("A1:D7").Select y lo que se requiere es dicha tabla que está en Excel exporte la cantidad de filas que contenga a la plantilla del archivo Word en forma automática y que el siguiente párrafo del archivo Word no sea alterado para lo cual adjunto imagen, también quisiera saber como puedo que la macro se ejecute desde una pestaña diferente, ya que esta macro solo se puede ejecutar desde la misma pestaña. Espero haber explicado de lo que se requiere obtener como resultado. Sub tablaaword() patharch = ThisWorkbook.Path & "\CARTA FAPOSA.docx" Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0 Worksheets("TELECREDITO").Range("A1:D7").Select Selection.Copy textobuscar = "[tabla_excel]" objWord.Selection.Move 6, -1 'moverse al principio del documento objWord.Selection.Find.Execute FindText:=textobuscar While objWord.Selection.Find.found = True 'reemplaza el texto, y busca si hay otro para reemplazarlo objWord.Selection.PasteExcelTable False, True, False objWord.Selection.Move 6, -1 objWord.Selection.Find.Execute FindText:=textobuscar Wend objWord.Activate End Sub https://drive.google.com/file/d/1709P9wNFjehbOrElGqBqe4558Fufp-ko/view?usp=sharing https://drive.google.com/file/d/103fAoh-NhaGpD40YO3uQEhtQeCtT1BWy/view?usp=sharing https://drive.google.com/file/d/1mNRhxmC51bdZaS4GmwFdgXxUlEhgYEoz/view?usp=sharing Y desde ya agradezco su apoyo y colaboración.
  10. Buenos días @johnmpl @Gerson Pineda @Snake, por los aportes brindados, los cuales me ayudaron mucho a solucionar le problema que tenia, por lo que daría como TEMA SOLUCIONADO.
  11. Buenas tarde a los integrantes de este foro, en esta ocasión recurro a uds para que me brinde su apoyo con alguna formula o macro la cual se requiere convertir la cuenta CCI ubicada en la columna B4 (resaltado de color ROJO) y que el resultado obtenido sea como la que se muestra en la columna E4, para lo cual adjunto archivo. Desde ya agradezco su apoyo y colaboración. CONVERSION DE CUENTA.xlsx
  12. Buenos días @avalencia y @huatson70 por los aporte brindados, los cuales me ayudaron mucho a solucionar este impase que tenia, por lo que agradeciendo su apoyo y colaboración, daría el TEMA COMO SOLUCIONADO.
  13. Hola @avalencia, de acuerdo al archivo y los criterios indicados qué son 6, como podría hacer o qué tipo de método podría usarse. Saludos.
  14. Buenos días a los integrantes de este foro, en esta ocasión recurro a uds, para que me brinde su apoyo en como mejorar la macro que estoy utilizando “filtro avanzado” para lo cual se viene desarrollando la búsqueda de solicitados: Fecha Inicio - Kilos – Cliente – Producto – Barco, pero ahora me solicitan que agregue el campo Fecha Termino (como criterio de rango), para lo cual el nuevo diseño seria Fecha Inicio Fecha Termino Kilos Cliente Producto Barco Y como se aprecia en la hoja DESPACHO se tiene una pequeña base de datos en donde se solicita filtrar al cliente GRAVISO S.A.C. teniendo como registro de productos desde el 26-05-18 al 21-09-18, pero me solicitan que sea como criterio de rango desde el 26-5-18 al 04-08-18 bajo el criterio cliente GRAVISO S.A.C. o cualquiera de los criterios señalados, para lo cual adjunto link del archivo, espero haber explicado. https://drive.google.com/file/d/19YU2OXYB_urKGn9Tcof4GMRyFOL7vRbE/view?usp=sharing Desde ya agradezco su apoyo y colaboración.
  15. Buenos dias @isidrod desde ya agradezco el aporte brindado el cual me ayudo mucho, por lo quedaría como TEMA SOLUCIONADO. Gracias.
×
×
  • Create New...

Important Information

Privacy Policy