Macros y programación VBA
Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?
8686 temas en este foro
-
Estimados amigos del foro, acudo nuevamente a ustedes tengo un formulario, con el cual abro dos carpetas que están relacionadas a dos hojas excel, si abro la una carpeta debe activarse la hoja correspondiente (Ej Carpeta OfEnviados con hoja BD_OFICIOSE; Carpeta OfRecibidos con hoja BD_OFICIOSR) según esto se cargan los archivos en el listbox. necesito hacer funcionar el botón de buscar archivo (imaginen cuando tenga mas de 100 archivos) para que encuentre el nombre del archivo en el listbox y en base a las hojas BD correspondiente se muestre los datos del respectivo del archivo Notas: (1) El nombre del archivo en la hoja BD_OFICIOSE rango("D") en realidad es un numero …
-
0
Reacciones de usuarios
- 7 respuestas
- 1.8k visitas
-
-
Hola amigo,quisiera su ayuda, lo que quiero es comparar 2 listas, lista1 y lista2 y si el valor de la lista2 es igual al valor de la lista1 entonces que me copie el dato de la celda de al costado ejm si lo encontre en b5 entonces que me copie el valor de c5 y lo copie en la hoja2 del mismo libro.El formato y una mejor explicacion lo adjunto en un archivo. Desde ya gracias por su cooperacion. Comp.rar
-
0
Reacciones de usuarios
- 4 respuestas
- 1.8k visitas
-
-
Estimados, buen día. Trabajo con libros muy pesados (con muchos registros, muchas formulas tipo "sumar.si.conjunto", tablas dinámicas, gráficos y con formatos condicionales en tablas, etc.) y el simple guardado preventivo normal demora bastante tiempo, cerca del minuto y junto con el auto guardado son muy molestos. Y eso que el libro está en modo de cálculo manual y la pc lleva unos 16G y y un Ryzen 5. Se podrá con un código VBA sencillo guardar, pero sin que el libro se calcule previo al guardado? Muchas gracias!!
-
0
Reacciones de usuarios
- 2 respuestas
- 1.8k visitas
-
-
que tal buen dia, bueno queria saber si me pueden ayudar con la siguiente macro, lo que quiero que haga es que a determinada fecha se cree un archivo con un nombre especifico a una ruta especifica y cuando se quiera acceder a ese archivo cheque primero si no existe el archivo creado y si existe se elimine el archivo que se esta utilizando y si llegaran a tener otro archivo como el borrado y cambien la fecha se elimine igual porque seguira el archivo guardado...AQUI LES DEJO LA MACRO QUE ESTOY MODIFICANDO TIENE UN ERROR ES QUE SI YA SE GUARDO UN ARCHIVO Y LE CAMBIO LA FECHA NO APARECE EL MENSAJE Y SE SUPONE QUE SE DEBE DE APARECER EL MENSAJE Private Sub Workbook_Open() …
-
0
Reacciones de usuarios
- 2 respuestas
- 1.8k visitas
-
-
Buenas tardes, les pido su colaboración... En el archivo adjunto coloqué solo una muestra, pero debo enfatizar que trabajo con datas más extensas que pueden ocupar el total de filas de la Hoja. La pestaña Comparación es el resultado a obtener. Usando como identificadores de interés el número de cédula y el campo quincena... la idea es comparar los datos y obtener como resultado cuando hubo algún cambio de nro. de cuenta, dicho de otra forma: si un trabajador pasó de tener nro. de cuenta a no tenerla, o en su defecto si ingresó a la nómina sin nro. de cuenta y posteriormente se le introdujo. Libro1.xlsx
-
0
Reacciones de usuarios
- 14 respuestas
- 1.8k visitas
-
-
hola Expertos Como están necesito Ayuda.. Por favor.. Con realizar un puc Agrupado... para moverme libremente por las cuentas Aquí esta el ejemplo.. no importa si es en VBA Como lo harian ustedes Gracias Gracias puc cuentas.rar
-
0
Reacciones de usuarios
- 14 respuestas
- 1.8k visitas
-
-
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)[…
-
0
Reacciones de usuarios
- 12 respuestas
- 1.8k visitas
-
-
Saludos amigos Tengo un formulario (Fmrfechas) el cual debe aparecer una vez que haga Login en el Formulario (frmlogin) introduciendo un Usuario (TxtUSUARIO) y Clave (TxtCLAVE) para lo cual tengo esta macro que me funciona muy bien hasta ahora: Private Sub CmdACEPTAR_Click() Call Module1.BotonAceptar Fmrfechas.Show End Sub Sin embargo, cuando los campos Usuario (TxtUSUARIO) y la Clave (TxtCLAVE) estan vacíos o introduzco datos erróneos al hacer click en el Botón Aceptar (CmdACEPTAR) igual me aparece el formulario. Pregunta 01: requiero me ayuden con los elementos que deberían agregársele a la macro para que sí y solo si cuando el Usuario (TxtUS…
-
0
Reacciones de usuarios
- 27 respuestas
- 1.8k visitas
- 3 seguidores
-
-
Hola, tengo que realizar un calculo con Vba sin usar las celdas del excel, este calculo seria el siguiente, en el siguiente form: En el contenedor de la izquierda tengo dos datos numerados hasta el 5...códigos de los item y la cantidad de ellos que me hace falta. En el contenedor de la derecha tengo la siguiente dinamica... codigo del item, "los kilos" (se se calculan multiplicando el n°envases por el peso de los mismos, menos el sobrante), los N° envases, el peso de cada envase y el sobrante de cada item. el caso es que he intentado realizar esta tarea ... pero no doy con la solución, intente con este código: For Each ctrl In Me.Cont…
-
0
Reacciones de usuarios
- 9 respuestas
- 1.8k visitas
-
-
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) = "" …
-
0
Reacciones de usuarios
- 6 respuestas
- 1.8k visitas
-
-
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…
-
0
Reacciones de usuarios
- 5 respuestas
- 1.8k visitas
-
-
Hola a todos, Necesito transponer una matriz y además cada fila que se genera en la nueva matriz copiarla 14 veces. Luego si tengo la matriz con las siguientes columnas ABCDE... me deberia quedar de esta forma: A´ ... A´ B´ .... B´ C..... Donde A´ corresponde a la columna transpuesta y se debe repetir 14 veces. Adjunto el archivo correspondiente, la columna que necesito transformar en la que se llama variables relevantes. Gracias y Saludos! Variables relevantes.zip
-
0
Reacciones de usuarios
- 3 respuestas
- 1.8k visitas
-
-
Tengo un problema a la hora de ejecutar mi macro en ocasiones no existe un nombre en mi reporte, y en ese momento la macro se detiene, como hacer para que no se detenga se que tengo que agregar unas lineas con la palabra "Falce" pero no se se donde adicionarla Este es el inicio de mi macro, que debo hacer para que en caso de que no encuentre "ACTIVO A CORTO PLAZO" siga en ejecución la macro ya que si no tengo en mi reporte la frase "ACTIVO A CORTO PLAZO" se detiene y me manda un error Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xl…
-
0
Reacciones de usuarios
- 10 respuestas
- 1.8k visitas
-
-
Hola colegas, buenas tardes reiteradas. Vuelvo por acá, ahora para que me brinden ayuda con una alerta. Me explico: Este es el proyecto del que les comenté que mi Jefe me pidió hacer. En el FrmCombustible debo crear dos (2) alertas, UNA - Que un (1) mes antes de vencerse las tarjetas me envíe un MsgBox : "La Tarjeta " & " se vence en un mes" El Listado de tarjetas está en la Hoja5 (Auxiliares). Se debe tener en cuenta que puede estar en blanco o vacío (Empty) este campo. Yo comencé a trabajarlo, pero me "perdí", porque creo se debe generar un ciclo que recorra las tarjetas y las fechas de vencimientos y las compare con la fecha…
-
0
Reacciones de usuarios
- 23 respuestas
- 1.8k visitas
- 2 seguidores
-
-
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:…
-
0
Reacciones de usuarios
- 2 respuestas
- 1.8k visitas
-
-
Estimado amigos, Tengo sobre el tema que se indica en el asunto. Paso a plantearla Tengo una celdas con datos en columna como: Inicio Fin 03/01/2002 07/03/2002 16/04/2003 29/05/2003 20/08/2002 11/11/2002 15/10/2002 06/02/2003 07/02/2002 09/06/2002 Como pueden notar, en cada fila existe un periodo de tiempo indicado por fechas, los cuales tienen un numero de días. Estos periodos no están en orden cronológico tampoco. Lo que requiero es que calcule la superposición (traslape) de los periodos de cada fila y me de los días efectivos trabajados, y si fuera posible el periodo vacíos (no laborados). Espero sus comentarios y ayuda. …
-
0
Reacciones de usuarios
- 0 respuestas
- 1.8k visitas
-
-
Estimados Estoy de a poco entrando en el fascinante mundo de programar en VB, pero me falta mucho por aprender. Por esta razon , necesito ayuda para crear la siguiente macro: - Realizar una macro que permita ingresar la edad de una persona a través de un inputbox y Muestre un mensaje si es mayor de edad o no. Tengo este codigo, pero algo le falta al parecer: Public Sub prueba() X = MsgBox("Desea Continuar", vbYesNo + vbQuestion, "Opción") End Sub Muchas gracias saludos meggido
-
0
Reacciones de usuarios
- 1 respuesta
- 1.8k visitas
-
-
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 & …
-
0
Reacciones de usuarios
- 0 respuestas
- 1.8k visitas
-
-
busco una macro para que con un botón de actualizar pueda traer al libro "Consolidado" los datos que se encuentran en "libro1" y "libro2" ejemplo de Macro.rar
-
0
Reacciones de usuarios
- 2 respuestas
- 1.8k visitas
-
-
Buenas Tardes:Soy nueva en esto de las macros. quisiera que me ayudaran para crear una macro donde me concatene 3 columnas A B C D E F 43020963 43146540 23/05/2012 VACIO 1 492114960Lo que quiero es concatenar primero B2&A2&F2 y el resultado lo ponga en la columna D donde esta vacia esa columna Espero me puedan ayudar .Gracias.
-
0
Reacciones de usuarios
- 6 respuestas
- 1.8k visitas
-
-
Amigos... Quisiera su apoyo en el siguiente problema de excel, tengo el libro con los datos de ingreso y devolucion (salidas) de un determinado mes, lo que deseo es que en la hoja stock me muestre la cantidad de materiales restando el ingreso y egreso, pero teneiendo en consideracion el estado (N o R), osea sumara materiales que sean iguales en estado y lo mismo pasaria con la resta (devolucion). Apreciare su apoyo acostumbrado al foro. Saludos cordiales ejemplo 2.xls
-
0
Reacciones de usuarios
- 7 respuestas
- 1.8k visitas
-
-
Hola: Tengo un archivo con todos los iconos de Excel y sus face-id, pero no consigo encontrar algunos de ellos. Hay tantos, y en tan poco espacio, que seguro que los he tenido delante y no los he sabido ver. A ver si alguien me echa una mano para encontrar los que se muestran en la imagen. Gracias [ATTACH]40845.vB[/ATTACH] Nota: Os dejo este link con el archivo por si le interesa a alguien https://dl.dropboxusercontent.com/u/241435/Todos%20los%20iconos%20de%20Excel.xls Al abrir el archivo, hay que tener un poco de paciencia ya que tarda un poco en visualizar los iconos.
-
0
Reacciones de usuarios
- 4 respuestas
- 1.8k visitas
-
-
Hola!, ando teniendo un problema y no encuentro exactamente lo que necesito por internet, ni dentro del foro. Tengo un libro, que la primera y segunda hoja contienen direcciones y fechas. Y una tercera hoja que se llama planificado, en la cual tomando el parametro de la fecha actual, necesitaria que me copie los datos de la primera y segunda hoja sumandole 1 día. Ejemplo: Hoy es 24/07/2012, que copie los datos del 25/07/2012 (la idea seria saber a que lugares tengo que ir con un día de anticipación). Si alguien me podria dar una mano, o guiar un poco como armarlo, estaria muy agradecido!. Muchas Gracias dias.rar
-
0
Reacciones de usuarios
- 7 respuestas
- 1.8k visitas
-
-
Buenos Dias Esta es una consulta a todos, me gusta harto excel a nivel formulas y tablas dinamicas me manejo bien, se que estoy aun debil en entender la logica de como operan las macros, programarlas. mi consulta tiene relacion con que los que ya son kapos en macros , de a poquito den tips de como entender la programacion de macros. nose como ejemplo hoy aprenderemos como movernos uando comando de vb : ejemplo celda a1: moverse hasta celda j1 de a poco dar sub rutinas basicas para ir comprendiendo y explicando como se hace , que es lo que significa en mundo macros vb lo digo por que la idea no es hacer un copy paste de una duda, la idea es aprender y entender lo …
-
0
Reacciones de usuarios
- 3 respuestas
- 1.8k visitas
-
-
Buenas noches amigos de AyudaExcel me conseguí código de la Web para enviar la hoja activa de excel pero hay un problema o error al abrirse el inputbox para tipear el nombre de la hoja y querer cancelar la acción con el botón "Cancelar" el envío la macro no se sale y continúa quisiera que al dar cancelar se salga de la macro; en este código no se diferencia la acción de de cada uno de los botones ya que da lo mismo aceptar o cancelar. Gracias por su ayuda Option Explicit ' Sub EviarHojaEmail() ' Dim NombreArchivo As String Dim RutaTemporal As String Dim Mensaje As String ' On Error Resume Next ' Mensaje = "Estás a punto de enviar la hoja activa por…
-
0
Reacciones de usuarios
- 5 respuestas
- 1.8k visitas
-
Información básica de protección de datos
- Responsable: Sergio Andrés Celemín
- Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
- Legitimación: Consentimiento del interesado.
- Destinatarios : Hetzner Online GmbH.
- Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
- Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email sergio@ayudaexcel.com
Información adicional: Encontrarás más información en la política de privacidad.