¡Hola! Para cargar un ComboBox en un celda (con valores predeterminados de una lista) estoy utilizando el siguiente código: Private Sub mycombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then Range(mycombo.LinkedCell).Offset(1).Select If KeyCode = 13 Then ActiveCell.Offset(-1).Select End If End Sub Private Sub mycombo2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then Range(mycombo.LinkedCell).Offset(1).Select If KeyCode = 13 Then ActiveCell.Offset(-1).Select End Sub Private Sub Worksheet_Selec…

Saludos a todos, solicitando su apoyo y/o ayuda para modificar la macro que tengo en el archivo de ejemplo que adjunto, lo que que trato hacer en la hoja Datos columna A tengo varios ID, si coinciden con los ID_2 columna L, copia los datos a la columna F?:I? según ID, hasta ahí funciona bien la macro, el problema es cuando en los ID_2 no existen en la columna A (ID), no se como agregar esa parte del código a la macro para que inserte la fila y acomode los datos. Los ID de la columna A están ordenados. La cantidad de datos es variable. Agradezco de antemano sus comentarios y/o ayuda. Saludos Ejemplo.xlsm

Buenas tardes Encontre en el foro esta macro para un calendario automático Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range): On Error GoTo Sal Unload Calendario If UCase(Sh.Cells(5, Target.Row)) Like "*FECHA*" And _ Target.Row > 1 And _ Target.Cells.Count = 1 And _ IsEmpty(Target.Offset(-1, 0)) = False Then Calendario.Top = ActiveCell.Top + 160 Calendario.Left = ActiveCell.Left + 18 Calendario.Show End If Sal: End Sub Necesito modificarla para que solo se aplica ciertas celdas y filas Por ej en la columna C y fila 4 Y en mi planilla l…

Buenas tardes, llevo dándole vueltas a una idea que se me ha ocurrido para hacer más eficientes las clases particulares de inglés que imparto. Tengo una colección aproximada de más de 3000 ejercicios, y claro, cada uno es un mundo diferente: dificultad, tema de gramática, respuesta... Mi pregunta es que si sería posible hacer una macro (no tengo ni idea de cómo empezar) que me permitiera hacer lo siguiente: En base a una base de datos u hoja de cálculo con los siguientes datos (código de referencia, enunciado/oración, respuesta 1, respuesta 2, dificultad y categoría), poder extraer aleatoriamente una cantidad determinada de entradas/líneas de una categoría o dif…

Buenas amigos de ayudaexcel. el presente es para solicitar su apoyo en la aclaracion de la siguiente duda. tengo 2 archivos de excel uno llamado "Reporte de bases de datos" de una empresa X generado por mi. Mientras que tengo otro archivo llamado "Control de Reporte semanal". en estos archivos tengo basicamente la misma informacion, solo que la informacion de "Control de reporte semanal" se va actualizando con el paso de los dias, y toda esa actualizacion debo ser enviada al archivo de "Reporte..." La situacion que se presenta es la siguiente: la informacion que se encuentra en el "control de reporte.." en la columna llamada UBICACION, deseo pasarla a la columna "G"…

Buenas noches Tengo el siguiente código que muy amablemente me ayudaron Sub Nuevokardexclte() Sheets("A1").Select Sheets("A1").Copy before:=Sheets(7) For Each Sh In Sheets If InStr(1, Sh.Name, Range("B1")) > 0 Then 'se busca el guión bajo porque no sabemos cuántos índices puede llegar a tener For i = Len(Sh.Name) To 1 Step -1 If Mid(Sh.Name, i, 1) = "-" Then indi = Right(Sh.Name, Len(Sh.Name) - i) + 1 nvonbre = Left(Sh.Name, i) & indi ActiveSheet.Name = nvonbre Exit For End If Next i 'si i = 1 es que no encontró el guión If i = 0 Then nvonbre = Range(…

buenas tardes, tengo que crear un macro y no he podido. tengo dos tablas, en ambas tablas, ambas con unos valores para ciertos diamtros. necesito que la macro busque en la tabla dos, en el rango que corresponda al valor del diamtro en la tabla 1, la(s) referencias en que se encuentre la medida en mm de la tabla 1, en los rangos de la tabla 2. y copie dicha referencia en la tabla 1. Asi con mucho muchos diametros mas. me puedesn explicar como se hace, o me ayudan por favor, se los agradezco enormemente.

Estimados Apreciare su apoyo en el siguiente problema, cuento con un libro con 3 hojas las cuales la primera ("Base") me indica los datos generales de los articulos por codigo y diametro, la segunda (ingresos) me registra los ingresos (manualmente por fechas), y la tercera (salidas) me indica las salidas por fechas. Mediante un useform no se si se podria en la hoja "ingresos" que te solicite codigo del producto, fecha y cantidad, y luego de buscarlo pondria en la celda correspondiente la cantidad ingresada en el formulario, y si no encontrase el codigo te permita crearlo en la hoja "base" Adjunto archivo de ejemplo Se agradece el apoyo pregunta 1.xls

Hola, inicie un proyecto un poco complicado para mi, quiero hacer una base de datos para un control de pagos diarios de clientes a los que se les presta dinero. quiero que el formulario de busqueda al introducirle el nombre o su numero de identificacion, me arroje los datos del cliente que estan en una tabla de datos (CEDULA, NOMBRES, DIRECCION, TELEFONO, RUTA, MONTO DEL CREDITO, NUMERO DE CUOTAS, VALOR CUOTA DIARIA) en un listbox de un formulario. yo no he podido hacer ningun codigo. gracias de antemano. Base de Datos Clientes V2.0.rar

Hola buenos dias, TENGO LA SIGUIENTE MACRO: Sub ValuacionJJG1() ' ' ValuacionJJG1 Macro ' 'Replace "VALUACION (23)" with the name of the sheet to be copied. ActiveWorkbook.Sheets("VALUACION (23)").Copy _ after:=ActiveWorkbook.Sheets("VALUACION (23)") ' End Sub Duda, quisiera modificarla de tal manera que la proxima vez que la utilice en vez de copiar VALUACION 23 copie la valuacion 24 con datos ya modificados y asi sucesivamente. Espero que me ayuden, y les sea interesante el tema. Gracias de antemano.

Buenas tardes... por favor necesito ayuda sobre el siguiente tema: tengo una macro que corta y transfiere datos en una hoja, sin afectar el formato de la celda de origen. En la misma hoja me funciona de maravillas, pero no puedo transferir datos A OTRAS 7 HOJAS SIMILARES, en los mismos rangos. Cuando lo intento me copia los datos en la misma hoja de origen. Les agradeceria me pudieran ayudar con esto. Sub MigrarPUB() ActiveCell.Offset(0, 0).Range("B1:GO1").Select Selection.Copy rgoOrigen = Selection.Address 'seleccionar la primer celda de destino Set rgoDestino = Application.InputBox("Haga clic en lugar de destino", Type:=8) 'me selecciona …

Hola Amigos haber si me puedan ayudar con esto ya que recién me estoy iniciando con VB de Excel Viendo en el foro encontré un formulario para ingresar datos con dos textbox (Codigo y Cantidad)... He aumentado dos textbox mas (Nombre y Dirección) he probado con varios códigos, al ingresar los datos me borra las formulas de las demás celdas,,,, ahora modifique el código a uno mas sencillo y ya no me registra Nombre y Dirección lo registra con numero "0" Private Sub cmdInsertar_Click() ult = Sheets("PEDIDO").Range("B65536").End(xlUp).Row + 1 Cells(ult, 2) = Val(TextCodigo) Cells(ult, 3) = Val(TextCantidad) Cells(ult, 12) = Val(TextNombre) Cells(ul…

Hola a todos: Hoy soy yo al que le toca recurrir a vosotros para ver si alguno se ha visto en la misma situación En el adjunto, al introducir cualquier valor en una celda y por medio del evento Worksheet_Change(), se muestra un formulario donde se van registrando los valores introducidos. El formulario se muestra como No Modal, de forma que puedo volver a la hoja e introducir otro valor en otra celda. El problema consiste en que, al mostrar el formulario este queda activado y no me permite volver a la hoja de forma automática, o sea, tengo que seleccionar de nuevo la celda donde quiero introducir la información. A ver si alguien conoce, algún méto…

Buenas Tardes, soy nuevo en esto de Excell y del foro, yo quiero hacer una macro donde de una hoja (un cuestionario) , primero me identifique las preguntas que no están contestadas, luego que me las conteste, y las que no deban de lavar respuestas que las ponga de un color. Alguien me podría ayudar o pido mucho. Requiero la macro ya que este proceso lo tengo que aplicar casi 100 en diferentes cuestionarios, creo q seria la mejor opción. prueba 1.xls

he creado un macro, lo he guardado en el libro personal y funciona. El problema es que solo funciona en este libro, cuando intento utilizarlo en otras hojas de excel no se ejecuta, ¿Que he echo mal?

Buenos días; Por favor, me podéis ayudar??. He creado una macro con unas casillas de verificación en un formulario. Al marcar cualquier casilla de verificación y dar al botón generar, llama a una macro “Generar_Datos” y hace X. El problema que tengo es, si tengo las líneas a ejecutar de las casillas de verificación dentro del formulario funciona pero si las tengo en un módulo ( necesito que este hay ya que si no hay cosas que no me funcionan ) me da error de “variable de objeto o bloque with no establecido”, no sé cómo definirlos, los definí como objetos pero no me funciona. Os adjunto el ejemplo. Muc…

Hola, A ver si es posible lo que necesito: Tengo varias hojas ocultas en un excel que envío a los clientes, estas hojas ocultas no quiero que sean vistas, para ello pongo contraseña. Sin embargo cada semana les muestro una hoja, contraseña, mostrar.. QUisiera automatizar el proceso. Crear un menú desplegable por ejemplo, de forma que cuando seleccione una hoja oculta, automáticamente se muestre, esto solo le debo de poder hacer yo, no el cliente, por lo que supongo habrá que poner una contraseña Controlo el excel, pero no tengo ni idea de bb ni programación de macros, Muchas gracias (excel 2007)

Buenas Tardes, Agradecería me ayudaran a desarrollar la macro, mis conocimientos son escasos para este tema. Adjunto envío archivo. Muchas gracias. prueba.xlsm

Buenas a todos Tengo un pequeño problema y es que estoy haciendo una macro que me haga dos tablas dinámicas, me hace la primera pero la segunda me genera error, hice la macro de cada tabla por separado y en otro código las llamo,adjunto el archivo para que pueda visualizar el problema, ejecuntenla y alguien que me dé una luz para corregir este impase. Muchas gracias. tablas dinamicas.rar

Buenas Tardes: No sé si a alguien le haya ocurrido antes, pero me ocurre lo siguiente. Al teclear dentro del textbox para buscar productos, presiono una letra del teclado, y automáticamente ingresa la letra y luego se selecciona la celda activa para escribir la siguiente letra a teclear. Por tanto queda escrita una letra en el textbox y debo pinchar nuevamente el textbox para escribir la siguiente letra, de lo contrario, sigo escribiendo en la celda. Lo probé en otro PC: Funciona de Maravillas, es muy probable que si descargan el Excel les funcione también a la perfección el buscador. Lógicamente, antes no me ocurría esto, tengo la idea que la macro se finaliza en alg…

Me surgió la duda de como automatizar mediante una macros un registro que al seleccionar un empleado , año, mes y dia se filtre los datos correspondientes y pegarlos a una hoja con el mes y dia seleccionado... les subo mi avance espero su ayuda Empleados_Prueba2.rar

hola amigos he diseñado un código para realizar una suma en acces con condiciones pero no me suma. al final la palabra inicio indica una fecha y es hay donde no me suma esa condición ya que la sumatoria, deberá sumar todos los valores menores a esa fecha que indica la palabra inicio, y no se cual sera el error Sub saldo_anterior() Set Rs = New ADODB.Recordset SQL = "Select Sum(FACTURASCREDITO.VALOR) as SALDOANTERIROR" & _ " From FACTURASCREDITO" & _ " WHERE FACTURASCREDITO.NIT= '" & NIT & "'" & _ " and FACTURASCREDITO.MOVIMIENTO= '" & "SALIDA" & "'" & _ " and FACTURASCREDITO.FECHACREACION <" & INICIO With Rs …

Hola. Necesito una macro que yo le aporte un valor a buscar y me lo buque en todos los libros situados en la misma carpeta que el libro con la macro y en las subcarpetas. De otro hilo he conseguido esta macro, que funciona bien pero solo busca en la misma carpeta, le das a un botón y se abre un userform, introduces lo que quieres y el te dice si lo ha encontrado o no. ¿Como podría hacerlo para que además busque también en subcarpetas? Master.xls

Buenos días, expertos necesito una ayuda en mi archivo en la hoja Etiquetas_1 hay formato de rótulos ese formato quisiera que se imprima las cantidad de veces de acuerdo a numero que representa en la columna bultos, cada rotulo representa a a un numero de bultos; balga la redundancia, lo que necesito es una macro que me imprimala cantidad de veces de cada rotulo de acuerdo el numero de bultos se puede cambien de numero o en otros no se puede poner ningun numero entonce tampoco imprimiria. Muchas gracias, esperando su ayuda por favor. Adjunto el archivo Rotulos-wings.xlsm

Buen día, amigos espero puedan ayudarme, estuve buscando modelos para poder ejecutar mi pequeño proyecto, pero me perdí en el intento de interpretar códigos, necesito ayuda, saben mi problema es el siguiente: tengo un libro llamado rendiciones, consta de tres hojas bd, consulta y rendición, la hoja rendición es la principal, deseo que mediante el comando consultar pueda derivarse a la hoja consulta y al ingresar un dato en la celda pueda filtrarse información de la base de datos, DESDE YA AGRADESCO INFINITAMENTE SU APOYO. RENDICIONES.xlsx