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
- 
				
				Buenos días, Buscando una solución a mi problema y no he encontrado ninguno con respuesta. Tengo 10 archivos para distintos usuarios, cada uno con su contraseña. Los archivos están vinculados entre si y lo que quiero es que cuando abra uno, no me pida las contraseñas del resto de usuarios. Estoy intentando programar la macro: Sub Abrir() Dim Libro As Workbook Set Libro = Workbooks.Open(Filename:="C:\Directorio\Libro.xls", UpdateLinks:=1, Password:="qaz", WriteResPassword:="qaz") End Sub He empezado con archivo 1 vinculado a archivo 2, para que cuando abra archivo 1 no me pida la contraseña del archivo 2 Tengo dos problemas Pero con este ejemplo, al abrir e… - 
									
0Reacciones de usuarios 
- 0 respuestas
- 965 visitas
 
- 
									
- 
				
				buenas tardes ... existe la posibilidad que me puedar ayudar por favor con esta inquietud ?? " en un formulario quiero multiplicar valores de un combobox1 por textbox1 con resultado en textbox3 " pero automático ...sin el boton para ejecutar - 
									
0Reacciones de usuarios 
- 5 respuestas
- 965 visitas
- 1 seguidor
 
- 
									
- 
				
				Buenas tardes, espero puedan ayudarme con este dilema tengo una hoja donde deseo sumar las compras del mes en 2 columnas por separado, y x color 1ra. columna de c8 hasta c150.............sumar solo lo k esta de negro, asi tenga otros colores 2da. columna de g8 hasta g150.............sumar solo lo k esta de negro, asi tenga otros colores adjunto un archivo-.gracias. 04-DEUDAS.xlsx - 
									
0Reacciones de usuarios 
- 1 respuesta
- 964 visitas
 
- 
									
- 
				
				Hola. A ver si alguien me puede ayudar. Tengo unas celdas (pongamos como ejemplo, de C4:C18) con una función SI, de forma que me devuelve un valor. En las celdas contiguas (D4:D18) pretendo lo siguiente: que si el valor de la celda C4 es del 1 al 4, que en la celda D4 me salga una lista desplegable para poner un número desde el 1 al 6; pero si el valor está entre el 5 y el 10 (ambos incluidos), que simplemente (y de forma automática) me ponga ese valor, sin necesidad de hacer nada. No sé si se puede hacer con funciones normales o hay que utilizar VBA, en cualquier caso, no sé cómo hacerlo. Agradezco de antemano a todos aquellos que tengan a bien dedicarme su tiempo. - 
									
0Reacciones de usuarios 
- 0 respuestas
- 964 visitas
 
- 
									
- 
				
				Buenos días, soy bastante novato en programación y tengo un problema, no consigo ver las listas en el Combobox del Formulario. A ver quien me puede echar una mano. Gracias.prueba.xlsm - 
									
0Reacciones de usuarios 
- 5 respuestas
- 964 visitas
- 1 seguidor
 
- 
									
- 
				
				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 - 
									
0Reacciones de usuarios 
- 4 respuestas
- 964 visitas
- 2 seguidores
 
- 
									
- 
				
				Estimados Expertos buenas tardes: Estuve trabajando en una tabla dinámica que se actualiza mes a mes, según le indico en la segmentación de datos. Pero quisiera que se ejecute una macro al actualizar esta tabla dinámica, ¿con que evento puedo actualizarla? He usado el Evento Worksheet_SelectionChange(ByVal Target As Range) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim NomBRE As Workbook, AUx As Integer If Not Intersect(Target, Range("R9")) Is Nothing Then AUx = ContarNPC(Month(Range("O3"))) Range("S9").FormulaR1C1 = "= " & [AUx] & " / R[3]C[1]" End If End Sub Pero a pesar que la celda R… - 
									
0Reacciones de usuarios 
- 1 respuesta
- 963 visitas
- 1 seguidor
 
- 
									
- 
				
				Necesito encontrar la estación por medio de la columna auxiliar y que el valor 0 ENCONTRADO EN OFFSET Ó EL LADO QUE SEA L.C (LINEA CENTRAL) sume los valores de los lados (L.I y L.D) izquierdo y derecho Se me complica en el monento que la L.C pasa al final del orden de la estació o a su inicio Me dirán que ordene los valores en las columnas del offset y la elevación pero debido a que se tiene que llevar el registro de esta manera no debo. En la columna "E" dejo los valores supuestos de la operación Cualquier ayuda, gracias de antemano. ------------------------------FORMATO ELEVACIONES--------------------------.xls - 
									
0Reacciones de usuarios 
- 0 respuestas
- 963 visitas
 
- 
									
- 
				
				Buenas tardes, requiero de la colaboración de un experto para lo siguiente: Tengo unos movimientos contables en la hoja denominada movimientos. Quisiera generar un filtro en la hoja denominada auxiliares que contenga los siguientes criterios: Permita generar un listado a partir de un código de tercero y una cuenta para que me muestre los movimientos débitos y créditos en un rango de fecha dada. Igualmente que si existe movimiento de esa cuenta saque la deferencia entres débitos y créditos la muestre en la columna L de la hoja auxliliares. anexo archivo AUXILIARES.rar - 
									
0Reacciones de usuarios 
- 6 respuestas
- 963 visitas
 
- 
									
- 
				
				Estoy utilizando un macros para buscar cualquier texto que se escriba en determinada celda, pero me gustaria pulirlo un poco para que sea mas eficiente. La macros es la siguiente: Sub Buscar() ' ' Buscar Macro ' ' Cells.Find(What:=Sheets("Hoja1").Range("H5"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate End Sub[/CODE] Como veran en el ejemplo cuando dan clic sobre boton buscar, localiza el nombre que se ha escrito en la celda H5 pero despues de encontrar el ultimo resultado salta a la celda H5 que supuestamente es el buscador… - 
									
0Reacciones de usuarios 
- 2 respuestas
- 963 visitas
 
- 
									
- 
				
				Hola de nuevo, seguimos con formateos. En la macro que adjunto al añadir un numero a la columna "E" de mi tabla "Tabla" a través del evento "Worksheet_Change" de la hoja me lo transforma en formato hora es decir, si pongo 0.5 el formato devuelto es 00:30:00. Lo que me gustaría saber si el código es del todo correcto o se puede mejorar ¿? Saludos. Horas.xlsm - 
									
0Reacciones de usuarios 
- 5 respuestas
- 963 visitas
 
- 
									
- 
				
				Buenos dias a todos, Os cuento mi problemática: Estoy generando un libro de excel para hacer un seguimiento de los gastos realizados en dos obras de construcción en función de un presupuesto general (Hoja 1: GENERAL) que se subdivide en dos presupuestos (Hoja 2: OBRA A y Hoja 3: OBRA B ). La idea es que solo se manipule la Hoja 1: GENERAL, insertando filas de gasto en el capítulo del presupuesto que corresponda y que según el valor de "% gasto por obra" que se asigne a cada obra, genere una fila en cada Hoja correspondiente. Por ejemplo: Inserto Fila 10 en la Hoja 1: GENERAL e introduzco los datos de "nº factura", "concepto", "total gastado" y "% gas… - 
									
0Reacciones de usuarios 
- 4 respuestas
- 963 visitas
 
- 
									
- 
				
				Chic@s les pido ayuda con un macro que me ayude a lo siguiente: Anexo Excel Tengo un control de números que refiere a las fechas: Quiero que al seleccionar cualquier numero el macro me lleve a la celda donde esta la fecha que refiere el numero. Pero que me de la libertad de poder navegar también manualmente. Les anexo mi archivo muchas gracias COMPARTIR.xlsm - 
									
0Reacciones de usuarios 
- 8 respuestas
- 963 visitas
- 1 seguidor
 
- 
									
- 
				
				Buenas Noches amigos, Estoy haciendo una pequeña aplicación y en este paso tengo problemas y no sé como resolverlo. He creado un ListBox y no sé como rellenarlo, miento.. lo he rellenado cambiando las propiedades des ListBox concretamente nº de columnas y RowSource pero esto que he realizado no me sirve. Tendría que ser en plan código. Lo que quiero es lo siguiente: - Que en el ComboBox1 en principio me salga todas las hojas que tengo en el Excel y seleccionar una hoja y que me salga en el ListBox - Una vez que tengo todos los registros seleccionar un registro y cuando le doy al botón de Actualizar me pase los datos a las cajas del formulario. Son esas dos cosita… - 
									
0Reacciones de usuarios 
- 1 respuesta
- 962 visitas
 
- 
									
- 
				
				Buenas noches, En un archivo excel tengo una columna de fechas con la función HOY(), sin embargo cuando vinculo a través de un formulario con VBA esa información a una plantilla en word me arroja la fecha con este formato 30/05/2014, y la necesito así: 30 de mayo de 2014. ¿Hay alguna opción con macro que se actualice automáticamente sin necesidad de ejecutarlo que se le pueda añadir a dicha función para lograrlo? La idea es que el excel me de la hora actual siempre que lo abra y obviamente luego pasarla al archivo word con el formato solicitado... - 
									
0Reacciones de usuarios 
- 3 respuestas
- 962 visitas
 
- 
									
- 
				
				Hola amigos,molestando su atención en el archivo adjunto. existe un codigo vba que permite crear una tabal dinamica y graficar sin emabrgo, yo quiero mejorar ese código y por eso les escribo, quisiera hacer que ademas de hacer ello se pueda ordenar los datos (de mayor a menor) y seleccionar solamente los 10 ique como otros y a partir de ello grafique(tal como esta en la hoja Modelo. Gracias expertos por su atención desbosque1.zip - 
									
0Reacciones de usuarios 
- 0 respuestas
- 962 visitas
 
- 
									
- 
				
				Hola a todos; Corregirme si me equivoco o se puede mejorar la macro que adjunto. La idea es que yo solo pueda seleccionar un número limitado de imágenes. Para ello he añadido (aparte de las imágenes) dos TextBox, uno funciona como contador y otro como límite de imágenes a seleccionar. -Cuando llego al límite marcado ya no me deja seleccionar más (el límite para la prueba he puesto 5 pero se puede cambiar) -¿Qué pasa si quiero cambiar la imagen seleccionada porque no me gusta?. Pues hacemos clic derecho con el mouse y la nos la descuenta y así podemos seleccionar otra /s siempre y cuando no pasemos el límite establecido. Para este caso he us… - 
									
0Reacciones de usuarios 
- 3 respuestas
- 961 visitas
- 1 seguidor
 
- 
									
- 
				
				Estimados amigos del foro, esperando en este momento sigamos cuidándonos del problema mundial. Entre tanto, he estado tratando de poder resolver un problema en la que me quede estancado. Se trata de determinar el número de horas de investigación por mes pero para ello hay que separar a días laborables y nuevamente de estos tomar en cuenta el dia que ha sido asignado esta labor y las horas estipuladas. Aquí es necesario distinguir un año normal del bisiesto. Todo esto surge sobre todo por que cada mes muestra semanas incompletas al inicio o al final. Por esta razón he creído que es mejor tomar en cuenta no por semana sino por los días del mes (Ver imagen). Aquí n… - 
									
0Reacciones de usuarios 
- 2 respuestas
- 961 visitas
 
- 
									
- 
				
				Buen día; Tengo el siguiente código: Private Sub CommandButton19_Click() Application.ScreenUpdating = False Sheets("Resmar").Visible = True Call Send_Range_Or_Whole_Worksheet_with_MailEnvelope Sheets("Resmar").Visible = False Application.ScreenUpdating = False End Sub[/CODE] El cuál me envía a un mail designado cierto rango de una hoja de excel en el cuerpo del correo. Funciona muy bien el código,, si ven incluyo que no se visualicen las actualizaciones de pantalla, pero sólo funcionan la de Excel, se ve la ejecución en el Outlook. Se puede incuir algo en el código, para que no se vea la ejecución del Outlook? Posi sirve de algo dejo tam… - 
									
0Reacciones de usuarios 
- 0 respuestas
- 961 visitas
 
- 
									
- 
				
				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. - 
									
0Reacciones de usuarios 
- 0 respuestas
- 960 visitas
 
- 
									
- 
				
				Buen día a todos Deseo crear una hoja con los datos de clientes, en donde se registrarán fundamentalmente los pedidos de cada uno de los productos. Estos apuntes se realizan periódicamente, por lo que un mismo cliente estará repetido varias veces. Si a través de una lista despegable, que está en la D5 de la Hoja Tablas, se selecciona un cliente, se mostrarán todas las filas de sus apuntes diarios y se ocultarán las filas de los otros clientes en la Hoja Datos La lista despegable debe ser dinámica para contener a los futuros clientes También aparecerán al final de cada columna (del rango E:R) la suma correspondiente. Gracias de antemano por su tiempo y dedicación Li… - 
									
0Reacciones de usuarios 
- 0 respuestas
- 960 visitas
 
- 
									
- 
				
				Buenos días Foro, Necesito vuestra ayuda y conocimiento para un error con VBA. Hace un mes que lleva dándome problema una línea de código (no había pasado en más de un año) y tras mirar en mil páginas no encuentro solución, por si pudierais echarme una mano. Os adjunto la línea de código: El error se encuentra en el "end if" del final. No sabéis lo importante que me es solucionarlo y no encuentro la solución... Mil gracias Sub ImportarModelos() Dim strSource As String Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim consulta As String Dim archivoAbrir As Excel.Workbook Dim RUTAExcel As String Dim strRespu… - 
									
0Reacciones de usuarios 
- 9 respuestas
- 960 visitas
- 1 seguidor
 
- 
									
- 
				
				Buen día muchachos! Tengo un gran conflicto (resulto de una manera que no quería y por eso estoy en búsqueda de sus conocimiento) a resolver. El tema es el siguiente, nosotros tenemos un formulario interno el cual debe tener una numeración correlativa y única, hasta ahora se venía haciendo de la manera más precaria (pero efectiva) que era la de llevar un listado y manualmente asignarle el número, lo cual lleva una pérdida casi absoluta de tiempo. Por eso, lo que estoy buscando es algo similar a lo que logro hacer usando Excel y Word, pero quiero solamente resolverlo en excel. El tema por ahora lo vengo manejando con una lista de "direcciones (números 1, 2, 3, 4, 5...)" en… - 
									
0Reacciones de usuarios 
- 1 respuesta
- 960 visitas
 
- 
									
- 
				
				Hola estimados foreros, recurro nuevamente a uds porque sé que pueden hacer "magia" con la programación de códigos y que me pueden ayudar con lo que necesito... procedo a explicar...cuando abran el libro que adjunto éste se abrirá en una hoja llamada "Base" que es donde están todos los datos que fueron exportados desde otro software y pegados en esta hoja ("Base") y que a partir de estos datos se crearán algunos cálculos con estadísticas básicas al presionar el botón "Procesar Datos"... al finalizar todo este proceso de cálculos... quedará visible una hoja llamada "Estadística_Básica" que es la que uso como "reporte" ahí verán un gráfico que debería quedar igual al gráfi… - 
									
0Reacciones de usuarios 
- 0 respuestas
- 960 visitas
 
- 
									
- 
				
				Buenas tardes a todos, espero que se encuentren muy bien, solicito su colaboración porque tengo un inconveniente, necesito crear una macro para que me descuente existencias desde la factura ya que tengo un commanbotton, por otro lado necesito sumarlas existencias que para el ingreso de mercancia tengo una hoja creada llamada entradas, lo hice con formula sencilla pero me aparace #valor y pues observe que apenas borro la informacion de la factura se desaparece el descuento, por esa razón creo que lo mejor seria una macro, por otro lado habia insertado un codigo para que me pasara las facturas que voy creando a la hoja que dice Facturas Emitidas eso si con los productos y … - 
									
0Reacciones de usuarios 
- 0 respuestas
- 960 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.
	 
 
			
		
		 
	