Buenas tardes Alguien me podría ayudar? Tengo un formulario en el que en la columna G tengo numeros de teléfono (solo algunos), por ello necesito una formula o lo que sea que si en la celda g3 es igual a = 0 vaya directamente a la celda c3 y si la celda g3 es diferente a 0 vaya directamente a la celda b4 y asi sucesivamente con el resto de las celdas. Es decir si g4=0 vaya a c4 y si g4<>0 vaya a c5 Gracias de antemano

Buenas, Tengo un archivo en el cual debo hacer gráficos, según cada valor único de la columna CLASE, en el excel que adjunto están 4 clases, estas se dividen en ESTACION, y esta en EPOCA, AÑO y FUENTE. Quisiera saber si hay una forma de generar estos gráficos automáticamente, son 32 clases en el archivo principal. Asimismo en el adjunto muestro el ejemplo de una sola CLASE. Muchas gracias Ejemplo.xlsx

Hola buenos dias, necesito ayuda con una macro, o quizas no sea la macro, en realidad no se lo que podra ser pero me esta maltratando el celebro, tengo una macro para cambiar foto segun texto en celda, este texto se cambia por un combobox y no me cambia la foto sin embargo si escribo el nombre de la foto , entonces si me cambia la foto, envio archivo con ejemplo saludos y muchas gracias por la ayuda Nueva carpeta (2).rar

Saludos maestros de Excel. Como podría hacer para buscar una información con varios campos que esta en una hoja y reemplazarlo en otra hoja pero no todo el campo sino uno o dos de ellos dependiendo de la necesidad. para el internet.xlsm

Qué tal, estoy teniendo problemas intentando eliminar la fila completa si no encuentra el valor en el vlookup, intenté filtrando y eliminando después del vlookup, en la condición del vlookup intenté la función .entireRow.Delete y aunque no me marca error, nunca termina de ejecutar la macro completa. ¿ Cómo puedo eliminar la fila completa del valor que no encuentre en el VLOOKUP ? 'VLOOKUP Dim Celda As Range, z As Long Application.ScreenUpdating = False Range("L:L").Clear For z = 2 To Range("B" & Rows.Count).End(xlUp).Row Set Celda = Sheets("Copia").Range("A:A").Find(Range("B" & z), , , xlWhole) If Not Celda Is Nothing Then …

Buen día Señores del Foro Tengo una planilla en la cual hay una macro que me llena en forma secuencial las filas, de acuerdo a criterios puestos en las celdas "D2 D3 y D4", necesito una ayuda con una macro que me elimine los Datos de las columnas rellenadas, para lo cual debería de seleccionar dicha columna.. tengo en la misma planilla una macro que me elimina los datos, pero solamente de la columna "A".. Desde ya agradecido, adjunto planilla Numeracón Secuencial.xlsm

Buenos días a todos; En este foro he encontrado la macro que adjunto creo recordar que el autor es Antoni. Se trata de un Userform que contiene un "SCROLLBAR" y según se desplace o pulse sobre dicho scrollbar va aumentado el tamaño del frm. Mi pregunta es la siguiente, ¿se puede poner un tope para que no aumente mas su tamaño una vez alcanzado dicho tope? Saludos y buen día a todos. Redimensionar formulario.xls

Hola! Para ser el primer tema sobre el que pido ayuda, empiezo fuerte, al menos para mi lo es. El caso es que tengo un libro excel con varias hojas una de ellas tiene los datos los cual quiero explotar para luego sacar ciertas estadísticas. Y no se me ocurre otra forma que no sea con macros-vba. pero he intentado hacer algun ciclo anidado con for, pero me estoy volviendo loco. Del libro que adjunto, el objetivo es: Coger de la hoja datos y sumar por años y por meses los valores que la columna Dato1 sea "Si" y rellenar la hoja Copia según muestro en el libro, pero de forma automática, cada vez que se haga un cambio en la hoja Datos. La hoja datos se va …

Hola amigos, que tal estan De nuevo por aqui con ustedes con un problema que no consigo resolver, les explico, tengo que buscar un dato del listbox, por nombre y entre fechas, hasta ahora he conseguido, buscar por nombre y fecha pero no entre fechas, espero que me puedan ayudar Gracias por adelantado Saludos https://www.mediafire.com/file/gftvekr0z4l7lok/Prueba.xlsm/file Prueba.xlsm

como puedo hacer para que se marquen las celdas en columnas intermedias si el numero esta en la misma posicion tanto arriba como abajo MarcaSimilitudes (3).xlsm

Enviar Email masivo desde excel con Body distintos el problema que me sugiere es el siguiente. En fila F (Causa) a la hora de correr la macro esta siempre me da el resultado de la F2, ya que cada destinatario la causa es diferente, la macro va ligada con (asunto & Causa & con un mensaje de despedida). Gracias por adelantado. EnviarEmail.xlsm

Buenas tardes Tengo un problema con este codigo.... en la casilla f157 y f154 tengo los datos del aforo de acceso (que se encuentran en las casilla (a3 -h51)y en la casilla f162 y f159 tengo los datos del aforo de tránsito (que se encuentran en las casillas a51 a h150). El código lo hace bien, en el primer caso cuando llega al número máximo de visitantes aparece cartel pero el segundo caso, suma los primeros, es decir que si por ejemplo tengo un aforo de 5 personas de visita y 5 de tránsito, en el momento que hay 5 personas de visita ya indica que está el aforo superado. Espero no haberme explicado como un libro cerrado y me puedan ayudar. Gracias de ant…

Buenas noches maestros. Solicito ayuda para lo siguiente: en la hoja1 tengo en la primera fila encabezados de productos: A1= ARROZ, B1= CARNE, C1= PAPAS, etc. Debajo de cada una de ellas hay cifras numericas que representan kilos. Luego en la hoja2, tengo los mismos productos pero en forma vertical y en la columna siguiente los kilos, es decir: columna B columna C ARROZ 10 CARNE 20 PAPA 5 Lo que necesito hacer es capturar uno a uno los productos de la columna B de la hoja2 y buscarlos la fila de encabezados de la hoja1 para conocer su posición, y en la fila de abajo pegar la cantidad de kilos de la columna C…

Hola estoy en un proyecto personal y me trabe en una macro. Esta trata de Busqueda Padron, me tira el error " Se ha producido el error '1004' entiempo de ejecucion : Error definido por la aplicacion del objeto". Private Sub TEXTO_Change() 'MsgBox "Hola" NumeroDatos = Sheets("PLANILLA").Range("Q" & Rows.Count).End(xlUp).Row 'MsgBox NumeroDatos Sheets("PLANILLA").AutoFilterMode = False Me.LISTA = Clear Me.LISTA.RowSource = Clear Y = 0 For File = 12 To NumeroDato If UCase(Description) Like "*" & UCase(Me.TEXTO.Value) & "*" Then Me.LISTA.AddItem Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(Fila, 1).Value Me.…

hola buenas tardes como puedo marcar aquellas celdas que coincidan tanto en el primero como en el segundo cuadro de numeros y lo marque de olor rojo como se muestra en el ejemplo MarcaSimilitudes (3).xlsm

Hello everyone, my name is Maurizio And my Problem is this: 1) On Excel Sheet 2 In Column (C) I will insert dates 2) While in column (D) I will insert the corresponding day of the week belonging to that date. Now my question is this: Would There Be a Way To Make That Using the Function Written in VBA Of The Construct (Concatenate and Text) I go to insert everything in the single column (C8: C) of Sheet 1 using the empty line every time. That's all. Thank you in advance for all the help or suggestions you would like to give me about it. (P.S) I personally tried this and it works very well. The Problem is that I would like to extend it to the entire Co…

Buenos expertos necesito ayuda por favor, tengo la siguiente macro a medias y necesito un detalle. El archivo Buscador tiene la macro que busca según Rut y producto, en un 2do archivo donde trae datos del rut buscado y los copia y pega en el buscador, lo que necesito es que esta macro dentro de esta misma búsqueda que acabo de describir me traiga valores desde un 3er archivo (columna D y G del 3er Archivo (archivo: CG_20210308.CSV )) la macro: busca datos Rut en columna A y producto en columna BSegundoArchivo.xlsx tiene la data en las columnas de este archivo en color naranjo: D, S, V, W, AG, AQ y el 3er archivo CSV = CG_20210308.CS: Tiene la data en las c…

Buenos días, Necesitaría ayuda para el archivo que adjunto, necesitaría que en una pestaña del libro pusiere recopilar todos los DÍAS DE VACACIONES de los trabajadores de todo el libro y que estuviesen ordenados por trabajador, día. He estado mirando un par de cosas, y a lo mejor un formulario donde aparezcan los días de ese trabajador en una ventana de información. Veréis que hay una macro ya hecha, pero no entiendo mucho de macros (esa ya estaba en el archivo creada) Un saludo, horas semana 2.020 v1.xlsx

Hola, tengo la siguiente situación y quisiera ver como lo harían ustedes. un aplicativo en mi trabajo hace un reporte el cual lo exporta a Excel y directamente abre el libro, y en este reporte hay muchas columnas que no necesito y quiero borrarlas, puedo crear una macro que elimine todas esas columnas innecesarias pero mi pregunta es si esa macro puede quedar guardada en el excel aplicativo, creo que algún aplicativo de office hacia esto de guardar un modulo publico creo que es outlook, no se si hacer un addin (tampoco se como se hace) y no se si por permisos de usuario después lo voy a poder instalar. que me recomiendan hacer esto al vuelo sin guardar el libro o tener …

Estimados srs, quisiera añadir filas a una factura excel y que baje la suma total, incluso si es necesario pase a otra pagina, pero por mas que lo intento no hay manera, soy principiente, muy novato. gracias de antemano. la contraseña de la protección es 111 Factura-automatizada6.xlsm

Hola tengo una macro que he utilizado correctamente antes desde windows, necesito abrirlo en MAC. Primero elimine todos los ActiveX controls para que funcione en mac y cambie algunos codigos. Ahora cuando trato de ejecutar el boton me sale error, es porque estoy usando RowSource el cual no funciona en mac. He probado distintos codigos sin exito. Este es el codigo del user form que tengo Private Sub UserForm_Initialize() Dim Uf As String Uf = Hoja3.Range("A" & Rows.Count).End(xlUp).Row ComboBox1.RowSource = "Registros!B2:B" & Uf End Sub Agradeceria si pueden ayudarme a cambiar este codigo sin alterar la …

Hola Una consulta quizas alguien me puede ayudar Tengo hecho el código para enviar whatsapp desde excel. Quiero adjuntarle pdf. Para enviar lista de precio a clientes. Tengo hecho lo de buscar el pdf, traerlo, me falta lo de enviarlo Aquí les muestro el código Sub dale_Click() Este boton manda el whatsapp Dim mensaje As String Dim numero As String numerodatos = Hoja13.Range("c" & Rows.Count).End(xlUp).Row 'MsgBox (numerodatos) For fila = 8 To numerodatos 'me busca en los datos los numeros a los que mandar numero = Cells(fila, 3).Value mensaje = Ra…

buenas noches, estoy trabajando en una macro para obtener datos web, de a poco he ido aprendiendo como poder obtener objetos desde las diferentes paginas pero ahora he llegado a un punto donde no puedo seguir avanzando, precisamente con lo siguiente tengo este código de pagina fuente <a href="www.google.com" data-original-title="" title=""> <span itemprop="category">Hola</span> "Adios" </a> con el siguiente código htmlDeRespuesta.getElementsByTagName("span")(0).innerText puedo obtener el texto Hola, pero no he logrado dar con la solución para obtener el dato Adios por favor agradecería mucho su apoyo y gracias por …

Buenas tardes, tengo esta macro que encontré en SanGoogle y la adapté a mi proyecto el cual funciona al 100% lo unico que al imprimir en A4 este lo hace en vertical y necesitaria que esta lo haga en horizontal, gracias por adelantado si alguno de los maestros me adaptaria dicha macro. Private Sub CommandButton5_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next 'Elimina hoja y crea hoja dando el mismo nombre que la eliminada Sheets("DFSHJFDUYDAYRAIUY544TTTOMYDUTGD").Delete ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.name = "DFSHJFDUYDAYRAIUY544TTTOMYDUTGD" …

Buenas noches. Maestros quisiera saber si se puede volver dinámico el rango a la derecha la propiedad RowSource de un ListBox. Es que tengo una base de datos a la cual de vez en cuando se le agregan columnas nuevas y quisiera se ampliara la selección a la derecha como lo hace hacia abajo. Ejemplo ListBox1.RowSource = "A4:End(xlToRight)" & Range("A3").End(xlDown).Row Algo así, no se si se podrá.