Hola soy nuevo en esto pero tengo un problema con una macro que estoy corriendo, la macro se corre al momento de hacer un cambio en la celda (A1) y si funciona la macro pero me aparece el mensaje de Run-time error '13': Type mismatch y pues no se a que se deba esto, si me pueden ayudar se los agradeceria mucho les dejo el codigo y marcado en rojo donde me aparece el error cuando le doy debug: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = Range("A1") Then Call prueba End Sub Gracias!! pivottable filters (test)01.zip

Buenas noches y felices fiestas a todos He estado buscando una macro de como poder imprimir copias de una misma hoja pero con diferentes pies de página, y aquí no supe encontrar nada relacionado. ejemplo: 1ª copia..... Copia departamento RECAMBIOS 2ª copia..... Copia departamento LOGISTICA Conseguí desde otra web código para hacerlo efectivo y creo que es interesante para cualquiera que tenga mi misma necesidad. Sub Imprime_mi_hoja() Dim Departamento, n As Byte Departamento = Array("RECAMBIOS", " LOGÍSTICA") For n = LBound(Departamento) To UBound(Departamento) With Worksheets("hoja1") With .PageSetup .PrintArea = "$a$1:$G$19" .LeftFooter = "Copia para " &…

Saludos. Lo que necesito es asignar macros a unos botones para poder imprimir determinados grupos de hojas. Subo el archivo de ejemplo. Gracias por la ayuda. Impresión de grupos de hojas.zip

Después de haber recorrido varios (MUCHOS) temas, encontré para limpiar y dar propiedades a varios controles unificados en una sola rutina pero, no he encontrado nada que me pidiera guiar sobre lo que sigue, aunque trate de hacer algo partiendo de rutinas para limpiar varios controles, (OptionButton, TextBox, ComboBox, CheckBox) controles dentro de un form o directamente en una hoja. En mi caso presente están en una hoja (Hoja1) y NO en un formulario LO que no logre es para unificar los 6 TextBox, una sola rutina Van desde el TextBox6 hasta el 8 y luego del 12 al 14 Private Sub TextBox6_GotFocus() Application.ScreenUpdating = False Label1.Caption = "FORMATO DE …

Hola estimados todos, necesito de su colaboración, es que quería realizar un botón por medio del cual pueda alimentar una balanza de comprobación atravez de los datos que presenta el resumen de contabilización de datos, en mi ejemplo ficticio seria ase: en la hoja numero 1 se cargan ciertas cuentas, este seria mi resumen de contabilización y en la hoja 2 esta mi balanza ficticia la cual se alimentaria de los datos de la hoja numero 1 , me gustaría que me ayudaran a crear un botón programado con macro para realizar esta operación si se pudiera o me den algunos concejos. gracias de antemano. balanza.rar

Hola: Tengo una serie de datos en una "Hoja2". El caso es que en "Hoja1" necesito crear una tabla con el doble de filas, de manera que fila n: una fórmula que se refiere a la una fila x de la hoja2 fila n+1: otra fórmula que se refiere también a la fila x de la hoja2 He conseguido hacer lo siguiente: - He creado una hoja1 con n filas, sólo con la fórmula1, arrastrando, y luego con esta macro Sub InsertRows1() Dim lIni As Long Dim lTot As Long Dim lRow As Long lTot = Selection.Rows.Count + Selection.Row lIni = Selection.Row + 1 For lRow = lTot To lIni Step -1 Rows(lRow).EntireRow.Insert Next lRow End Sub[/CODE] He conse…

Ahora les traigo una consulta nueva no se que tan sencilla o compleja sea pero la verdad no eh dado con la solucion,, existe la forma de que cuando ejecute mi macro antes de esta instruccion: Windows("Libro1.xlsx").Close savechanges:=True Tambien me guarde el libro en una posicion en especifico es decir, si yo abro mi libro y recorro con el scroll hasta la ultima columna donde tengo informacion y le doy guardar, despues cuando vuelva a abrir el archivo me lo abrira en la posicion donde me quede (al final de la ultima columna donde tengo informacion). Antes de cerrar tengo esta instruccion, la probe con las dos Range("B2").activate Range("B2").select Pero al momento …

Hola, necesito ayuda, soy nuevo en la creación de los userform y tengo una duda en la cual espero ustedes puedan ayudarme, el asunto es que tengo un combobox el cual me dice en que tgurno voy a estar (mañana, tarde o noche), el asunto es que al momento de hacer una elección en el combobox quiero que aparezca automaticamente en un textbox el horario que tiene este turno por ejemplo: 8:00 a 8:59 (son en total 8 textbox), pero con que me den solo el primero los otros los estaría completando yo Muchas gracias

Estimados, recurro nuevamente e ustedes por el siguiente problema. En el documento adjunto, poseo una macros el cual deseo que al momento de ingresar un valor en el textbox con una pistola lectora de códigos de barra, se ejecute el botón ingresar. hasta ahí ningún problema, pero he estado intentando mediante el comando textbox1.setfocus que vuelva a posicionarse en el textbox después de hacer el ingreso y no me funca. La idea es que se ejecute el ingreso, borre lo que esta en el textbox y se posicione en el nuevamente. Desde ya un saludo y las gracias. Prueba.xls

Hola! Estoy intentando hacer una macro que copie una celda de una hoja a otra pero vinculada, para que si posteriormente modifico esa celda en la hoja 1, automáticamente se modifique en la hoja 2. Sería algo así, pero sólo consigo que copie el valor pero sin vincular. Sub Macro1() Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = ThisWorkbook.Sheets("Hoja1") Set ws2 = ThisWorkbook.Sheets("Hoja2") ws1.Cells(1, 1) = ws2.Cells("contents";A1) End Sub Muchas gracias

Buenas tardes compañeros Primero que todo un saludo y buenos deseos Tengo dos macros diferentes que tienen dos Workbook_Open y no se como hacer para que funcionen correctamente ya que individual hacen su trabajo pero juntos se genera un error que no permite mostrar las demás hojas del archivo a menos que se guarde el archivo otra ves, lo cual no debería de ser ya que tiene que ser automático al abrir el archivo con las macros activadas. Este seria uno Option Explicit Const WelcomePage = "Macros" Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = False With ThisWorkbook If Not .Saved Then Select Case MsgBox("De…

Hola a todos, tengo el siguiente problema que me gustaria me pudiesen ayudar tengo una hoja en la cual realizo consulta a BD SQL, hasta el momento logre conectarme a la base de datos y rescatar la informacion que necesito el problema es que cuando filtro por fechas mediante DTPicker y consulto por Ej. por el dia 04-12-2012 el resultado que obtengo son los datos del 12-04-2012. El problema es que considera los 2 primeros digitos como el mes y los segundos como el dia y no he logrado solucionar esto. le pido por favor si me pudieran ayudar. Saludos Libro3.rar

Feliz Navidad para toda la comunidad Despues que finalmente iba a llenar este libro con datos, se me presento un dilema (para mi). Cuando me proponia a Eliminar todo dato existente en la hoja2 ("Datos") para llenarla definitivamente, procedi a: Procedimiento: Marco el OptionBotton Eliminar, selecciono el 1º dato de la lista en el ComboBox, apreto el boton con el caption Eliminar y mi surpresa, me dice; Elija una opcion de la lista desplegable. Si selecciono el 2º de la lista Si funciona bien pero al selecconar el 1º NO. He dado vueltas al evento Private Sub Eliminar_Click() (creo ser por aqui) cambiando algunas cositas pero no he sido capaz de corrigir el fallo. Los…

Hola amigos del foro, soy nuevo en excel y tengo una consulta que espero me ayuden. Tengo una base de datos de miles de registros en forma vertical de números telefónicos, ejemplo: (+51) (01) 561-9190 (+51) (01) 366-1430 (+51) (01) 373-6587 lo que me gustaria es que me puedan ayudar con una macro donde elimine el (+51) (01) y el - donde al final el resultado sea 5619190 3661430 3736587 considerando que en el (+51)_(01)_561-9190 hay dos espacios donde le he colocado _, espero me ayuden es para mi trabajo, desde ya muchas gracias, feliz navidad.

Estimados: Tengo una planilla donde diariamente cargo certificados medicos y necesito una macro que me filtre diariamente las personas que se encuentran enfermas siempre y cuando la fecha actual (Hoy) se encuentre entre las fechas desde y hasta. Por ejemplo: Miguel esta con certificado médicos desde el 12 de Dic. hasta el 31 de Dic. entonces lo que necesito es que la macro se fije si la fecha actual (HOY) está comprendida entre el 12 y el 31 de Dic. y si es asi, que me muestre las personas que estan enfermas HOY., es decir que desde el 12 al 31 de dic yo deberia ver a Miguel en este listado. No se si me explico pero adjunto la planilla libro1.rar Libro1.rar

Que tal buen dia tengan todos les explico mi problema. Tengo una asociacion de 700 personas a las cuales tengo que imprimirles una credencial a cada uno de ellos. En un libro excel tengo una hoja que es la base de datos de sus nombre direcciones etc. Y en otra hoja es donde tengo el formato de la credencial donde con solo ingresar un numero de folio los datos se cambian automaticamente jalandolos de la base de datos con formulas, eso ya esta realizado, mi problema es que tengo una carpeta con sus fotografias nombradas con su numero de folio y tengo otra carpeta con sus firmas digitalizadas tambien nombradas con sus numeros de folio y necesito saber como jalarlas median…

Hola amigos del foro, tengo una consulta que quiza sea basica para uds por eso pido el apoyo, tengo una base de datos de miles de registros que quiero juntarlos en una tabla. quiero saber si existe una macro para hacerlo porque he probado con la opcion combinar y centrar y es un proceso manual de 1 x 1, un ejemplo es este : [TABLE=width: 500] [TR] [TD]cod cliente[/TD] [TD]cod producto[/TD] [TD]cod vendedor[/TD] [TD]cod final[/TD] [/TR] [TR] [TD]0145[/TD] [TD]2020[/TD] [TD]1313[/TD] [TD]014520201313[/TD] [/TR] [TR] [TD]0146[/TD] [TD]2021[/TD] [TD]1313[/TD] [TD]014620211313[/TD] [/TR] [TR] [TD]0147[/TD] [TD]2022[/TD] [TD]1314[/TD] [TD]014720221314[/…

Hola a todos los participantes en este foro. Para empezar dar las gracias a todos aquellos que me puedan ayudar en el desarrollo de este proyecto. Mi consula es acerca de lo siguiente: tengo un libro con dos hojas, en la hoja dos esta la BD, en la hoja uno tengo una consulta de busqueda a dicha BD, la cual se realiza a través de filtros avanzados y automatizados por un macro asignada a un botón. Lo que deseo es que cuando un usuario digite alguno de los parámetros de busqueda (documento o nombre), al presionar el botón de consulta se me realice una busqueda en la BD, por ejemplo que si digita el documento 6894785, verifique que en la columna cedula de la BD se en…

Hola, aquí estoy de nuevo, necesito de vuestra grandiosa ayuda. Resulta que tengo una hoja excel con varias imágenes insertadas y me gustaría poder ponerle un comentario a esas imágenes, buscando y buscando solo he visto como insertar una imagen a un comentario de una celda pero nada de un comentario a una imagen. ¿se puede hacer con una macro? Un saludo

Buenas noches compañeros estube tratando de mejorar una reporte en el cual me ayudo Toldeman pero no encuentro la solucion al macro en el cual quiero que en la hoja de ExtraerReporteArticulo poniendo la fecha del dia de hoy supongamos y presioando el boton REPORTE me salga todo un reporte de los clientes que se encuentran en la hoja de ConsolidadoMensual que esten vencidas a la fecha de hoy sus pago ejemplo si pongo 20/12/2012 y presione reporte me vote en la hoja de ExtraerReporteArticulo todas las deudas con sus respectivos datos que esten vencidas a la fecha que ingrese y no me salgas las que estan despues de esa fecha solo las que estan atrasadas , espero de su ayu…

Hola a todos. Necesito una pequeña ayuda con una hoja en la que hay que introducir datos en rango B11:B140. Mi problema es que si por ejemplo termino en la celda B60 al pulsar enter en la siguiente se desplazara a la celda H11. Lo he intentado con condiciones (If) y con activecell y o me da error de compilacion o no me da error pero no hace nada

Estimados, quiero solictar de su ayuda para el siguiente problema Tengo un Form en donde puedo realizar consultas mediante listbox, pero lo que necesito es que al pinchar el checkbox se consolide los datos por codigo o nombre de producto. En el form existe la posibilidad de consultar por producto pero los da en detalle y la idea es que se puedan visualizar ambas opciones tanto consolidado como en detalle y que cuando consolide los datos tambien sume los valores que tiene cada uno. espero haberme explicado bien y que puedan entender mi solicitud. saludos. Consolidar.rar

Buenas tardes Tengo una macro que muy gentilmente me ayudaron a armar aki, esta sirve para ingresar informacion informacion en una hoja de excel y despues correr una macro que la traslada a sus lugares correspondientes en una base de datos que esta en otra hoja en el mismo archivo. pero somos varias personas que tenemos que usrla y tenemos que esperar que una lo use y de ahi que la use la otra persona y estarnos turnando, hay alguna forma de llenar la informacion y que la macro la mande al archivo de la base de datos sin abrirlo, ej: que las personas que tenemos que llenar la informacion cada quien tenga si archivo para llenar informacion y la macro la mande al archiv…

Hola, Tengo una duda a la hora de evaluar una expresión booleana, siempre para saber si es verdadero o falso, directamente pongo (if Variable) a secas, sin =, pero sin querer le puse = True y no entraba en la condición, tras quitarle el true ya entraba. Sé que el valor verdadero de un boolean es -1, pero entonces, ¿por que cuando pones (if NumeroInteger) sin =, cuando NumeroInteger<>-1 & <>0, lo toma como -1? ¿Sabéis qué tipo de conversión ha realizado por sí sola la función IF? y en caso de "Si", ¿Podríais indicarme cual es esta función de conversión booleana? Sub PruebasBoolean() Dim VarInteger As Integer VarInteger = 100 If VarIntege…

Buen dia a todos! Quisiera saber si me pudiera apoyar con esta macro ya que no logro adaptarla a lo que deceo y hacerla funcional. Tengo un libro en el cual tengo dos hojas en ambas tengo el mismo numero de columnas con el mismo tipo de informacion, yo lo que quiero lograr es que de la hoja2 compare la columna A hasta encontrar celda vacia contra la hoja1 columna A hasta encontrar celda vacia, si encuentra el dato entonces reemplazar toda esa fila de la hoja2 en la hoja1 en la posicion donde encontro el dato que coincide. HAsta ahora solo tengo esta parte. Sub repetidos() sheets("Hoja1").Select Range("a1").Select posicion = 1 While ActiveCell.Value <…