Buenos días estimados Quería solicitarles si me pueden ayudar con un código, debe ser simple, pero yo soy un novato en esto. Tengo en la Hoja1 tres columnas con datos, A tiene Fechas, B y C contienen números. Me gustaría hacer un bucle en donde los valores las celdas de la fila 1 se copien en determinadas celdas de la hoja2 y luego exportar hoja2 en pdf. ej. Hoja1 celda A1 en Hoja2 celda F5 Hoja1 celda B1 en Hoja2 celda D3 Hoja1 celda C1 en Hoja2 celda B2 y exportar hoja2 en pdf luego la siguiente fila Hoja1 celda A2 en Hoja2 celda F5 Hoja1 celda B2 en Hoja2 celda D3 Hoja1 celda C2 en Hoja2…

Buenos días colegas. Espero se encuentren bien de salud. Tengo un pequeño problema. En uno de mis proyectos puse un código para que al cierre del día 30/09/2022 el libro no pudiera abrirse y no me di cuenta de eso, por lo que hoy no pude entrar al sistema y no sé como puedo hacer para poder lograr llegar hasta VBE para modificar la macro. No puedo cambiar la fecha al sistema porque eso es a través del informático y tampoco está hoy acá y necesito de urgencia poder acceder al Proyecto. Gracias de antemano. Un abrazo Pino

Estimados buenas tardes. Agradecería su colaboración con el siguiente caso Tengo una ListBox en la hoja "Distribución" ( se activa con clic en la celda K:2) que trae la información de la hoja "Transformación" celdas "L5:S102" estas celdas contiene formulas. Al momento de activar el ListBox, selecionar y dar doble clic para que la información baje al excel no envia la información de la linea selecionada. Realice una prueba eliminando las formulas de la hoja "Transformación" celdas "L5:S102" ahí me funciona la ListBox. En resume el inconveniente de selección se da al momento de colocar formulas en la hoja "Transformación" celdas "L5:S102" …

HOLA!! TENGO UN PROBLEMA CON UNA MACRO. ES LA SIGUIENTE: (lo que tengo que hacer es que me corra la macro simulaventasdia todas las veces que sean necesarias hasta que i3 y i4 sean iguales. Y luego que en la celda I15 me escriba la cantidad de veces que se simulo hasta llegar a eso. Sub hastaMismaPosicion() Dim c As Integer c = 0 Range("I4").Value = -1 While Range("I3").Value <> Range("I4").Value Call simulaVentasDia c = c + 1 Wend Range("I15").Value = c End Sub ---------------------------------------- EL PROBLEMA QUE TENGO ES QUE CUANDO LA CORRO, ME IGUALA …

Buenos dias: Es sorprendente el buscador, me gustaria poder adaptarlo a mi base de datos, pero en el codigo no encuentro ninguna referencia a celdas ni nada por el estilo, por lo cual me es imposible adaptarlo. Subo un ejemplo de data base y si me podes explicar por favor el procedimiento te lo agradeceria mucho. Es por el buscador tipo Google II. PERSONAL.xls

Buenas, Me gustaría encontrar una macro o función que me permita buscar en el texto de una celda y en función de lo que encuentre devolver un valor u otro. Por ejemplo... si el valor de una celda es "Carlos"... la fórmula podría buscar si es "arlos" y devolver un "Hola Carlos", pero si el valor es "Luis Manuel"... poder buscar también "Luis" y que te devuelva "Hola Luis"... Es como concatenar varios IF de texto (usando *) y que te devuelva un valor u otro dependiendo de lo que encuentre... ¿Alguien me puede ayudar? Muchas gracias

Saludos a todos, Ya voy cerca de 4 horas en el foro y no encuentro un tema similar pero si muchos ejemplos que me son de utilidad, al grano; quisiera saber si por medio de una macro de EXCEL en VBA, se pueda crear un archivo *.ZIP , ojo que no comprima ningun archivo o similar, que haga nada, simplemente que cree un archivo *.ZIP vacío. Del mismo procedimiento como crear una carpeta, pero en vez de ello crear un ZIP. Desde ya gracias por su tiempo y a la espera de sus respuestas. PD: no adjunto archivo porque no tengo alguna muestra o similar para adjuntar

Hola Mi problema es el siguiente: Estoy creando una base de datos para una coleccion de libros electronicos con la que se puede localizar un libro y abrirlo para leerlo en el PC hasta ahi vamos bien, pero tambien quiero otra opcion que sea abrir la carpeta contenedora y seleccionar el libro elegido (tengo cientos de libros en la carpeta) pero sin abrirlo por si lo quiero copiar para descargarlo a un ebook. Abro la carpeta pero luego no se como marcar el libro elegido (si se puede hacer) Saludos y gracias Buscador.zip Buscador.zip

Buenos dias A ver si me podeis ayudar por favor Tengo una columna con 10.000 celdas, quiero dsitribuirlo en columnas de 500 celdas sin tener que copiar y pegar, que lo pueda hacer automaticamente el excel con una macro. Gracias

Este tema aparece como pendiente, pero cuando vas a contestar, aparece como cerrado: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/formulario-sub-function-25739/ Esta sería la respuesta Private Sub UserForm_Activate() Me.Caption = "PROVEEDORES" CommandButton1.Caption = "Nuevo proveedor" [color=#ff0000][b] actualiza_y_carga '<========== Este procedimiento no existe[/b][/color] End Sub [/code]

Buenas tardes. soy nuevo en este magnífico foro que he encontrado. Mi consulta es la siguiente: tengo una hoja excel donde en la columna "A" hay nombres de clientes aunque alguna celda está vacía correspondiendose con el nombre de cliente de la inmediata anterior según fichero adjunto Tengo ya una macro creada con el grabador de macro que me suma los valores de la columna "C" cuando me posiciono sobre la celda "A" que está vacía. el problema es que también (obviamente) se ejecuta la macro si el cursor está en una celda que no está vacía. ¿Me podéis decir qué tendría que insertar en la macro ya realizada) Muchas gracias demo.xls

Hola primero que nada gracias de antemano Soy nuevo con las macros y quiero copiar varias columnas y pegarlas en otra hoja del mismo libro en celdas especificas, el tamaño de la columna puede variar desde 1 fila hasta 100 mas o menos es decir, ya que la macro la quiero utilizar para varios archivos

hola buen día se me olvido mencionar un tema en el foro anterior que me puede ayudar a resolver el inconveniente pero no se como hacerlo enserio agradeceria mucho la ayuda deseo programar una macro en excel para hacer el siguiente ejercicio: Hoja 1: [TABLE=class: cms_table_grid, width: 500] [TR] [TD][/TD] [TD]fecha[/TD] [TD]cola[/TD] [TD]colb[/TD] [TD]colc[/TD] [/TR] [TR] [TD]fila1[/TD] [TD]01/ene/2013[/TD] [TD]a[/TD] [TD]1[/TD] [TD]1[/TD] [/TR] [TR] [TD]fila2[/TD] [TD]01/ene/2013[/TD] [TD]b[/TD] [TD]1[/TD] [TD]0[/TD] [/TR] [TR] [TD]fila3[/TD] [TD]01/ene/2013[/TD] [TD]c[/TD] [TD]1[/TD] [TD]1[/TD] [/TR] [TR] [TD]fila4[/TD] [TD]01/ene/2…

buenos dias, tengo un reporte de presupuesto y necesito filtrar los valores por cuentas y colocar el valor de cada cuenta en la hoja "total por cuentas", asi como tambien cada centro de costos en la hoja "total". tambien tengo un filtro en la hoja total por cuentas pero realiza la accion pero no los filtra, me podrian ayudar por favor a ver donde estoy trabajando mal. Estoy usando este codigo Private Sub CommandButton1_Click() Dim ufl As Integer Dim uf As Integer ufl = Sheets("DESCRIPCION").Range("C" & Cells.Rows.Count).End(xlUp).Row + 1 Sheets("DESCRIPCION").Range("C5:Q" & ufl).ClearContents uf = Sheets("REPORTE").Range("C" & Cells.Rows.Count)…

Hola Buen día He visto que es posible mediante un código evitar hacer copias de un archivo de excel o mejor dicho que si el archivo se mueve de la ubicación en la que esta simplemente no funciona o si se copia sin el archivo al que esta vinculado. ¿cómo puedo hacer para que el archivo solo se utilice en una usb? Este código es cortesia de Julibaga, y quisiera saber como modificarlo para aplicarlo a una usb y además que no se muestren todas las hojas, puesto que necesito que algunas permanezcan ocultas 'Poner lo siguiente en ThisWorkgroup: =========================================== Const archivoInicial = "C:\WINDOWS\Nombre_archivo.Extensión" Private Sub Workbook_B…

Buenas noches. Estoy haciendo una macro para verificar una informacion, pero quiero introducirle dos instrucciones que aun no he podido, solicito de su colaboracion. las instrucciones son: Que las fórmulas que están en el rango F6 a R6 se copien hasta la última celda de la columna A que tenga valor. Yo lo hice como esta en la macro que ejecuto con el botón (lupa) allí insertado, pero solo me copia uno a uno cada vez que aparece una celda vacía, yo quiero copiar todo el bloque con un solo clik. Los Nits que están registrados en la columna A me los busque en la base de datos de TERCEROS, y si no encuentra nada, entonces que me permita crearlos mediante un userform …

Hola a todos, me pueden ayudar con el tema de como eliminar y modificar mediante sql. pues un listbox carga los datos mediante consulta sql, yo quiero eliminar el dato q se encuentra seleccionado en el listbox, trate con este código pero me da error. me puede ayudar. muchas gracias por su apoyo. Application.ScreenUpdating = False Dim MyArray() As String Dim Fila As Integer Dim i As Long Dim Rw As Integer Dim Columna As Integer Dim Rst16 As New ADODB.Recordset Dim Cnx16 As New ADODB.Connection…

Desde ya gracias por su ayuda, necesito consultarles una duda acerca del funcionamiento de las tablas dinámicas con macros. Tengo que buscar una fila especifica dentro de una tabla dinámica con una macro, por ejemplo tengo una tabla dinámica que tiene como etiqueta de fila fechas, por lo tanto me muestra una lista de fechas y yo quiero recorrer la lista de fechas hasta encontrar una especifica y luego tomar el valor de algún valor que quiera en la misma fila. También les agradecería si pueden guiarme con algunos manuales o ejemplos donde pueda ver el funcionamiento de las tablas dinámicas con macros, no crear tablas sino operar con las mismas dentro de una macro, por ej…

Buenos días, Al igual que el compañero soy nuevo en el foro y tambien soy nuevo en el campo de la programación en VBA, y tengo una duda similar a la de mi compañero. Me gustaria crear una macro que me pida la ubicación del archivo .TXT y que me pegue extrictamente algunas lineas del archivo .TXT en un lugar especifico del archivo EXCEL... Espero me puedan colaborar. Adjunto un ejemplo del archivo TXT que debo utilizar, de este archivo solo necesito la siguiente para pegar en excel en unas celdas especificas 08-09 2 .03 0 0 0 0 0 09-10 14 3.83 4,792,411 1558 28 5,564 3,076 10-…

Hola tengo un problema estoy haciendo un macro para registrar las facturas, el problema es que todavia no lo tengo muy claro con los macros el tema es asi, tengo una factura que despues de imprimir tengo que generar un macro que me copie la informacion a otra hoja. el tema es que tengo varios productos para una sola factura entonces pasa que en una sola filas no queda todos los items sino que queda en maximo 10 filas entonces pasa 2 cosas si grabo el macro no se luego como hacer para que los nuevos datos los grabe abajo de los antiguos si alguien tiene alguna idea gracias dejo lo que tengo grabado en el macro Sub Macro4() ' ' Macro4 Macro ' ' ActiveCell.FormulaR…

muy buenas noches, Solicito su colaboración para realizar una comparación entre variables como lo siguiente: un eje X donde se muestre el municipio en relación, un eje X con los años, otro eje y con Zona urbana Zona rural y total y otro eje y con los rangos para predio y avaluó. La idea es que las gráficas muestren por cada municipio y por cada año cuales han sido los cambios importantes de la zona rural y urbana frente a los predios y el avaluó. Muchas gracias por su colaboración , estaré muy atenta Gráficas-ESTADÍSTICAS SABANA CENTRO (1).zip

Hola buen día tengan todos me gustaría me pudieran ayudar y de no ser molestia me puedan dedicar un poco de su tiempo para poder resolver este problema que tengo. quiero controlar la inserción de datos de toda una columna para ello necesito que haga lo siguiente: 1.- Si Al seleccionar la ultima celda vacía de la columna en cuestión necesito que abra el formulario (userform1) que pregunta si es datonumerico o no. (ojo solo para celdas vacías si tienen datos no) 2.- Si Al seleccionar el optionbutton de "dato numérico" que haga un barrido desde el primer registro de la columna hasta abajo determinando el ultimo dato numérico de esa misma columna para que sobre la mi…

Estimados Buenos dias. Alguien por favor que me ayude con el encabezado de mi listbox lo he intentado con esto : ListBox1.ColumnHeads = True listado.RowSource = "hoja1!A2:R3"[/CODE] pero me sale error cuando agrego esta linea, creo que estoy generando un conflicto de funciones. les adjunto el archivo para mejor visualizacion los datos que extrae el listbox en la busqueda estan en la hoja (hoja1) Dropbox - Proyeccion - Hor.xlsm

Eliminar una carpeta cuyo nombre lo tengo en la celda A1 Gracias anticipadas por la ayuda

Hola buenos días, como verán soy nuevo en el foro y esta es mi primer pregunta, tengo una duda con respecto a un macro, he está investigando y por más que intento no me sale, estoy haciendo un archivo donde necesito que recorra los valores de las columnas O14:V313 una fila hacia abajo si es que en la celda correspondiente de la columna AP hay un número 1, y que después haga lo mismo pero con las columnas W14:AD313y ahora tomando en cuenta la columna AQ si hay un número 1, ya lo intente copiando los datos en otras celdas y después aplicando el filtro y después pegándolos pero me los pega de corrido, es decir, no me respeta el filtro. Para que quede un poco más claro toman…