Gente tengo una pregunta, estoy haciendo una planilla para mi negocio, la misma consiste en comparar los precios de listas nuevas contra las de las viejas, el tema es que tengo muchisimos articulos, entonces hice una macro donde compara todo y me ordena los precios que se modificaron, hasta ahi voy bien ahora mi consulta es la siguiente, despues de este codigo que es el de buscar Cells.Find(What:=Range("d1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate yo necesito que desde la celda que quedo activada me seleccione 4 celdas para la derecha y todo para abajo y l…

buenas tardes, quisiera saber si hay algun codigo para hacer un userform siempre visible, osea que este siempre sobre todo. gracias

. Hola: ¿ Se puede arrancar la grabadora de macros desde VBA ? Si la respuesta es si, agradeceré me expliques como. Paz y amor

Estimados, Adjunto archivo (sacado de este portal), pero lo que no logró es generar nºfactura automático, es decir, cuando lanzo el form, me pide ingresar nº factura, esto no puedo hacerlo sin necesidad de digitarlo, que me figure un nº correlativo por defecto, cada vez que ingreso los datos?. Quedo atento a toda ayuda. Gracias. registro FIN (1).part01.rar registro FIN (1).part02.rar

Buenas tardes, estoy trabajando en un archivo que me extrae información de un archivo externo, bajado de sap, hasta ahi todo funciona bien. Pero le quise agregar una nueva hoja que extraiga información del reporte generado y dependiendo el dia de la semana, lo pegue en su respectivo espacio en la tercer hoja. El problema es que ya con el codigo, me marca un error de aplicacion u objeto mal definido y no se como arreglar ese error. No les pude adjuntar el archivo, pero mando el código, por si le pudieran encontrar algún error. El error me lo marca al llegar a la linea que resalté en negritas. Sub max() Dim miRango As Range Application.ScreenUpdating = False ActiveWor…

hola que tal aqui con otra duda he creado un boton el cual ejecuta una macro pero ese boton no quiero que este en la hoja si no que se quede como un boton del menu que esta arriba, no se como hacerlo ojala pudieran ayudarme

Hola amigos, quizas me puedan dar una ayuda tengo frm donde hay 2 dtpicker que los uso para las fechas y 2 dtpicker para la hora lo que quiero realizar es que si el dtpicker1 escpjo una fecha, el dtpicker2 toma la hora del sistema (esto realizado) al dar click en check de salida el dtpicker3 toma la fecha actual, y el dtpicker4 la hora del sistema actual (hecho) aqui el problema, el texbox1 debe darme las horas que han pasado ya sea el mismo dia o hallan pasado varios dias, solo quiero la horas. creen que es posible?? yo intente pero no pude para los que no tengan el dtpicker, pueden dar ejemplo usando los textbox. Private Sub CheckBox1_Click()If CheckBox1.Value …

Hola Tengo un formulario del cual tengo 2 optionbutton, lo que deseo es guardar una "X" al seleccionar 1 de las dos opciones, por ejemplo si selecciono optionbutton1 guardar una 'X' en caso contrario dejar vacio y si selecciono optionbutton2 guardar 'X' en caso contrario dejar vacio: Para esto he pensado esta condición pero no me funciona If opc1.Value = False And opc2.Value = False Then MsgBox ("Debe elegir una opción en la pregunta 1"): Exit Sub If opc1.Value = True And opc2.Value = False Then opc1.Value = "X" And opc2.Value = "0" End If If opc1.Value = False And opc2.Value = True Then opc2.Value = "X" And opc1.Value = "0" End If[/CODE] Podrian explicarme p…

Hola amigos de AyudaExcel, realice una aplicación en excel 2003 es un formulario multipage y se ejecuta desde un boton el la Hoja1 del libro de excel y todo funciona bien pero cuando la trato de ejecutar en el ordenador donde estara esta aplicación me marca el siguiente error "Micrisoft Office Excel ha detectado un problemay debe cerrarse...... esto ocurre en el siguiente momento... abro la aplicacion y se abre sin ningun problema y cuando doy click en el boton que inclui para que se ejecutara el programa vba de formulario se pone la pantalla an blanco y se despliega el mensaje de error le puse ver el contenido y despliega lo siguiente: "Firma del error AppName: excel.e…

Control Calendario en excel 2010 64 bits Amigos, nuevamente recurro a ustedes. Tengo un archivo que he reducido para poder subirlo. En el hay un calendario asociado a un label. En excel 2010 32 bits funcionaba perfecto, sin embargo en excel 2010 64 bits no anda. Aparece "No se encontró el método o el dato miembro". Intente agregar el MSCal.ocx, pero igual no anda. Alguna solución?? Desde ya quedo agradecido por sus innumerables asistencias. Saludos desde Chile. Ejemplo Calendario.rar

hola amigos estoy pretendiendo:frog: hacer un especie de semaforo de actividades, es decir; que por ejemplo en determinada fecha se registró una actividad pero al transcurrir el tiempo:uncomfortableness: necesito que el sistema me de el indicador de "*******" (rojo), "prevenirse" (amarillo), "sin problema" (verde):cold:...esto lo quiero hacer obteniendo la informacion de las celdas de excel y que cuando abra el formulario de esa celda activa me muestre dicho semaforo...¿creen poderme ayudar almenos con las ideas?:concern: gracias y saludos conteodediasmesesyaños.xls

Buenos Dias, el dia de ayer me arreglaron el siguiente código ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Hoja1!R1C1:R" & Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row & "C28", _ Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="Hoja2!R4C1", TableName:="Tabla Dinamica2", _ DefaultVersion:=xlPivotTableVersion14 y funciono perfecto, ahora quiero remplazarlo en en otra macro y remplace algunos campos : …

Hola buenas,soy nuevo en este foro aunque lo he visitado numerosas veces. en uno de su temas vi el siguiente codigo para desactivar las funciones de excel ExecuteExcel4Macro("show.toolbar(""ribbon"",false)") y yo lo coloque en private sub ThisWorkbook_open() el problema es que el resulñtado no me ha gustado , porque se abre minimizado dentro del propio excel ,y ahora no se como hacer para que el archivo se abra normalmente necesitaria ayuda y si pueden explicarmelo para principiante en vba lo agradecere ; gracias

Hola amigos espero puedan ayudarme con esto, paso a contarles Tengo una Aplicación que me genera un número al cual guardo en un archivo .txt, luego tengo una hoja excel la cual me genera un Codigo PDF417, o sea le ingreso en una celda algun dato y presionando un boton GENERAR me codifica la información. Lo que quiero hacer es agregar un boton que sea LEER para que me lea desde el archivo .txt el número guardado y lo inserte en la celda desde la cual generaré el codigo PDF. Espero me hayan entendio y espero sus comentarios. Saludos.-

Hola, estoy haciendo una programita con excel siguiendo un tutorial pero necesito establecer rangos de una hoja la cual tiene varias columnas,al hacerlo el nombre de cada columna aparece separado por "comas", y necesito que aparezca separados por "\", no se si es por la version del excel, o que pasa...alguien sabra como lo puedo hacer..gracias

hola amigos tengo una gran duda:concern: y esperando me puedan ayudar a resolverlo porque lo que quiero hacer es poder hacer una macro que dentro de una hoja y una columna en especifico me busque: 1) la celda que esté coloreada 2) el contenido no numerico de la celda (es decir lo que sea numerico lo deje) una vez que haya encontrado ya sea una u otra o ambas condiciones (las anteriores) seleccione toda la fila...esto es en toda la hoja dejando seleccionado lo ya encontrado,,,dejandolo disponible :livid:como para poderlo copia,cortar,pintar mover etc. sera posible hacer eso?:abnormal: ok perdon es que soy nuevo en el foro asi como en vba, aunque la verdad esto si me e…

Hola sala, ya se dio solucion a este caso, lo podem,s cerrar, garcias,,, David copia base de datos.rar

Hola, estoy creando una macro para que me cambie el rango de un grafico. Cuando cambio el rango pulsando en la tabla y cambiando el rango a mano en la barra de funcion no me da problema. Cuando creo la macro y repito operación tampoco. El problema llega cuando ejecuto la macro que me da problema en la línea ActiveChart.SeriesCollection(1).Formula = _ "=SERIES(;Hoja1!$C$2:$E$2;Hoja1!$C$3:$E$3;1)" En este caso he creado la macro para que me cambie el rango de Hoja1!$B$2:$E$2;Hoja1!$B$3:$E$3 a Hoja1!$C$2:$E$2;Hoja1!$C$3:$E$3 ¿Alguien me podría ayudar? Gracias por adelantado

Necesito ayuda al copiar y pegar de una hoja a otra con rango variable, modificando un valor. aca en este sitio encontre una forma de hacerlo que funciona por Gerson Pineda-El Catracho , pera ademas de lo que hace la macro necesito saber de que hoja se copio, bien sea agregando una columna que diga "Banco1" o "Banco2" o "Banco3", en la hoja que recibe los datos "TotalBancos"o bien modificando en mi caso una celda especifica. Sub TotalBancos() Sheets("Banco1").Select copiar_pegar_Banco Sheets("Banco2").Select copiar_pegar_Banco Sheets("Banco3").Select copiar_pegar_Banco end sub Sub copiar_pegar_Banco() Dim col, ulf Applicatio…

[sOLUCIONADO] Error '5' en Tabla dinámica con datos externos. ¡Hola! Tengo el siguiente problema con una tabla dinámica, espero me puedan ayudar. Tengo un documento llamado “LibroConConexion.xlsx” que contiene un vínculo de datos al libro “01620.xls” ambos ubicados en C. Desde un libro actual cualquiera, la macro en VBA abre el “LibroConConexion.xlsx” y llama a la instrucción que crea una tabla dinámica basada en su conexión de datos. Pero obtengo el siguiente mensaje "Se ha producido el error '5' en tiempo de ejecución: Argumento o llamada a procedimiento no válida". Al seleccionar depurar, me muestra en amarillo toda la instrucción que contiene la TablaDinamica y si …

Saludos mis estimado compañeros... Les comento que estoy trabajando en un proyecto, y dentro de las características del mismo, es necesario llevar un control sobre el número de día que hay de una fecha a otra (sin tomar en cuentas los fines de semana), pues en éste asunto todo me ha ido bien. La información es mostrada en un formulario. La información está asociada a un número de registro y efectivamente el calculo de los dias entre fechas si ocurre (dicho cálculo se muestra en una etiqueta llamada "LB_R").... dónde necesito que me orienten (porque no doy como) es: que al evaluarse el resultado de la etiqueta y si éste es mayor o igual a 90 en otra etiqueta me muestre l…

Este tema aparece como pendiente, pero cuando vas a contestar, aparece como cerrado: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/formulario-sub-function-25739/ Esta sería la respuesta Private Sub UserForm_Activate() Me.Caption = "PROVEEDORES" CommandButton1.Caption = "Nuevo proveedor" [color=#ff0000][b] actualiza_y_carga '<========== Este procedimiento no existe[/b][/color] End Sub [/code]

buenas tardes. sucede que el libro de excel que estoy trabajando me muestra un error de "error de compilacion no se ha definido sub o function" esto sucede al momento de ejecutar el USERFORM3 por favor me pueden colaborar. USER/PASS : ADMIN/ADMIN ANTEPROYECTO=D (Correcciones).rar ANTEPROYECTO=D (Correcciones).rar

Hola, Me gustaría saber si es posible que con una formula escriba en diferentes celdas, es decir, en mi caso encontré una fórmula que me concatenaba resultados respecto a un rango (que también me valía), pero ahora querría modificarla para que me "extrajera" los resultados a partir de la celda donde pongo la formula. Pego aquí el código. Function MULTCONCAT(lista As Range) Dim ncell As Range Dim m_concat As String m_concat = "" i = 1 For Each ncell In lista If ncell <> "" Then If i = 1 Then m_concat = m_concat & ncell.Value i = i + 1 Else m_concat = m_concat & " or " & ncell.Value End If End If Next ncell m_concat = …

Multiplicar y Dividir celdas e Imprimir solo algunas columnas Estimados, quiero pedirles la siguiente ayuda. tengo un Formulario de consulta en el cual necesito modificar la Formula destacada con amarillo, para que multiplique la Columna “Cantidad” * ” Columna Valor” y luego dividir por la Columna “Gasto Promedio” With Sheets("hoja3") ' Tomamos última fila usada en hoja 2 para crear el rango a cargar i = .Range("A" & Rows.Count).End(xlUp).Row If i < 2 Then i = 2 'colocamos subtotal por linea .Range("H1") = "Km/Litro" For x = 2 To i .Range("H" & x) = WorksheetFunction.Sum(.Range("F" & x…