Buenos días, tardes, noches compañeros Hoy vengo con una duda que no he podido encontrar solución, en internet o en el foro. La consulta es la siguiente: estoy tratando de realizar una macro para insertar de manera automática una "Validación de datos con lista desplegable", con números enteros, la macro que he hecho, basándome en lo que he encontrado en internet y en mi poco expertís es la siguiente: With ActiveWorkbook With .ActiveSheet For iCo = 1 To 9 lCodigoEF = lCodigoEF & "," & CStr(iCo) Next iCo With .Range("C2:C1000").Validation .Delete .Add Type:=xlValidateList, AlertStyle:…

hola me gustaria saber cual es la parte del codigo donde pones que se ordenen las graficas una debajo de la otra por codigo osea cual es codigo, yo tengo el sig. codigo que grafica me grafica una sobre otra. anexo el codigo aunque esta muy personalizada a cierto formato que tengo pero solo me falta eso que te explico arriba. gracias de antemano Sub crear_grafico() ‘Ocultamos el procedimiento Application.ScreenUpdating = False ‘Pasamos a una variable la celda donde estamos, ‘para volver a ella al finalizar el macro celda_donde_estamos = ActiveCell.Address ‘Vamos al principio del rango de datos ‘(celda de arriba a la izquierda). ‘Mejor usar esto, que CurrentRegion: If Ac…

Buenos dias expertos, en un canal de youtube encontre un archivo para consultar dni y ruc desde la pagina de sunat y/o reniec pero funcion creo solo en plataforma de 32 bits y no en 64 bits, alguien tendra una manera de poner un codigo que funcione en las dos plataformas, por favor adjunto el archivo, por favor lo voy agraceder infinitamente. Consulta DNI y RUC.xlsm

Hola, Soy nuevo en macros, y encontré éste archivo de COntrol de Entradas y Salidas. Quisiera saber qué debo cambiar para que funcione la macro SIN que el "código" sea numeral NI correlativo, es decir que reconozca un código alfanumérico. Ejemplo: A2=TS1243X Control Entradas y Salidas Macros.rar

Hola, aquí les va mi problema, espero que alguien me pueda ayudar. Tengo un formulario para el control de ordenes de compra en una empresa, al final del proceso mando hacer la vista previa de la imagen para después volver a aparecer el formulario y de ahí pulsando el botón guardar, enviar la orden de compra y/o requisición a imprimir y a respaldar como PDF en la carpeta correspondiente, así como el respaldo del registro de dichas compras o peticiones en un archivo de base de datos existente en la red. Mi problema es que me marca un error 1004 argumentando que no se pudo guardar el PDF. El depurador me resalta la siguiente parte del código Guardaren = directorio & …

hola a todos, me gustaría saber si hay alguna forma de pasar varios txt con datos, a 1 solo csv ó xls, pero que cada txt esté en una hoja diferente pero todo en el mismo libro........ Espero haberme explicado Gracias y un saludo

Buenas noches, parecera para algunos sencillo pero a mi el tema me esta trasnochando por mis conocimientos limitados en macros. Quisiera programar una macro que me subtotalice en las celdas vacias de la colmumna y de ahi continue a la siguiente y asi en adelante. Adcional como puedo hacer que la macro determine cuando parar y totalizar?. Gracias de antemano a quien me pueda hechar una mano con el tema. Adjunto un excell para ver si es clara mi solicitud. Ejemplo.xls

bueans tengo este codigo Private Sub BtnGrabarDatos_Click() On Error Resume Next intvalor = 1 For i = 1 To ReCantidad Step 1 Range("B6").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop Range("B5:V5").Copy Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormatsAndFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False ActiveCell = CDbl(ReCodigo) ActiveCell.Offset(0, 1) = ReCategoria If IsNumeric(ReNuFactura) Then ActiveCell.Offset(0, 2) = CDbl(ReNuFactura) Else ActiveCell.Offset(0, 2) = ReNuFactura End If If ReReferencia.Enabled = False Then ActiveCell.Offset(0, 5) = "" …

Hola, tengo un libro con el que hago escandallos para un restaurante. El libro contiene varias macros. Y cada vez que lo abro me da el siguiente error: Aviso: Hemos encontrado un problema con contenido de "wary_escandallos_19.xlms". ¿Desea qué intentemos recuperar el máximo de contenido posible? Si confía en el origen de este libro, haga clic en Sí. Le quito las macros y sigue dando el error. No se donde puede estar el error. No sé si tendrá algo que ver qué dicho archivo se abre en windows y en mac indistintamente. Muchas gracias por vuestras sugerencias.

Hola amigos tengo una macro que inserta una imagen en un control image y en una carpeta de imagenes, funciona bien hace su función casi perfecta, pero tengo un pequeño detalle cuando doy click en el botón donde esta la macro y aparece el explorador de windows y no selecciono ninguna imagen, pero cierro el explorador me arroja un error diciendo "archivo no encontrado".Alguien podrá ayudarme en revisar mi macro y decirme que me falta para que esto no suceda. Gracias por su atención. Private Sub CommandButton4_Click() ArchivoSeleccion = Application.GetOpenFilename ' Elegimos la imagen y la ruta Altas.Image1.Picture = LoadPicture(ArchivoSeleccion) ' cargamos la im…

Buen día estimados expertos, acudo a ustedes solicitando su valiosa colaboración con la finalidad de poder resolver esta tématica: tengo un formulario en el cual existen 3 combobox dependientes unos del otro, lo que pretendo hacer es que dependiendo el pais que se coloque en el textbox1 sea como ponga la nacionalidad en el textbox 2, es decir; en el formulario tenemos el btn_aceptar que es el que manda concatenadamento el contenido de los 3 comboboxs hacia el textbox1, pero lo que quiero hacer es que con el btn_nacionalizar ponga en el textbox2 la nacionalidad deacuerdo a lo que se escriba en el textbox1, por ejemplo si pusieron en el textbox1 "MÉXICO" (aunque existan otr…

Buenas tardes, tengo la macro para Copia datos, abre otro libro pega datos, guarda y lo cierra, pero me falta lo que esta en rojo. Un saludo

Hola a todos!!! Les comento, tengo un formulario que tiene varias TextBox y un Botón de Comandos para insertar datos en una hoja. Lo que necesito es que una de las TextBox solo admita ingresar los datos de la siguiente manera: 1- Sólo se puedan ingresar 6 caracteres. 2- Los primeros 3 caracteres sólo puedan ser letras mayúsculas. 3- Los últimos 3 caracteres sólo puedan ser números. He buscado en el foro y he encontrado como hacer que admita sólo números, también para limitar el número de caracteres, o para que se ingresen sólo mayúsculas, pero no he encontrado cómo hacer una combinación de los 3 para un solo TextBox, como en mi caso. No se si es posible, pero desde ya…

Buenas Tardes a toda la comunidad de AyudaExcel quisiera saber si me podrian ayudar con un problema que tengo recien estoy comenzando a ver el Excel y me estan pidiendo un macro para agregar Columnas despues de un tipo de contenido en una celda por ejemplo [TABLE=class: grid, width: 500] [TR] [TD]PEPE[/TD] [TD]TOTAL[/TD] [TD]MARIA[/TD] [TD]TOTAL[/TD] [TD]WENDy[/TD] [TD]TOTAL[/TD] [/TR] [/TABLE] entonces lo que me piden es que con la macro busque todas las celdas que tienen el valor "TOTAL" y agregue 2 columnas en blanco despues para que quede asi [TABLE=class: outer_border, width: 500] [TR] [TD]PEPE[/TD] [TD]TOTAL[/TD] [TD](vacio)[/TD] [TD](vacio)[…

A ver si me podéis echar un mano, Necesito importar una serie de datos en orden de un fichero .txt automáticamente. Los datos están separados por espacios aunque el formato del txt se podría modificar si fuera necesario, y cada dato separado por espacios debe ir en celdas contiguas. Ejemplo: [B]Datos del txt[/B]: 24/02/2012 14:39 2406,500000 [B]En excel[/B]:[B] En A1[/B]: 24/02/2012 [B]En B1[/B]: 14:39 [B]En[/B] [B]C1[/B]: 2406,500000 [/CODE] Aparte de ésto luego tengo que arrastrar unas fórmulas manualmente ¿Se podría hacer también un arrastre automático de ciertas celdas? Adjunto dos ficheros, un .txt con el formato de los datos y un .xls con lo que neces…

Buenos dias, necesito ayuda para saber como puedo evitar que mis formularios de VBA al ejecutarlos ni cierren los demás Libros que ya tenia abiertos.

Buenas tardes, tengo un problema al buscar un dato en un textbox que hace referencia a otra hoja trabajando por worksheetfunction, estaba tratandolo contra error, pero no lo he logrado aún, el asunto es que si no encuentra el valor en el rango que le asigno que me muestre un msgbox y que de lo contrario si existe entonces que coloque los valores encontrados. Alguien me podría ayudar a saber en dónde se encuentra el fallo?, porque me dice que no se puede obtener la propiedad vlooup de la clase worksheetfunction, gracias por cualquier respuesta. Private Sub TextBox2_BeforeUpdate(ByVal cancel As MSForms.ReturnBoolean) 'Dim BUSCAVALOR As Double 'With Workshee…

Hola. Se trata de libro protegido y con varias hojas y algunos botones asignados a macros en cada una de ellas. De pronto y sin entender la causa, todos los botones aparecen más chicos y cambiados de su lugar original. Cabe mencionar que esto no sucede en todas las hojas del libro, pero desconozco la causa, teniendo la tarea de volver a configurar tamaño y ubicación, Si alguien tiene la solución, he de agradecerlo. Saludos desde Chihuahua, Chih. México.

buenas noches, tengo una inquietud que me la adquiri al ir de tema en tema y encontrarme un archivo llamado agenda el cual es lo mas parecido al concepto basico de automatizacion, pero al estar probando el contenido me di cuenta que tiene un error un tanto fatal que no supe como resolver y es que la parte de busque no lee la cantidad de filas y columnas y la verdad no entiendo porque se pasma cuando contiene demasiados datos, he aqui mis preguntas ¿no se supone que debe leer el maximo de filas y columnas?, ¿como puedo hacer para que ello funcione si suponieramos que estan llenas las filas y columnas especificadas?, ¿como seria entonces el codigo para que funcionara como s…

Tengo un archivo quisiera generar una macro que me extraiga la información de las transacciones ordenadas en una hoja de excel y no encuentro la manera de solucionar ya que tiene varios emcabezados, Gracias por su ayuda adjunto archivo de ejemplo. 20131009_20131009.txt

Hola amigos de AE. Les escribo acerca del APPCRASH, solo quiero información. He encontrado en la red información. Pero si pudieran comentar al respecto. Que es, por qué sucede, como evitarlo, etc Gracias

buenas tengo tres problemas 1- En los formularios "FACTURA SIMPLE" y "FACTURA MIXTA" en el combobox de categoria, si se pone una letra que no esta en la hoja de codigos por ejemplo "Y" me dispara un error hacia la linea de codigo: Me.ICodigo = nombre.Offset(, -1)[/CODE] es etico resolver el problema poniendo este codigo?: [CODE]On Error Resume Next[/CODE] no es muy elegante... 2- En la parte de modificacion y eliminacion de datos al dar los cambios sea modificar los datos o eliminar los datos en la hoja de "REGISTRO" que solo se necesita mostrar los datos desde la columna "B" hasta la "Q" extra;amente inserta datos desde la columna "R" hasta la "U" cosa que no…

Buenas noches, deseándole existo a la pagina y a sus colaboradores del mismo, quisiera nuevamente molestar su atención a este problema. Genero un reporte desde esta instrucción y lo que deseo es que al presionar la tecla de cancelar impresión debería cancelar pero no lo hace por consiguiente hace la impresión dicho reporte Sub PENSI() For f = 8 To 8 Sheets("BOLETA PENSIONISTA").Select Range("A1:H70").Select Range("CODIGO3") = Sheets("PENSIONISTA").Cells(f, 1) Application.Dialogs(xlDialogPrinterSetup).Show 'Abre el formulario para seleccionar y configurar la impresora ' ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWindow.SelectedShee…

Hola, buenas tardes, hacía tiempo que no escriía por el foro. Tengo una macor que da formato a unos valores de una hoja Excel, mi problema es que intento conservar el color del fondo de "sólo" las celdas con determinado height y no soy capaz de hacerlo. El código que estoy intentando usar es: ... If Range("a6").EntireRow.RowHeight = tamanio Then celdaActual.Interior.ColorIndex = 2 End If ... Podéis echarme una mano. Gracias. Saludos.

Hola amigos del foro : Bueno tengo uan consulta ya que soy nuevo en excel cual seria la funcion correcta para tener como resultado un reporte con valores repetidos ejemplo : Un reporte de guia por fecha desde y hasta ; y tambn que genere un reporte x nombre osea q tenga uan opcion para yo poner un valor y k me genere un reporte ejemplo : [TABLE=width: 711] [TR] [TD=colspan: 5]REPORTE DE GUÍAS INROPRINT SAC[/TD] [/TR] [TR] [TD][/TD] [TD][/TD] [TD][/TD] [TD][/TD] [TD][/TD] [/TR] [TR] [TD=colspan: 2]INGRESAR FECHA[/TD] [TD][/TD] [TD][/TD] [TD][/TD] [/TR] [TR] [TD]DESDE[/TD] [TD]01/05/2012[/TD] [TD][/TD] [TD][/TD] [TD][/TD] [/TR] [TR]…