Estoy haciendo un formulario, y deseo que cuando yo de click en el boton agregar me copie los campos llenados y me genere un folio consecutivo al ultimo generado, pero realmente no se como poder hacerlo espero me puedan ayudar. ya adjunte mi archivo, acabro de hacer una macro que lo que hace es que copia todos los campos que yo llene y los pone en la hoja de "Base", pero el unico campo que me hace falta que genere y copie es el de folio, y no se como hacerlo. Ejemplo.xls

Hola a todos. Tengo un problema. Estoy intentando hacer un archivo en Excel donde a través de un cuadro de diálogo abro un archivo Excel y quiero importar esos datos a Access. Como estoy haciendo pruebas solo intento importar varios campos, pero no consigo hacerlo. Me da este error: El código que estoy intentando hacer funcionar es este, que no es obra mía, he encontrado en la Red y he intentado adaptarlo. Option Explicit ' Public Conn, Sql$, rs_AV, Rs2 As Object, Rst As Recordset ' Sub Conexión() ' On Error Resume Next: Rst.Close: rs_AV.Close: Rs2.Close: Conn.Close: On Error GoTo 0 Set Conn = CreateObject("adodb.Connection") Conn.Open "Provider=…

Buenos días, Tengo un problema con un archivo de excel al que quiero mediante un botón ocultar las columnas cuyas celdas estén vacías, es un inventario de productos por almacen que muestra las cantidades del mismo de acuerdo al código de cada producto. Me oculta las columnas del rango que estoy usando sin tomar en cuenta si están vacías o no. En una archivo con menos datos lo he probado y si funciona. Adjunto el archivo para que lo miren. También tiene programado un buscador para que muestre solo la referencia del producto requerida, entonces la mecánica del archivo sería mostrar solo una referencia de producto y poder ocultar las columnas (almacenes) que no te…

Pues eso amigos, al agregar cliente nuevo, al pasar al TextBox2 me dice eso (OCURRO UNA EXCEPCION) y no puedo seguir. Ya di vueltas al codigo pero como praticamente nada entiendo pues, quisiera una ayuda de algun experto en la materia. Estuve con F3, averiguando los nombres y algunos hacian referencia a un directorio y libro no se el porque, ni libro ni directorio existen, elimine esos nombres Agradecido. Fiesta0.part1.rar Fiesta0.part3.rar Fiesta0.part2.rar

Amigos, la siguiente macro se ejecuta perfectamente, pero al terminar de ejecutarse aparece Error 13 "No coinciden los tipos", no he podido encontrar la solución. Alguien me puede ayudar? (Ya probé instalando el Hotfix KB983246). Saludos......................................................................................................................................................................Sub Tramos() 'Borrar Datos Anteriores '**************************************************** Range("L4:M175").Select Selection.ClearContents Range("L4").Select '**************************************************** Dim m, j As Double Dim p, n, u, r, t, k, w…

Buenas, necesito una macro que me permita abrir un cuadro de dialogo, seleccionar una carpeta y copiar todos los archivos que hay dentro a otro destino. Gracias de antemano Saludos!

Estimada Comunidad: Recurro a ustedes esperando que se encuentren muy bien: Les escribo para hacer consulta sobre como podría generar números aleatorios con VBA, los cuales se vayan enlistando a medida que vayan saliendo. Mi idea es simular un sorteo aleatorio de las personas que se deberán encargar de la limpieza de un lugar y que, una vez les haya tocado limpiar, quede registrado en una hoja excel el día que les ha tocado. Además, lo ideal es que no se repitan hasta que todos hayan pasado por 1 día de limpieza. De lo anterior desprendo que lo necesario es lo siguiente: 1) Generar 3 números aleatorios que no se repitan entre sí. 2) Verificar si ya han limpiado …

Hola amigos, Estoy intentando que el color de fondo de un ToggleButton cambie de color según si está pulsado (verde) o no (rojo). He probado varios código que he encontrado en la red, pero no lo he conseguido. Además de eso se me produce un efecto no deseado con el contenido. Si pulso el botón en el formulario me muestra "Alta" y si no lo pulso muestra "Baja". Hasta ahí correcto, el problema es al grabar cambios, en la correspondiente columna de la hoja de cálculo guarda "VERDADERO" y "FALSO" y al volver a ejecutar el formulario me muestra precisamente eso, en lugar de "Alta" "Baja". Agradezco vuestro tiempo!! Trabajadores.xlsm

Buenos días; Me acaba de surgir un problema en la macro que estoy haciendo y por mas que lo he dado vueltas no he conseguido solucionarlo, a ver quién me puede echar una mano. Tengo varios datos que tengo que transformar en fecha los datos son como el siguiente " 18/04/13/ 0", primero reemplazo “/ 0” por nada y luego quito el espacio que tiene al principio, una vez realizado esos 2 pasos ya tiene el formato de fecha, si lo hago sin macro el Excel solo me pone “18/04/20132, pero si lo hago desde la macro se me queda así “18/04/13” y con el símbolo de error para que elija entre convertir en xx en 20xx o en xx en 19xx. Como podría hacerlo con una macro??. Muchas gracia…

Buenas Tardes Tengo un formulario, que contiene unos 10 textbox, para los cuales quiero configurar las siguientes propiedades Private Sub TextBox_Enter() TextBox4.BackColor = RGB(245, 245, 245) End Sub Private Sub TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.BackColor = RGB(255, 255, 255) End Sub Quisiera saber si hay alguna forma de configurar esto para todos los textbox con un solo código, y no tener que hacerlo para cada textbox..

Hola, estaba intentando hacer una macro en el libro inventario que al ejecutarla me abra el libro datos2 y vaya recorriendo la columna producto y comparando cada dato de dicha columna con el que hay en la columna producto del libro inventario, si lo encuentra me copie en el libro inventario el dato que ha encontrado siete columnas a la derecha en la columna cantidad (.offset (0,7)), y si no lo encuentra copie el código, producto y cantidad al final del todo, en la primera fila vacía del libro inventario, pero me estoy liando un poco.... El libro datos2 cambia todos los meses, por eso quiero copiar los datos del mismo en el libro inventario gracias por la …

¡Saludos nuevamente amigos de AyudaExcel! En esta oportunidad les solicito su colaboración para realizar una tabla filtrada con las siguientes características el cual ejemplificaré fácilmente: En mi país (Venezuela), la organización territorial es de mayor a menor en 24 Estados, cada estado se divide en Municipios q son en total 355, los municipios se dividen en unas cuantas Parroquias y estas a su vez en otro tanto de Sectores El caso es que quiero filtrar datos los cuales están contenidos en Sectores, pero para eso primero tendría q seleccionar en una celda, tipo lista desplegable (la cual ya se hacer este paso por "Datos--->Validación de Datos"), Estados, para qu…

Buenas tardes, tengo un libro con pedidos( cada pedido es una hoja) todos exactamente igual con el mismo formato , y quiero llevar una relacion de estos pedidos ( para eso la macro) , esta hoja la llamo resumen y siempre es la ultima. he creado esta macro con ayuda, pero no me funciona. Me pone que no se puede ejecutar codigo en modo interrupcion. ¿ que es eso? Ademas solo me saca 5 registros Sub alfredo() Application.ScreenUpdating = False destino = ActiveSheet.Name primvac = 100 For Each pestaña In Worksheets If pestaña.Name = destino Then GoTo otra: pestaña.Activate pedido = Range("q3").Value fecha = Range("q4").Value cantidad = Range("p29").Value importe …

Buenos dias tengo 200 archivos con extencion xlsm y necesito pasar cada uno a formato csv esto lo estoy haciendo manualmente con cada archivo desde la barra de herramientas de excel asi archivo guardar como csv, por lo tanto me demanda mucho hacerlo entonces lo ideal seria una macro que se ejecute en los 200 libros abiertos me convierta todo a formato csv, pongo los dos formatos el original xlsm y el csv como debe de quedar ya qye he probado varias macros que estan en la web pero me desordena la estructura del encabezado entonces pido por favor su ayuda de alguien que sepa de esto. gracias Archi.rar

Buenos días estimados, necesito una macro que al ejecutarse, guarde en un nuevo libro solo los valores de la hoja activa y que todas las celdas tengan formato "texto". Además de ser posible que el nombre con el que se guarde contenga la fecha del día. Intenté hacerlo con varias macros publicadas en el foro pero no logro hacer que todo salga bien. Desde ya, muchas gracias por su ayuda.

Estimados, Necesito extraer datos de la web del SII; mi idea es obtener una macro que haga la tarea en forma automática. Tengo una lista de RUT que debo ingresar al SII para obtener la "actividad económica vigente". Sé que el enlace al cual tengo que ir es: https://zeus.sii.cl/cvc_cgi/stc/getstc?RUT=96659460&DV=8&ACEPTAR=Efectuar+Consulta&PRG=STC&OPC=NOR Y que lo que variaría en cada consulta es el rut y el dv. Nosé como hacer una macro que consulte en forma automática el sitio, saque el rut de una lista e imprima o extraiga sólo el dato de "actividad económica vigente". Son como 150 RUT que debo consultar ... Cualquier guía se agradece, Saludos, …

Hola estimados. Tengo una tabla en la cual realizo diferentes acciones desde un formulario, en este punto pretendo filtrar a travez de un CheckBox desde un formulario 3 campos de una columna, esto lo he logrado con el siguiente código Private Sub rojo_Click() If rojo.Value = True Then ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3, Criteria1:="rojo" Else ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3 End If End Sub Private Sub CheckBox29_Click() If CheckBox29.Value = True Then ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3, Criteria1:="amarillo" Else ActiveSheet.Range("$A$4:$Q$19").AutoFilter Field:=3 End…

Tengo el error 13 en tiempo de ejecución no coinciden los tipos La verdad no se como puedo solucionarlo estoy apenas aprendiendo la programación VBA si alguien pudiera por favor se lo agradeceré mucho.

Buenas tardes, a ver si alguien me puede ayudar, he estado buscando por el foro pero no encuentro lo que necesito. Tengo un archivo con celdas de color por formato condicional y necesito una formula o macro que me cuente los colores juntos y por separado, gracias a todos y un saludo CONTAR CELDAS COLOR.xlsx

verán, estoy haciendo un programa en el cual debo insertar una imagen (algo así como una base de datos) y lo que quisiera hacer y no me sale es que en otra celda me ponga el nombre de la imagen seleccionada. adjunto un ejemplo del archivo que estoy haciendo a ver si alguien me puede ayudar. desde ya muchas gracias! ejemplo.rar

Hola muchachos, quería solicitarles una ayuda con lo siguiente: Tengo que filtrar 50 tablas dinámicas desde un listado, estas tablas se filtran por "Zona" (Lo primero que hice fue copiar 50 veces el código y cambiar el valor manualmente, pero ya siendo esta la 3era vez que debo cambiar valores, consideré que un array es mucho mejor). Sub arreglo() Dim miArra(0 To , 0 To 3) As String miArra(0, 0) = "Las condes" miArra(0, 1) = "San Bernardo" miArra(0, 2) = "Talagante" For Cont = 0 To 3 ' División de Tablas Dinamicas Sheets("Hoja1").Select Range("Tabla1[#All]").Select 'Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, Source…

Buenas compañeros, un gran placer saludarles. Les escribo una duda que tengo, ojalá me puedan ayudar. ¿Cómo podría filtrar el valor de una variable que tengo definida en el código y a su vez tengo indicado su nombre en una celda de excel? Por ejemplo: La variable a=12 (en el código) Si escribo "a" en una celda como puedo poner el filtro para que filtre el valor "12" y no el valor "a". Es decir, que el criterio de filtro sea el valor de la variable a, que he indicado en la celda. .Range("A1:D200").AutoFilter field:=1, Criteria1:=(El valor de la variable a) Muchas gracias a todos por su valiosa ayuda. Un abrazo

Hola. Tengo el siguiente inconveniente, necesito abrir una nueva ventana con un libro distinto y requiero que lo haga en una hoja en especifico. Como podría hacer. Yo tengo la macro para abrir la ventana nueva con el libro que deseo pero me falta solo la linea de codigo que me haga que el libro se abra en la hoja deseada. Esto es lo que tengo: Sub llevar () Workbooks.Open ("C:\Mis documentos\CARPETA\Ficha.xlsm") Application.WindowState = xlmaximized End Sub Gracias a los que me puedan ayudar.

Buenas noches Bueno la idea es una macro que me grabe el archivo como Archivo_dia_hora cuando lo vuelva a abrir , machaque el archivo anterior y escriba Archivo_nuevo dia_nueva hora cosa que cuando lo vea sabre que es el ultimo y que ademas cree una copia de respaldo de la forma Respaldo_Archivo_nuevo dia_nueva hora no subi archivo pues cualquier archivo excel cumple la funcion creo. gracias

Buenas tardes a todos, espero que anden bien. Estoy con un problema, con el código .close, me cierra ademas del libro que le indico, los libros que solo se abrieron para visualizar y los cuales no contienen macros, ni formulas. Hay alguna manera de evitar eso? Gracias.