Buen día amigos, este código no me fallaba antes y ahora dice ERROR 13 "no coinciden los tipos", adjunto el código Falla cuando quiero asignar un rango a una variable (Rango) , rango que también se arma con una variable (FilaCeldaActual) Les agradezco la ayuda de antemano. Sub prueba() Dim FilaCeldaActual As Long Dim Rango As String ' el tipo de variable la cambio por range long string y siempre falla FilaCeldaActual = ActiveCell.Row Rango = Range("A1:X" & FilaCeldaActual) MsgBox Rango End Sub macro prueba.xlsm

Buenas noches expertos, tengo un archivo donde necesito buscar las fechas en la hoja Panel en los rangos J9:L14, donde se debe buscar las fechas depediendo de los codigo de busqueda de la columna J y a la vez mostrarme las ultimas fechas ubicadas en la hoja Llegadas que se encuentra en la columan BO, se debe tomar como referencia la columna BP con la palabra "PROXIMO", muchas gracias por sus ayudas espero me puedan haber entendido. Adjunto el enlase del archivo del google Drive ya es pesa mucho con la catidad de información que se encuentra. https://drive.google.com/file/d/12vbX0rHF2Zz8PUTfGaT38rwt4LeYf6SR/view?usp=sharing

Buenas noches comunidad! En esta instancia vengo a preguntar algo que quizá sería muy sencillo para algunos pero a mí me ha sacado canas verdes! Poseo una macro para fusionar/unir/agrupar o como más deseen llamarle! Varios libros de excel en un mismo libro! Esto lo requiero porque a partir de ahí luego extraigo los datos de los más de 400 libro por separado con otra macro que recorre luego cada hoja del ahora único libro y me saca un listado con los valores por columnas solo de la información que requiero. Aora bien mi inquietud es la siguiente! La macro siempre debo asignarle la ruta copiando y pegando en el código! Habrá una manera que pueda no tocar el códig…

Buenas tardes, Necesito ayuda en varios aspectos, me he bloqueado y a pesar de haber intentado varios métodos no consigo llegar a lo que necesito. Adjunto archivo con una pequeña prueba. 1. Necesito insertar un número determinado de filas desde A1 hacia abajo, a partir de la cantidad que ponga en B2, será entre 1 y 6 máximo, pero es por no estar insertando manualmente. Lo he intentado con la siguiente macro, pero siempre tengo que tener la celda bien marcada y con al menos 2 filas ya fijadas para que se quede el mismo formato, no sé si existe otra forma de hacerlo: Sub InsertarFilas() Dim numFilas As Long Preguntar al usuario por el núme…

Estimados buenas tardes, Recurro a Uds para ver si me pueden ayudar con algo que parece sencillo pero me esta complicando. Estoy cargando un combobox y guardando el Id en un textbox para usarlo posteriormente El tema es que quiero mostrar solo el nombre en el combobox y solo muestra campo 0 correspondiente al ID El Id lo copio correctamente al textbox pero no puedo lograr mostrar el nombre en el combo para seleccionar correctamente Aguardo sus sugerencias Adjunto archivo de excel y Base de datos Gracias Cargo Combobox Access.xlsb BaseDatos.rar

Saludos amigos Tengo un formulario (Fmrfechas) el cual debe aparecer una vez que haga Login en el Formulario (frmlogin) introduciendo un Usuario (TxtUSUARIO) y Clave (TxtCLAVE) para lo cual tengo esta macro que me funciona muy bien hasta ahora: Private Sub CmdACEPTAR_Click() Call Module1.BotonAceptar Fmrfechas.Show End Sub Sin embargo, cuando los campos Usuario (TxtUSUARIO) y la Clave (TxtCLAVE) estan vacíos o introduzco datos erróneos al hacer click en el Botón Aceptar (CmdACEPTAR) igual me aparece el formulario. Pregunta 01: requiero me ayuden con los elementos que deberían agregársele a la macro para que sí y solo si cuando el Usuario (TxtUS…

Hola buenos días. Tengo un archivo con la que trabajo constantemente, una hoja donde ingreso muchos datos de otra hoja. Con una formula compuesta me funciona muy bien, el problema es que tengo que estar borrando los datos para actualizarlo con nuevos. y tengo que estar pegando esta formula cada vez que actualizo. Con la macro quiero lograr que esta formula se pegue unicamente en donde halla datos. Trate de hacer la macro para que me ponga dicha formula (en inglés) Espero me puedan ayudar. Gracias Mariano MAcro buscar indirecto.xlsm

Hola buenas tardes: Por favo me pueden ayudar con los iguiente: tengo una macro que me ayuda a listar carpetas y nombre de archivos. (es una funcion) el cual llamo desde una SUb, este funciona bien, el problema es que debo poner la ruta de manera manual: Public Sub Listaynombra_Manual() With ActiveSheet List_Fols_Files "C:\Users\CARPETA\" esta es la parte que debo cambiar cada que llamano la funcion (List_Fols_Files) End With End Sub Ay manera de que la ruta sea tomada de una celda de la misma hoja. Trate de poner algo asi: List_Folders_and_Files Range("B1").Value en esa celda esta la ruta donde debe extraer la informacion que requ…

hola Gente, gracias por la respuesta antes que nada.. yo utilizo el citrix para las descargas y tránsitos marítimos.. encontré en el vba un controlador llamado ica client para citrix lo cual en teoría debería conectarme con el servidor citrix desde mi excel gracias a la ayuda de un userform... el tema que no puedo hacer que funcione me dice error del protocolo.. mi pregunta es como lo debería configurar para que me funcione? alguien posee alguna idea al respecto?? muchas gracias

Muy buenas tardes, les pido el favor para ver si ustedes muy amablemente me pueden colaborar con la siguiente macros: una macro que busque una identificasion en varias hojas en excel, que salga un mensaje que diga si o no la encontro, si encontro dicha id , que copie la palabra "si" en una celda de una hoja destino ya seleccionada por el usuario y que siga copiando la busqueda debajo en la misma columna de esa hoja destino , al igual lo mismo en las demas busquedas de las otras hojas y arrojar el resultado en las otras hojas destino tambien. - - - - - Mensaje combinado - - - - - les agradeceria mucho que me colaboraran con esto. a todos buen dia. gracias. libro2.…

Que tal amigos de ayuda excel ,bueno lo que quisiera comentar y pedir ayuda es saber si se puede hacer lo siguiente: Tengo una plantilla con un encabezado, donde tengo un boton autocorrelativo lo que hace es aumentar de uno en uno su valor, lo que nescesito es lo siguiente que las demas celdas del encabezado esten bloqueadas y se desbloqueen presionando este boton autocorrelativo y q a la vez se guarde automaticamente ,pero de la forma como si se guardara con el diskete de la parte superior izquierda de excel (que lo que hace es guardarlo sin ningun cartel de de aviso de pormedio). Esto lo quiero hacer para obligar al usuario que lo primero que tiene que hacer es a…

Buenos tardes a todos, Una vez mas recurro a vuestro conocimiento e imaginacion. Os explico tengo una tabla de datos que consiste en la descripcion de un producto y las siguientes filas de datos de ese producto, bien pues lo que necesito es insertar una fila antes y despues en blanco de cada descripcion de producto. Bien como mas vale una imagen que mil palabras os subo un ejemplo. La hoja original es qcomo lo tengo y la hoja bueno es como me gustaria que quedara, haciendolo de algun modo que no sea como lo he hecho yo una a una con insertar fila. Gracias por la ayuda por adelantado. insertar filas.rar

estoy realizando un programa de contabilidad y me tope con un problema,necesito que guarde una hoja determinada en una carpeta ya creada luego el mismo programa la reescribe y necesito que guarde la mismo hoja peor con un nombre diferente ya que no contiene los mismos datos gracias.

Hola! Tengo un problema tengo un docuemnto de excel en el cual quiero hacer un metodo de busqueda el cual encuntre todas las filas que contengas en dato a buscar en cualquiera de las columnas, ya que tengo varias columnas que contienen un valor similar , con lo cual ya he intentado buscar por columno y saco las coincidencias , pero tengo k hacerlo con cada columno que tenga ese mismo estatus que deseo y quiero algo que me busque entre columnas y filas todos los datos que contengas la coincidencia con la busqueda que quiero!!! Y no se como hacer eso ojala me puedan ayudar soy nuevo en esto..gracias

Hola, tengo hecha una macro la cual tiene 6 botones en una hoja de excel, y lo que necesito hacer es que cuando abra dicho documento me salga uno panel con los 6 botones y no la hoja de excel.​

Buenas días Primero me gustaría agradecer a la gente de este foro por toda la ayuda que proporcionan a la gente como yo que no se manejan muy bien con Excel pero que tienen ganas de mejorar. Aquí está mi problema y no sé como corregirlo: Me sale este mensaje: Se ha producido el error '1004' en tiempo de ejecucción No se puede asignar la propiedad Name de la calseFont Y cuando depura sale lo siguiente: Range("J301:P301").Select Selection.Copy Sheets("Mis recetas").Select Range("H2:N2").Select Range("H2").Activate Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop ActiveSheet.Paste Selection.PasteSpecia…

Muy buenas a todos, soy nuevo por aquí y quería pediros vuestra ayuda, ya que he utilizado el buscador y no he encontrado exactamente lo que estaba buscando. Mi caso el siguiente: Tengo un archivo excel que hace las veces de 'calendario', las columnas representan los dias y semanas, y las filas representan 29 tareas. Cada tarea tiene asociado un documento word donde se dan mas detalles de las mismas. Necesito crear una macro que mediante botones, formulario o lo que sea, me permita imprimir estas tareas desde el archivo Excel, algo en plan: -Quiero 1 copia de todas las tareas diarias -Quiero 5 copias de todas las tareas diarias -Quiero 1 copia de todas las tareas se…

Compañeros, una vez mas recurro a los expertos. como seria el codigo para que mediante una combinacion de teclas (ejemplo: ctrl + alt + q) se ejecute la macro de un command button que se encuentra dentro de un form que esta dentro de otro command button. :stupid: un poco complejo, intente con el evento onkey en el workbookopen pero muy complicado y no pude. Saludos

saludos tengo una macro que me actualiza una tabla dinamica ubicada en una "Hoja2" pero la fuente de los datos esta en la "Hoja2" que es uan base de datos que se ACTUALIZA cada cierto tiempo. El problema es que el el parrafo rojo(abajo) me di cuenta que no me deja tomar datos de una hoja distinta a la hoja donde se ubicara la tabla dinamica. Que puedo hacer Sub Actualización_de_tablas_dinámicas() Dim rango1 As Range ActiveWorkbook.Worksheets("Hoja1").Select Range("A1").Select Set rango1 = Range(Selection.End(xlToRight), Selection.End(xlDown)) ''ajusta el RANGO ORIGEN de la tabla ActiveSheet.PivotTables("Tabla dinámica4").ChangePivotCache ActiveWorkbook. _ PivotC…

Buenos días tengo un problema en la hoja 2 de excel tengo un documento de certificado que es el mismo para 50 items (50 filas de la hoja 1) pero esta hoja tienes datos que varían dependiendo del item (nombre, codigo, etc,etc) como podría hacer para imprimir 50 copias de la hoja 2 pero que cambien esos datos dependiendo de la hoja 1 por cada impresión(cada fila de la hoja 1 ). en la hoja 1 tengo un rango de A1:J200 en la columna B están los datos a evaluar osea en esa columna hay 4 valores (1,2,3,4) para el formato de la hoja 2 solo me interesan los datos que tengan el valor 3 . La pregunta es como recorro ese rango y a la ves evaluó que la celda de la columna B sea…

Buenas tardes, requiero de la colaboración de un experto para lo siguiente: Tengo unos movimientos contables en la hoja denominada movimientos. Quisiera generar un filtro en la hoja denominada auxiliares que contenga los siguientes criterios: Permita generar un listado a partir de un código de tercero y una cuenta para que me muestre los movimientos débitos y créditos en un rango de fecha dada. Igualmente que si existe movimiento de esa cuenta saque la deferencia entres débitos y créditos la muestre en la columna L de la hoja auxliliares. anexo archivo AUXILIARES.rar

Sub Macro2() ' Dim valor As String valor = "pedro" Set mirango = Workbooks("Libro1").Sheets("Hoja2").Range("B7:B12") For Each mirango In Selection.Cells Sheets("Hoja2").Select Range("B7:B12").Select Selection.Copy Sheets("Hoja3").Select Range("B13:B18").Select ActiveSheet.Paste Next End End Sub TENGO EN LA HOJA 2 LO SIGUIENTE EN EL RANGO B7:B12 TENGO UNA COLUMNA DE NOMBRES ASI SIN TITULO DE ENCABEZADO hoja2 hoja 3 PEDRO PEDRO MARIA JOSE PEDRO PEDRO …

He intentado ajustar la macro de la hoja 1 a los datos de la hoja 3 que es algo diferente, para conseguir transponer los datos de la columna 1 de la hoja 3, de modo que queden como indico, pero no logro adaptar la macro de la hoja 1 a la hoja3. ¿Alguien puede ayudarme? Gracias al foro Borja transponer tasas_BORJA.zip

Estimados, Un gusto saludarlos, tal vez el titulo ya les parecerá repetitivo, y hasta la parte del To creo que lo es, porque me he navegado todo en internet y no logro dar con algo para incluirle un Cc. Me explico. Tengo una planilla de clientes con su Correo, y el de su vendedor. El envio al cliente con un archivo adjunto ya lo tengo resuelto. (Hay mucho material sobre esto) Mi problema es enviarlo con copia al supervisor, esto porque además cada supervisor tiene diferentes clientes. Logre enviar con copia, pero solo al primer correo, al segundo y los siguientes no lo hace y solo envía Para. Adjunto el código y archivo. Intente modificando el campo Cc con los sigu…

Hola, veréis tengo una idea para ejecutar una macro que no se como resolverla. Me explico, tengo un libro con siete hojas de las que necesito eliminar, en cuatro de esas hojas, las filas en la que al menos una de sus celdas no tenga contenido. Hasta el momento lo vengo realizando con la macro: Sub EliminarRegVacios() ActiveSheet.Columns(ActiveCell.Column).SpecialCells(xlBlanks).EntireRow.Delete End Sub Pero el problema que me encuentro con esta macro es que tengo que ir hoja por hoja ejecutando la macro y mi idea es poder realizarlo en todas las hojas automáticamente de una sola vez. Además se da la circunstancia que una de las hojas no cumple la condición de …