Estoy haciendo una busqueda con macro en base a 2 criterios por dni o por apellido utilizando el siguiente codigo: Private Sub btn_buscardata_Click() Dim contador As Integer Dim s As String Dim i As Integer s = txt_criterio.Text contador = 2 Dim flg As Boolean If rb_dni.Value Then contador = 1 End If If rb_apellidos.Value Then contador = 4 End If lbx_datos.ListIndex = -1 If txt_criterio.Text = "" Then Exit Sub End If For i = 0 To lbx_datos.ListCount - 1 If UCase(lbx_datos.List(i, contador)) Like UCase(s & "*") Then lbx_datos.ListIndex = i fl…

Hola, me gustaría saber si existe la manera mediante una macro de excel, de imprimir otro archivo en PDF previamente creado, es decir no archivo excel en sí, si no otro diferente. Gracias.

Buenas!!! A ver si me podéis ayudar, por favor! Tenía el siguiente código que funcionaba con pocos datos: busca.Offset(2, -13).Select With ActiveCell .Resize(Rows.Count - .Row, Columns.Count - .Column).Clear End With Pero al ponerlo en práctica real, me aparece error por recursos insuficientes en Excel ? ¿Esto hay forma de arreglarlo o no es posible? Muchas gracias.

Buenas tardes gracias por este espacio. Solicito su ayuda para una macro que imprima solo las celdas que contienen datos. Tengo un botón que me ayuda a realizar un filtro avanzado y me trae los datos que quiero buscar, pero al realizar en el otro botón la impresión para paso a PDF me las convierte todas y solo quiero que se muestre en el PDF las que se consultaron. Tengo el siguiente código en el botón de impresión. pplication.ScreenUpdating = False If MsgBox("¿Desea Convertir a PDF?", vbQuestion + vbYesNo) = vbYes Then Dim HResumen As Worksheet Dim Ruta As String Dim Titulo As String Set HResumen = Worksheets("Resumen") …

Muy buenas he copiado de aqui un codigo para invalidar el boton X de cerrar Excel y que el usuario oprima el boton de CERRAR que yo he creado, hasta aqui todo perfecto, el problema es que yo quiero que aparte de GUARDAR el LIBRO, la aplicacion se me cierre, el problema es cuando sustituyo el ACTIVEWORKBOOK.CLOSE por APPLICATION.QUIT la aplicacion ni el libro se me cierran. Subo un adjunto para que veais el problema. muchas Gracias PruebaLibro1.xls

Hola buenas. tengo poca experiencia con la programación en VBA y necesito ayuda mi problema es el siguiente: necesito una macro que busque por código, es decir, que busque por código la información de un producto en una hoja de excel y luego esta información me aparezca en un formulario, esta es la hoja MAESTRO DE PRODUCTO CODIGO DESCRIPCIÓN STOCK UBICACIÓN S DESPUNTE UBICACIÓN D 2003 PERFIL6 36 B1 13 A1 2004 PERFIL7 45 B2 14 A2 2005 PERFIL8 50 B3 17 A3 necesito que al escribir el código en el formulario y apreté el botón buscar me aparezca el resto de la información. agradecería mucho que me ayudaran con esto.

con que codigo puedo deshabilitar autoguardado ?

Estimados, necesito lo siguinte. Tengo en a1 un valor y en b1 necesito copiarlo un numero determinado ejemplo b1 b2 b3 lo vamos a copiar tres veces hacia adajo, luego en a5 tengo un segundo valos y necesito copiarlo 5 veces, b5 b6 b7 b8 y b9, la idea es que si encuentra un valor entre a1 y a100 me copie el numero de veces que yo le indique. Gracias

Buen día a todos, tengo un archivo donde en la pestaña DC-3 coloco el número consecutivo para que me muestre los datos de como quedaría, tiene un botón para imprimir y otro para guardar en PDF, lo que necesito es que NO me guarde en PDF uno por uno cuando le pongo el rango (de que numero a que numero quiero guardar), lo que me gustaría es que si le digo que me guarde del 3 al 5, por ejemplo, se guarde en un solo archivo PDF. Espero y me puedan ayudar por favor, se los agradezco de antemano. FORMATO DC3 ESASTECA V 03012022.xlsm

Buenos días a todos amigos, Acudo con ustedes en este momento, me bloquié en un código que estoy realizando, Les cuento, estoy trabajando con una consulta de tipo SOAP desde vba excel, logré enviar y recibir la respuesta de los datos, sin embargo, esto fue solo una prueba, ya que valide un dato en especifico, sin embargo, lo que quiero hacer, es validar varios datos a la vez y que esos datos lo tome desde excel, adjunto parte del código en donde considero que estoy mal, ya que no me da el resultado: Según yo con esto estoy referenciando a las celdas de excel, pero no se si me falta algo. Espero contar con el apoyo de ustedes, Mis respet…

Necesito hacer una macro que seleccione una hoja dentro de un mismo libro de excel y el nombre estara determinado por el valor que contenga mi textbox de mi formulario

Buenos Dias, el dia de ayer me arreglaron el siguiente código ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Hoja1!R1C1:R" & Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row & "C28", _ Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="Hoja2!R4C1", TableName:="Tabla Dinamica2", _ DefaultVersion:=xlPivotTableVersion14 y funciono perfecto, ahora quiero remplazarlo en en otra macro y remplace algunos campos : …

Hola. Mi problema es el siguiente. Tengo una lista desplegable con 150 elementos, y deseo que en función del elemento que escoja realice una u otra función (al cual llamare con una macro). La lista desplegable la tengo asociada a la celda A1. si cambio el elemento de la lista cambia el valor de la celda a1. Pero no consigo que el Excel se de cuenta que ha habido una actualización en la celda A1 y comience de nuevo el programa. En cambio, si el valor de A1 lo cambio manualmente, es decir, introduzco yo el valor entonces si que se activa Private Sub Worksheet_Change(ByVal Target As Range) End Sub y me ejecuta el programa. Lo que me gustaría saber (para evitar poner …

Hola muy buenas, nose si este es el lugar, la verdad pero es que tengo un csv que esta en formato libro de excell que me pasa mi proveedor y quisiera que aparecieran tambien las urls de las imagenes y otras cosas de interes para subirlo a unas webs comerciales pero lo que ocurre es que me dan una informacion de como acceder a una API que tienen ellos para hacerlo, el tema es que no entiendo muy bien que es lo que tengo que hacer para "llamar" o algo asi dicen a esa accion, tengo que poner ese tipo de link que me dan en la API en el recuadro de el articulo el cual quiero la imagen y la descripcion? Por ejemplo para las especificaciones me dice esto: …

Llevo desde ayer dándome calabonazos contra la pared tras tirarme un par de días implementando una nueva hoja en mi lista, tras ver que todo funciona en la hoja en cuestión bien y hace lo que quiero, reviso el código para que todas las llamadas sean echas con sheets ("Nombre de la Hoja") y asi poder usar el userform desde cualquier hoja el caso es es que para insertar una celda uso la instrucción que me proporcionasteis en otro post y siempre la inserto en al misma posición. Sheets("Hoja Datos").Rows(4).Insert luego me rellena con los datos que tengo en los txtbox y combobox en sus respectivas celdas y me reordene por orden alfabetico a partir de la f…

Buenas tardes, Cordial saludo, espero se encuentren muy bien. Tengo el siguiente problema con una macros y quisiera saber como solucionarlo: Estoy construyendo un lector de textos que agregue "carácteres especiales" cuando se dectecta en el texto una palabra con formato bold (Negrita). Igualmente me gustaría para Subrayado (Underline) pero no puedo continuar de este paso. Tengo marcado como comentario la parte del codigo que me manda error. Actualmente la macro lee bien el texto pero no reconoce el formato bold. Anexo el documento, captures y el código por si alguien tiene alguna idea para solucionar el problema. Muchas gracias a todos! …

Buenos días, estoy haciendo una aplicación en la cual me gustaría que al iniciarse el archivo de excel, saliera la animación que tengo y cuando terminara saltase a una hoja llamada "inicio". Gracias

Hola a tod@s Quiero eliminar varias filas de excel cortandolas y eliminandolas de la hoja. Le he puesto este codigo pero me da un error, Subindice fuera de intervalo. Pero la celda es la M2 seguro. Cells.Find(What:=Range("M2"), After:=ActiveCell, LookIn:=xlFormula, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate

Hola, Quería saber si a alguien se le ocurre algún modo de cambiar de formato de: "11h 22m 33s" (Horas, Minutos y Segundos) al formato [hh]:mm:ss Yo lo hago reemplazando las letras "h", "m" y "s" por ":" y funciona cuando están los tres, pero en el momento que hay un dato que sólo tiene 11m 22ss, mi método falla, y tengo que cambiarlo a mano y es una locura porque hay muchos datos. ¿A alguien se le ocurre algo? Muchas gracias de antemano. Un saludo! Gonzalo.

Hola. Soy nuevo en esto de VBA, estoy trabajando un documento, en el cual lo que estoy tratando de buscar es que, al ingresar un valor en una celda (Columna A), me ponga dos imagenes en las dos columnas siguientes, la imagen del modelo y la imagen del codigo de barras (imagenes que tengo guardadas en C:), llevo un avance con un codigo que copie de un colaborador, solo que no logro encontrar la manera de colocar la segunda imagen, alguien que me pueda aportar algo, se los agradeceria infinitamente. vba imagenes.rar

Hola a todos. Sé que es una tontería pero no doy con la solución. ¿Alguien me ayuda un poco? Necesito proteger varias celdas por macro. La macro que he hecho es esta: Private Sub Worksheet_Change(ByVal Target As Range) If [b19*C19*E19*B20*C20*E20] <> 0 Then ActiveSheet.Unprotect Password:="cuad" Range("B3:B6").Locked = False ActiveSheet.Protect Password:="cuad" ElseIf [b19*C19*E19*B20*C20*E20] = 0 Then ActiveSheet.Unprotect Password:="cuad" Range("B3:B6").Locked = True ActiveSheet.Protect Password:="cuad" If [A23] = "Sólidos" Then ActiveSheet.Unprotect Password:="cuad" Range("B23").Locked = True ActiveSheet.Protect Password:="cuad" ElseIf [A23] <&…

Estimados, Logre hacer un código para poder agrupar mis datos, pero solo lo he conseguido realizar para la columna : "J" Y lo que no he podido realizar es colocar un Activecell.offset, para que me identifique la columna anterior, y vuelva a correr la formula. En caso haya una forma más abreviada para mi macro seria de gran ayuda. Adjunto el archivo con la macro realizada. CORRER COLUMNAS A LA IZQUIERDA.zip

hola a todos, un poco chock con este problema, a ver: tengo un contador en el evento onchange de un textbox que cuenta del 1-13 caracteres digitados, pero quiero que si el usuario retrocede por un error, el contador disminuya el o los retroceso y al volver el usuario a escribir comience a incrementar nuevamente. osea como si el evento onchange contara todo menos el pulso de la tecla retroceso. La verdad quisiera decirle que tengo un ejemplo mejor que esta explicación pero no, no he encontrado nada en ningún foro que me ayude y espero que aquí si, gracias…

Buenas tarde tratando de acoplar a un archivo de auto filtro me quedo con la sorpresa que me manda un error al momento de ejecutarlo revisándolo y viendo que el código es el correcto no logro encontrar cual es el error Public Ruc As Double Public Nomclien As String Public Articulo As Double Public Descripcion As String Public Unidad As String Public Cantidad As Double Public Familia As String Public Documento As String Public fecha As Date Public fecha2 As Date Public CodFam As Integer Private Sub DTPicker1_Change() If Not IsNull(DTPicker1.Value) Then _ fecha = VBA.Format(DTPicker1.Value, "mm/dd/yyyy") super_turbofiltro_GP End Sub Private …

Hola! Por favor su ayuda para realizar una macro que me genere automáticamente una taba dinámica con la información del hoja"BASE DATOS". necesito que en el reporte se muestre la fecha de la factura, que se agrupe por número de proyecto, luego por proveedor, y que en cada proveedor se muestren las facturas que se han ingresado, las facturas deben aparecer con el monto y su fecha y además que totalice por proveedor y total general por proyecto. Adjunto el documento. Me pueden ayudar por favor?. realmente me urge. Muchas gracias y saludos. Control de facturas v.3 final.xlsm