Buen día a todosAlguien me podría ayudar con esta macro, lo único que quiero es agregarle un mensaje, que cuando busca y no encuentra ningún registro; me diga que no lo encontróDeje la macro.. desde ya muchas graciasPrivate Sub CommandButton1_Click()ListBox1.ClearIf IsDate(TextBox1) Thenbuscar = CDate(TextBox1)Elsebuscar = TextBox1End IfIf buscar = "" Then Exit SubWith Worksheets("RUCs empresas").Range("D:D")Set esta = .Find(buscar, LookIn:=xlValues)If Not esta Is Nothing Thenprimeracelda = esta.AddressDoListBox1.ColumnCount = 3ListBox1.AddItem ""ListBox1.List(ListBox1.ListCount - 1, 0) = esta.AddressListBox1.List(ListBox1.ListCount - 1, 1) = estaListBox1.List(ListBox1.Li…

Hola a todos, soy novata programando con VBA, por favor me pueden ayudar? Sub Captura_Datos6() Sheets("Reporte-DR").Select Range("A9").EntireRow.Insert (Me salta error acá) Sheets("DRENAJE DE COMPRESORES").Select Range("C9").Copy Sheets("Reporte-DR").Select Range("A9").PasteSpecial xlPasteValues Sheets("DRENAJE DE COMPRESORES").Select

Buenas tardes, por aqui me encuentro preguntando nuevamente. Tengo un libro de excel normal que ejecuta un macro que me abre un libro compartido, esta es la macro: Sub Abrir_y_Ocultar_Libro() Dim xls As New Excel.Application xls.Workbooks.Open Filename:="C:\Datos\Datos.xlsx" xls.Visible = False End Sub Ahora tengo dos preguntas, cómo puedo hacer otra macro que me lo cierre este libro? y otra, alguna macro que me guarde el libro? o lo active para poder guardar datos en el? Gracias de antemano

Buenos días colegas. Espero se encuentren con excelente salud. Hace quizás un par de días consultaba sobre la eliminación de caracteres "extraños" en un archivo y los profesores JSD y Antoni me dieron soluciones maravillosas, pero necesito otra ayuda de ustedes. He tratado de convertir los números en texto a números y no he podido lograrlo. Lo hice con la función Sustituir por si hubiera algunos espacios de más, con el Texto en columna, lo multiplique x 1, le sumé +0, lo trate con un ciclo For Each, creando una variable Celda de tipo Range y un condicional If/End if y nada. Por favor, si fuera tan amables de sugerirme algo que no haya probado. Agradecido c…

Hola! amigos del foro quisiera solicitarles el apoyo con lo siguiente: me encuentro tratando de encontrar la forma que pueda exportar datos de excel a access, estoy intentándolo con la siguiente macro: Sub CopiaDatos() Dim fila As Long, uf As Long, conta As Long Dim cn As ADODB.Connection, rs As ADODB.Recordset On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set a = ActiveSheet Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\171 ProgramarExcel.accdb;" rs.Open "Clientes", cn, adOpenKeyset, adLockOptimistic, adCmdTable f…

Buen dia, a todos, soy nuevo en este foro y tambien en excel 2010...soy usuario de excel pero a nivel de crear macros, me ha resultado muy complicado crear incluso esta. la cual pido su asesoria. explico: debo extraer o mejor copiar los datos desde un hoja excel que nos envian y pegarlos en otra hoja pero resulta que el origen es bastante desordenado y no encuentro la forma de hacerlo bien. cuando intento crear una macro solo copia lo primero que indico y lo segundo no aparece. ojala y puedan ayudarme... adjunto un archivo con una copia tipo y datos, ademas una hoja con los datos como deben quedar para ser analizados. talvez les parezca simple. pero yo como les explique…

Hola amigos. Estoy trabajando esta macro para copir unos datos de excel a texto, mi duda es: ¿habrá forma de que al hacer esta tarea la macro me solicite seleccionar manualmente el rango deseado? En la macro tengo señalado por defecto toda la columa "D", pero en ocasiones lo requiero de "D1:D10" de "D9:20", son rangos variables. ¿se puede seleccionar manualmente el rago deseado? sub PasarATXT() Application.DisplayAlerts = False inihoj = ActiveSheet.Name nomfic = InputBox("Nombre del Archivo de texto") nomfic = nomfic & ".txt" Sheets.Add neohoj = ActiveSheet.Name Sheets(inihoj).Select Columns("D:D").Copy Sheets(neohoj).S…

Buenos días amigos Escribo nuevamente a petición de una consulta o ayuda, manejo una base de datos la cual es usada por varios usuarios novatos en la empresa, a esta base le quiero adaptar una macro que guarde una copia del mismo archivo al momento de aperturar y al momento de cerrarlo, debe tener dos condiciones como indique al momento de su apertura este guarde una copia con su "nombre original, el dia y la escritura de apertura", y lo mismo al momento de cerrar. estos en una ruta especifica, esto por si algun cambio guardado debo reversar saber cual archivo usar. Private Sub Workbook_Open() ThisWorkbook.SaveCopyAs "Z:\Relacion laboral\GUARDERIA\copia-apertu…

Buenas necesitaria poder fusionar 3 hojas de excel, en las cuales el titulo sea "Seguimiento_" seguido del texto que sea. Intente hacerlo con una macro pero solo consigo que fusione 2 de las 3 hojas. Necesitaría que en la hoja fusionada se ordenasen por la columna cliente y persona de a la a la z. En la hoja de seguimiento anual dejo un ejemplo con una de las personas y la explicación de lo que necesitaría, no se si seria posible probé con varias macros y nada. Muchas gracias un saludo. Organización Formaciones Centro.xlsx

Buenas tardes y gracias de antemano por la ayuda. tengo un libro de excel que lo quiero usar para controlar el flujo de documentos dentro de la empresa y mi consulta es la siguiente. la hoja 2(recepcion callao) se ingresan los datos de la factura en la celda L4 con cabecera area de envio va a tener 3 valores los cuales son contabilidad, costos y tesoreria. lo que necesito es que en base a una función macro si en la celda L4 dice contabilidad toda la fila desde A4 hasta K4 pase a la hoja 5 (contabilidad), o si dice costos que pase a la hoja de costos, este procedimiento se debe repetir conforme se vaya agregando mas items en las filas osea con cada documento que llega y e…

Buen dia, he estado realizando un pequeño reporte en el cual recopilando algunas macros de la web, n este caso lo que quiero es que se realice un reporte de que usuarios hanutilizado el archivo excel en un comienzo me salia "error ambiguo por usar un comando dos veces pero despues al unir las acciones en un solo comando me volvio a salir otro error que es el tema que pongo a su concideracion para que me puedan ayudar que es el de error en tiempo de ejecucion en la formula siguiente que me resalta en amarillo: Sub Iniciar() Set AppObject.AppEvents = Application End Sub [/HTML] en dicha instruccion se detiene las macro y no se ejecuta; el comando que uni para que no me…

Buenas tardes, en un UserForm tengo una lista desplegable (ComboBox) y, obviamente, para desplegarla tengo que clicar en la flecha que tiene a la derecha. Sin embargo, me gustaría saber si hay alguna forma de hacer que se despliegue clicando en cualquier lado de la lista, sin tener que darle justo a la flecha. ¿Es posible hacer esto? Gracias.

Hola a todos: Tengo duda en si se puede hacer que un libro de excel se guarde periodicamente en pdf. esto es: Que el dia 15 y 30 de cada mes se guarde una copia en una carpeta asiganda. Muchas gracias

Hola a tod@s. Gracias por su tiempo para con esta breve consulta. Tengo una macro personal que esta protegida. Sin embargo, averiguando por la web hay programas que pueden quitar la contraseña. Hasta el momento ese programa puede hacerlo en versiones de excel 2007-2013. Ya que en la versión 2016 no es factible. Ahora, seguramente se desarrollaran o ya están en la web más programas para desbloquear la contraseña en macro personal. Por lo tanto, obviamente, hay que insertar una clave que contenga mayúsculas, minúsculas, números y símbolos. Entonces, necesito saber si será suficiente, aunque sé que no al 100%, pero me gustaría leer de sus recomendaciones de parte d…

Buenas. Vereis quiero realizar una macro que, cuando el usuario clickee el botón de guardar como aparezca en el diálogo un nombre de archivo, a modo de sugerencia, distinto al que posee el propio archivo. He intentado lo siguiente: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.Dialogs(xlDialogSaveAs).show ("Nombre sugerido.xlsx") End Sub [/CODE] pero lo que obtengo es que, una vez guardado el archivo, me pide volverlo a guardar y me gustaría evitar eso. También había pensado en, por medio de la macro, guardar el archivo en alguna parte (windows/temp por ejemplo) con el nombre que yo sugiero y luego hacer aparecer …

Buenas tardes a los integrantes de este prestigioso foro, en ocasión recurro a Uds, para que brinden su apoyo con la siguiente macro, a la cual quiero que en la barra de estado cuente la cantidad registros que se encuentran en la pestaña PLANILLA que empieza en la celda AZ8 hasta la AZ2507 y por cada archivo que van generando en PDF indique 1 de 19, 2 de 19, .... hasta llegar a 19 de 19, desde ya agradezco su apoyo y colaboración. Sub ElegirAccion() Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim nombre As String Dim pass As String, hoja As St…

Saludos: Gracias de antemano por su ayuda cada vez que me tranco. En esta ocasión tengo unos informes que se alimentan de una Tabla Master la cual reside en el mismo Workbook. Las fórmulas de estos informes están en cada celda (vlookup, countifs, sumifs, etc.). De esta manera todo funciona correctamente. Pero ahora queremos mover la Tabla Master a Access y que Excel se alimente de esa Tabla Master desde Access. Esto lo logré con este código: Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim l As ListObject Dim q As QueryTable Dim s As String hojUsr_TablaMaster.Cells.Delete 'CONEXION A LA BASE DE DATOS s = "OLEDB;Pro…

Buen dia Estoy trabajando en un formulario que permite elegir al usuario de una lista de marcas y modelos. La idea es que el usuario al elegir una seria de marcas, se muestre otra lista con los modelos de auto correspondientes a las marcas q eligio. Tengo un problema, necesito que el usuario puede segmentar por marca-modelo, pero si lo desea puede elegir solo marcas sin necesidad de elegir también modelos. Como puedo hacer esto? adjunto lo que llevo del formulario Gracias AyudaMarcaModelo.zip

Hola a todos, como estan? estoy con un problema que me viene trabando hace dias!!!! y no le encuentro solucion...estoy desesperada... Tengo un archivo con varios formularios, para una ong que estoy ayudando de cuidado ambiental... uno de los formularios en el archivo "FotosOVideosPorCarpeta, permite seleccionar atraves de un boton una carpeta, y obtener en la Hoja13 o " FotosEtiquetadas" todos los datos de los archivos que estan ahi contenidos, como ser tipo de archivo nombre, tamaño etc, pero tambien extrae la informacion de otros atributos que se suele llamar informacion exif de esas fotos, que se añaden como keywords o etiquetas... hasta ahi estamos super...…

Buenas Terdes, Tengo el archivo adjunto, el cual tiene un formulario, pero me gustaria saber como hacer que cuando escriba en el texbox1 se vaya mostrando los demas numeros a completar, por ejemplo si escribo 51 salga en un listbox todos los codigos que empiecen con 51, es posible? Muchas Gracias, Copia de O COMPRAA -13.xls

Hola amigos, paso a explicarles un tema que me surgió con mi software comercial. El sistema tiene un reconocimientos de códigos nuevos al actualizar una lista de precio. Al actualizar me pregunta el sistema si deseo generar un excel con los artículos nuevos. Al guardarlo, veo que me genera la misma planilla de importación que uso habitualmente pero la columna descripción no. Quiero saber como puedo tomar esa descripción desde el archivo original. Adjunto archivos de ejemplo EXPORTA_SISTEMA.xlsx libroOriginal.xlsx

Les explico a ver alguno me puede ayudar en donde esta el monto ocupo que salga de la siguiente manera 961,768.38 es decir separado por miles y solo dos decimales. adjunto archivo para ver si alguno de ustedes me puede ayudar. favor excel.xls

Hola, es mi primer pregunta en este sitio web, pero he leído muchas respuestas que me han ayudado a aprender mucho. Tengo un formulario que almacena datos de unos usuarios, y necesito que se mediante un botón se pueda tomar una foto (donde una web cam y también de otros dispositivos) y la guarde en el disco. Estoy trabajando en un formulario creado en excel y uso vba para la programación. Muchas gracias por adelantado.

Hola a todos: Estoy intentando manejarme con las macros.. y bueno he conseguido por ahí algún código semejante a lo que quiero hacer pero con el problema de no entenderlo en su totalidad, a la hora de buscar información me cuesta mucho, eso si lo consigo (puede que sea por torpeza) averiguar qué significa el código y quería preguntar si existe en algún sitio alguna especie de guía o referencia para los distintos objetos, métodos, etc.. donde quede reflejado su uso y significado de sus parámetros. Pongo un ejemplo de lo que no he sido capaz de encontrar en el siguiente código: With ActiveSheet.QueryTables.Add( _ Connection:="TEXT;" & sPath, _ …

Buen día para todos.... he creado un formato de bono el cual todo esta bien solo que los controles de formulario (en la hoja llamada 1) al ejecutar una macro (específicamente la de guardar todo el libro en el formulario llamado Save As PDF) y vuelvo a la hoja 1 los formularios no están en el sitio donde quiero que estén, inclusive hasta el tamaño se cambia. He intentado de todo en el formato de ellos bloqueándolo para que se queden quietos independiente si la celda se mueve o no pero nada!!... agradezco de ante mano la persona que dedique tiempo a mi caso Adjunto el archivo. Gracias! Formato Bono.rar