Buenos días a todos , agradecería su ayuda con el siguiente tema Lo que pasa es que vi esta consulta [sOLUCIONADO] Editar datos desde un ListBox | Ayuda Excel que realizo el señor Macro Antonio en la cual decía como eliminar un registro desde un listbox de búsqueda, que era justo lo que yo estaba necesitando, pero en el momento en que adapto el código para mi archivo me sale un error y la verdad no he podido dar con el problema. A contonuacion relaciono el link donde se encuentra el archivo: Dropbox - Eliminar Registro ListBox.xlsm Alguno me podría asesorar para saber cual es el problema por favor. Muchas gracias

Buenos días: El problema que tengo es que me guataría solucionar lo siguiente: 1 - Imprimir un archivo .pdf cuando pulse el botón imprimir, con las siguientes condiciones. 2 - Las hojas que han de imprimirse son: la actual y la que tiene el mismo nombre que la celda (C19). 3 - El valor de la celda (C19) viene de la hoja Datos celda (C8) que es una lista desplegable. 4 - El nombre del archivo ha de ser el valor de la celda (B36) de la hoja activa 5 - La ruta donde se guarde cualquier carpeta, por ejemplo una que se llame "presupuestos" La versión de Excel que utilizo es 2010 Espero no abusar de vuestra paciencia y os doy las gracias por anticipado. Un saludo desd…

Muy Buenas a todos los que integran ayudaexcel.com/foro, buenos por molestarles una vez mas, ya que he tratado de generar una especie de calculadora con el uso de un userform, pero dado que tengo bajos conocimientos no lo he logrado, aquí es donde solicito su valioso tiempo y ayuda. La idea es desde el formulario calcular cantidad*precio con el checkbox activado para que multiplique con IVA(impuesto), si lo desactivo solo me realice la multiplicación, En la casilla de IVA sume todo el IVA calculado(Ejemplo, de los cinco valores que introduzca tres poseen IVA y el resto no, por lo que desactivo el checkbox). Cantidad*Precio*Depende del estado del checkbox=suma (1*10)(iv…

Buenas tardes!! Realmente tengo 0 experiencia con los macros, necesito resolver una duda que según lo que he leído solo puede ser mediante macros ahora si, tengo un libro de excel con 68 hojas, necesito mostrar el dato de cada celda B8 de cada hoja a la primera hoja del libro o sea en la en la =Hoja1!G2 necesito mostrar la =Hoja2!B8, en la =Hoja1!G3 necesito mostrar la =Hoja3!B8 y asi hasta la =Hoja1!G68 necesito mostrar la =Hoja68!B8 espero que me hayan entendido y puedan explicarme como a un niño muchas gracias de antemano por su tiempo y colaboración Leslie V.

Hola Quisiera de su apoyo!! Resulta que tengo un filtr que busca entre fechas eso lo tengo pero quisiera agregar mas criterios para la filtracion los criterios se sacarian de la columna F que son nombres para luego copiarlos en la hoja2.. Ej Presiono el boton que esta en la hoja1 aparece el userform y selecciono fechas en los dos combobox ese filtro deja los datos en la hoja2 pero me gustaria agregar mas criterios para el filtro que aparte de la fecha sea tambien con la columna F de la hoja1 .. Busco las fechas y solo me filtre los que sean con nombre Hola1 y hola2 de la columna F de la hoja1... Por favor gracias Agregar criterios de busqueda.zip

Soy nuevo en lo que es programacion VBA a macros,tengo un gran problema en el cual me he quedado estancado,quisiera que el valor de mis columnas puede ser dividido entre 10 y 100 ,adjunto mi excel para un mayor entendimiento. Gracias de Antemano DATOS DE EXAMENES.rar

Podrian ayudarme a solucionar este problema al copiar y pegar me da problemas con vba Fecha.xls

Tengo esta Macro que guarda la hoja, pero quiero que lo haga igual para todo el Libro. Muchas Gracias Option Explicit ' Sub EXCELeINFOGuardarHojaComoArchivoNuevo() ' Dim VentanasProtegidas As Boolean Dim EstructuraProtegida As Boolean Dim NombreHoja As String Dim Confirmacion As String Dim NombreArchivo As String Dim GuardarComo As Variant Dim Extension As String ' On Error GoTo ErrorHandler ' VentanasProtegidas = ActiveWorkbook.ProtectWindows EstructuraProtegida = ActiveWorkbook.ProtectStructure ' If VentanasProtegidas = True Or EstructuraProtegida = True Then MsgBox "No se puede ejecutar el comando cuando la estructura del archivo está protegida.",…

Hola. Estoy empezando a investigar en el mundo de los formularios pero parece que no se me da muy bien. Os explico. Tengo un Formulario con tres grupos de diez TextBox cada uno. Lo que necesito es, mediante el boton "REGISTRAR", introducir los datos de los TextBox en diferentes columnas de la hoja "Aux". Ejemplo : Textbox LR01 a la celda A2 Textbox LR02 a la celda A3 ... Textbox LP01 a la celda D2 Textbox LP02 a la celda D3 ... Textbox LE01 a la celda G2 Textbox LE02 a la celda G3 ... Lo no consigo hacer es una macro que me recorra todos los TextBox del formulario y que si éste contiene datos me los lleve a su celda correspondiente de la hoja "Aux". En el adju…

Hola a todos, Estaba trabajando en mi Libro de excel cuando de un momento a otro el userform que habia creado dejo de funcionar, no entiendo que pasa, primero decia que era Error 9 y despues dice que es Error 91. Cuando le doy Depurar me señala la linea para buscar la celda libre. Adjunto el archivo de excel. Muchas gracias. Este es el codigo Private Sub AddexpenseButton_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("EX") 'find first empty row in database iRow = ws.Range("B:H").Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 'check for the amount box empty If Trim(Me.AccountBox1.Value)…

Hola ben día: Me podria ayuar a localiza el error en la siguinte sintaxis ya que por mas que la intent buscar no la encuentro, lo que esta en negrito es dondeme aparece el error Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 6 Then Cells(Target.Row, 6).Value = Now End If End Sub ----------------------------------------------------------------------------- Private Sub Workbook_Open() Worksheets("09-00 AM").Protect "aBc", 1, 1, 1, 1 End Sub ------------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then ActiveCell.Select Wit…

Hola, Recientemente estoy en esto de las macros, y me gustaría particularmente ayuda para un trabajito que tengo por ahí, en el cual es: Crear un botón, donde al precionarlo, pueda agregar las calificaciones de una persona (permitiendo únicamente numeros cerrados del 5 al 1o) y que cuando quiera agregar las calificaciones de otra persona, automáticamente se coloque la información debajo de la anterior persona. A ver si me pueden ayudar, les dejo mi archivo del avance que llevo. Libro1.xls

Hola. Estoy creando una hoja de cálculo bastante extensa y la cual tiene que trabajar en casi todos sus módulos con un valor (fecha) que se introduce en un TextBox al iniciar el documento. ¿Cómo podría dejar asignado ese valor desde el principio y que todos los procedimientos y módulos lo reconozcan ? Os dejo un ejemplo sencillo de lo que me interesa hacer. El archivo te pide una fecha y luego debería trabajar con ella en diferentes módulos para devolver diferentes valores. Pero claro, al pasar del formulario a los módulos se me inicia en cero. Un saludo a tod@s ! fecha_publica.rar

Tengo una macro que al exportar una seccion de excel exporta el rango en blanco sin informacion no se por que aqui el codigo Sub Descripcion_jpg() Sheets("Ingreso Productos variables").Select Dim B As String B = Range("C43").Value If B = 2 Then Exit Sub End If Sheets("Descripcion").Select ActiveSheet.Unprotect ("adctv530") Dim rgExp As Range: Set rgExp = Range("B22:K42") Dim archivo As String archivo = Range("A1").Value ''' Copy range as picture onto Clipboard rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ''' Create an empty chart with exact size of range copied With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, T…

Hola Muchachos, Pues Pido d su ayuda debido a que no me e familiarizado mucho en VBA para Excel. Pues tengo un Formulario ( Bienvenido ) con un Label llamado LblVendedor pues a este quiero Asignarle un Caption a través del Nombre de un Caption de un Botón incrustado, el Problema es que, el botón incrustado no se encuentra en el mismo Modulo y no se como hacer la referencia en el Procedimiento para asignar el Caption a LblVendedor.. Private Sub CommandButton1_Click() Label = Me.CommandButton1.Caption LblVendedor.Caption = Label <------ aca Esta mi duda....... Bienvenido.Show Valor = 1 End Sub Su ayuda Por Favor...

Necesito que al sumar en A1, =1+A2 e ir cambiando valores a A2 me borre la celda B1, por ejemplo. Dejo un codigo básico solo para aclarar la idea. Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value NOSE QUE PONER AQUÍ Then Range("B1").ClearContents End If End Sub

Buenas tardes a todos, ojala puedan ayudarme. Estoy Haciendo un programita en Excel el cual va a servir para imprimir etiquetas para un inventario, las etiquetas contienen no_parte, ubicación, descripción e imagen, estos datos están almacenados en una BD en Excel, excepto la imagen que esta en una carpeta C:\imágenes(Cada imagen se llaman como el no_de parte) En el formulario por medio de formulas se mandan llamar los datos dependiendo de que rango de numero a que rango quiero imprimir sin embargo para que me aparezca la imagen no se como hacer. Anexo código que encontré: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next 'If Target.Ad…

Hola amigos, actualemnte estoy tratando de crear una macro que pase datos de una hoja a otra de acuerdo a un criterio y este el nombre del encabezado de cada columna. por ejemplo de la hoja "origen " debo pasar todos ls datos de la columna que en la sprimeras celdas tiene el valor de "Codigo " y "Valor",sin embargo no sé como hacerlo. estos valores no siempre estaran en la columna A ni D, pueden variar de ubicación. mas o menos imagino, es que se deb tener un bucle que rrecorra las celdas desde la A1 hasta la ultima columna con datos que en este caso es D1) y buscar aquellas columnas que tengan en el encabezado los valores de "Codigo" y "Valores" espero que pued…

Buenos Días, por favor necesito un ayuda, necesito bajar archivos generados en un servidor, actualmente tengo un ejecutable .bat pero necesito pasar ese código a excel ya que la idea es poder generar una macro para que me organice la información pero eso ultimo lo hago, no he logrado pasar los códigos de los .bat a excel, gracias si alguna persona me puede ayudar, anexo los archivos que actualmente utilizo. ftp.zip

Hola de nuevo a tod@s ! No encuentro apenas información sobre la forma de trabajar con los SpinButton de los controles ActiveX de excel, al menos en lo que a fechas se refiere. Partiendo de un cuadro de texto con la fecha de hoy, mi intención es ir variando esa fecha en +/- 1 días según se van pulsando las flechas del SpinButton. Os dejo el archivo para ver si podéis echarme una mano. Muchas gracias y un saludo ! subir_bajar_fechas.rar

Buen día; Tengo el siguiente código: Private Sub CommandButton19_Click() Application.ScreenUpdating = False Sheets("Resmar").Visible = True Call Send_Range_Or_Whole_Worksheet_with_MailEnvelope Sheets("Resmar").Visible = False Application.ScreenUpdating = False End Sub[/CODE] El cuál me envía a un mail designado cierto rango de una hoja de excel en el cuerpo del correo. Funciona muy bien el código,, si ven incluyo que no se visualicen las actualizaciones de pantalla, pero sólo funcionan la de Excel, se ve la ejecución en el Outlook. Se puede incuir algo en el código, para que no se vea la ejecución del Outlook? Posi sirve de algo dejo tam…

Buenas amigos Necesito su ayuda. para este "miselaneo". tengo Varios Archivos de Excel que quiero bloquear masivamente para que solo se pueda leer todos con una misma contraseña. Saben de alguna macro o me pueden apoyar con la creacion de dicha macro para poder hacer esto. lo que pasa es que son como 500 archivos, y bloquear uno por uno con la misma contraseña pues va a ser un trabajo muy tedioso. quedo a espera de su apoyo espero me puedan ayudar maestros. Saludos

Hola buenas Tardes, tengo una duda, ayer con su ayuda pude resolver 1 problema pero me causo 1 mas la cual estoy intentado resolver, si me pueden ayudar se los agradeceria. Bueno ahora tengo 2 ejemplos los cuales me estoy basando. El Catalogo 1 si me elimina y me habre el modificiar pero al darle click a los items del listbox El catalogo 2 Me muestra todos los items que hay en la hoja de excel pero no me deja eliminar ni modificar porque al seleccionar los items no se selecciona Lo que me gustaria si no es molestia es que Se visualice como en el Catalogo2 todos los items de mi hoja de excel, y que al seleccionarlo pueda Eliminar, o modificar como en la Hoja 1. Tengo…

Hola a todos: Tengo el siguiente problema: Una tabla de Excel que se va a ir alimentando de las veces que ese numero se repita en una lista: Esa lista es Tiradas y Numeros. La tabla que aprece a la izquierda se alimenta de la siguiente forma: Ejemplo: 2 2 5 3 8 2 11 2 14 1 Es decir: El Numero 2 se repitio 2 veces, el 5 3 y asi sucesivamente , con el formato condicional establezco que siempre que la celda tenga un valor >0 me lo sombree. Cuando se sombrean las celdas necesito hacer un copy de las que se sombreen mas de 4, es decir 2 5 8 11 14 1 4 7 10 en otra parte de la hoja o en otro sheet. Adjunto un documento de ejemplo para ver si se entiende, por…

Saludos Tengo un código VB que es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Si hay errores, que continúe On Error Resume Next 'Si cambiamos el dato de la celda X, mostramos la foto de ese Clan If Target.Cells = Range("E24") Then 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Pasamos a una variable, el nombre de la foto, 'que será el mismo que el nombre del Clan imagen = Range("E24").Value 'Añadimos la extensión "png" imagen = imagen & ".png" 'Buscamos la foto en el mismo directorio 'donde tenemos este fichero de Excel ruta = ActiveWorkbook.Path & "\clanes\" & imagen 'Borramos la foto del Clan (si hub…