Hola Lo que necesito es que cuando se posicione en la celda activa, que tiene que ser la G8 y ésta esté vacía, muestre el formulario UserForm1 Lo que yo tengo hasta ahora es esto, que me enseña el formulario cuando la celda activa es la G8, If ActiveCell.Address ="$G$8" then UserForm1.Show Else UserForm1.Hide

Sub FORMATO() ' ' TEXTO_COLUMNAS Macro ' Sheets("A-S1-001").Select Range("J2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Range("J2"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 9), Array(10, 1)), TrailingMinusNumbers:=True Selection.NumberFormat = "h:mm:ss" Range("K2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("K2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 =…

Buenas tardes. He hecho dos macros que imprimen dos pdf de diferentes páginas. Primero hago el pdf: Sub printdep() Dim nombre As String, Ruta As String, nombre2 As String Sheets("Horarios").Select Range("A1:Q42").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$42" Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$42" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" …

Hola a todos, Tengo una consulta, estoy realizando un trabajo de la universidad que consiste en diseñar un algoritmo para programar la producción en una línea determinada. La idea es generar una aplicación en Excel que genere un Diagrama de Gantt y un horario con la secuencia resultante de los trabajos en cada máquina. Para realizar el trabajo necesito de ciertos algoritmos como los que están a continuación: 1) http://i43.tinypic.com/2vxjggk.png 2) http://i39.tinypic.com/4tsf14.png 3) http://i41.tinypic.com/2jf2v.png 4) http://i42.tinypic.com/16k2og9.png 5) http://i42.tinypic.com/2qd0gmq.png 6) http://i40.tinypic.com/2qls4zo.png 7) http://i43.tinypic.com…

Hola, necesito ayuda con una macro que hagalo siguiente: 1º Que la hoja en cuestión este oculta. 2º que un botón tenga una macro que pida user y pass para acceder a la hoja oculta. 3º que si no se ingresan datos de ingreso o bien estan incorrectos, no cierre el libro, sino que permanezca en la hoja de inicio. 4º que al guardar el libro (habiendo modificado la hoja oculta) esta vuelva a ocultarse. El tema es que tengo un archivo que tiene una hoja que solo puede ser visible y modificable por 2 personas, pero es un informe que ven muchas personas. Necesito un control de acceso pero que no cierre el libro si los datos ingresados son incorrectos, sino que permita desplaz…

Estimados amigos del foro, les saludo cordialmente. Espero no sea un tema ajeno al foro, pero se podrá con excel determinar el numero de colores que tenga una imagen, sabemos. En PHP hay un código que al parecer hace algo parecido. Creo, salvo el mejor criterio de ustedes que un dato que caracteriza a una imagen permite saber cuando esta ha sido alterada y eso seria una forma de reconocer la autenticidad de la imagen que uno tenga. Mientras mas datos característicos podamos tener tendremos mas certeza, y pienso que determinar el numero de colores que tiene mi imagen, y otra muy buena seria debido a que cada color tiene un numero especifico (0 - 255) la suma de estos seri…

Buenas, estoy realizando como resultado de una macro una transposición de horizontal a vertical en la que me gustaría que se aplicase el mismo ejemplo que pongo a continuación pero para todas las columnas siguientes desde la B hasta la columna F: For x = 1 To 30 Sheets("Hoja1").Select Range(Cells(x, 3), Cells(x, 8)).Copy Sheets("Hoja2").Select h = (x - 1) * 7 + 3 Range("B" & h).PasteSpecial Transpose:=True Next Con esta macro únicamente me pega los datos en la columna B y me gustaría que cada intervalo de 6 filas copiadas que corresponden a 44 pegadas pasara a la columna siguiente. Espero que con la explicación…

Sub CambiarColorCeldaCondicion() Dim miRango As Range Set miRango = Range("I7:AM300") For Each celdaActual In miRango If celdaActual.Value = "LJO" Then celdaActual.Interior.Color = RGB(255, 204, 204) If celdaActual.Value = "T" Then celdaActual.Interior.Color = RGB(0, 204, 204) If celdaActual.Value = "L" Then celdaActual.Interior.Color = RGB(119, 210, 85) If celdaActual.Value = "V" Then celdaActual.Interior.Color = RGB(255, 255, 204) If celdaActual.Value = "C" Then celdaActual.Interior.Color = RGB(255, 229, 204) If celdaActual.Value = "I" Then celdaActual.Interior.Color = RGB(189, 183, 107) If celdaActual.Value = "HA" Then celdaActu…

Buenos dias, tengo creada la función ContarColor, pero me cuenta todas las celdas de ese color, y lo que necesito es que me cuente solo las que tienen datos, alguien podría ayudarme. Graciasexcel.2.xlsm

Hols Gentee!! de nuevo aqui!!! bueno les digo que encontre este libro en la web y esta muy bueno la macro. Este libro en la hoja "Introduccion" ingresa datos y luego ejecuto la macro y los lleva a la hoja "horasporobra". Pero me gustaria y si se puede que los datos de la hoja Introduccion en vez de pasarlos a la hoja horasporobra los pase al libro 2. Desde ya muy agradecido y gracias por toda la alluda!!!! pasar a libro 2.zip

Hola buenos días: Estoy intentando crear una macro que me emule la función buscarv. En el ejemplo existen 2 celdas (año y SMI), mi idea es que si metes un año mayor de 2002, la celda de SMI me devuelva el valor encontrado en una tabla adjunta. Actualmente esta ultima celda lo calcula con la función BUSCARV, pero querria hacerlo con una macro, ya que estaría dentro de un private sub, en el caso de que cambie la celda del año, al introducir el año, me busque el dato en la tabla. Espero haberme explicado bien. Muchas gracias BUSCAR EN CELDA.xls

Hola a todos! Mi pregunta es si se puede enviar un nombre de usuario y contraseña a cualquier sitio web desde excel o solamente a ciertos sitios web. He estado buscando macros que hagan esta función y he encontrado unas pocas, el problema es que sólo una de ellas funciona en mi navegador y no lo hace para todos los sitios web. También he encontrado un link en el sitio web "eHow" donde ofrecen unas instrucciones para poder programarlo personalmente (Cómo enviar un nombre de usuario y contraseña a un sitio web con el Código VBA de Excel | eHow en Español) Yo lo he intentado pero no lo consigo. ¿Alguien podría ayudarme? He intentado programarlo para poder ingresar en el fo…

Hola amigos, nuevamente solicitando su ayuda, ya que no tengo mucho conocimiento con respecto a macros, he creado un formulario para registrar datos, el cual tengo dos etiquetas registrar y modificar, las cuales al hacer clic me muestra los botones según sea el caso, Ok, Modificar, Eliminar y cancelar, bueno ustedes saben como puedo hacer para llenar mis registros y modificarlos, asimismo quisiera: 1) al seleccionar según sala que elija, me registre en la hoja indicada del archivo. 2) al poner Nº serie en los campos Marca y Modelo me salgan los datos automáticamente según hoja Data. 3) en el Campo Suministro al seleccionar uno de ellos, en el campo Repuesto utilizado me s…

Saludos Cordiales!!! A manera de Estudio Personal me gustaria iniciarme en los temas de VBA y Macros. Si me podrian recomendar algunos sites y/o manuales para estudio.. Comenzando Basico!! Muchas Gracias!!

Hola Tengo una tabla en una hoja de excel de 6 columnas, y me gustaría que, tras filtrarla, me copiara 4 de estas columnas al final de una tabla que hay en otra hoja ( o insertarlas al inicio). He estado buscando por el foro y, aunque he encontrado temas similares, no he podido o sabido aplicarlos a mi ejemplo Adjunto excel con el ejemplo Gracias de antemano por la ayuda plan.xls

Buenos días En un formulario tengo varios checkbox que los uso para señalar si requiero un equipo o no. Ahora me de vuelve verdadero o falso , pero necesitaría una solución para que me devolviera si o no. sl2

Buenas a todos. Muchas gracias de antemano por la ayuda de siempre. Vengo con este problema, navego con vba a una url interna de mi empresa; cuestión que despues de haber ingresado también con vba el respectivo usuario y contraseña, me redirige a otra web. Si quiero navegar nuevamente en la web con IE.navigate me solicita nuevamente usuario y contraseña. se me ocurre abrir una segunda pestaña, ya que si esta logueado en IE el usuario, volviendo a cargar la web requerida en una segunda pestaña no me redirige..ahora, como abro y navego en una segunda pestaña? gracias!

Buenas. Primero de todo he de decir que soy un principiante en VB, y es la primera vez que entro en un foro, así que pido disculpas por cualquier equivocación que pueda cometer de antemano. Segundo felicito a todo el mundo que participa en ayudaexcel por la gran ayuda que prestan en general, se esté dado de alta o no. Entro en la consulta. He realizado un formulario con Excel 2003 con ventanas de validación que registran los resultados en una hoja llamada “Basededades” y mediante un buscador las devuelve pudiéndose modificar y se pueden volver a grabar en la misma hoja. El problema está en que lo he probado hacer con “userforms” y “Comboboxs”, y no consigo realizar t…

Buenos días y gracias de ante mano, He creado un fichero, como podéis ver (fichero adjunto) es bastante sencillo. Pero me gustaría que en la cuarta columna de (alerta), me saltara una alerta y cambiara el color de verde a rojo. Para así poder identificar aquellas personas que han pasado el plazo (24/48/72 horas) desde que se creo. Estoy bastante perdido al respecto y os agradezco vuestra ayuda. Saludos. Hoja RM.xls

hola todos hice este archivo en excel 2003 y funciona bien, dentro de lo que cabe con un inexperto, el problema es que a la hora de ejecutarlo con el excel 2010 de la pc de un tio, no funciona bien el problema es que cuando uno ingresa los datos por segunda vez, por ejemplo [TABLE=class: grid, width: 500] [TR] [TD=width: 40]Nº [/TD] [TD=width: 40]Sexo[/TD] [TD=width: 54]Madre[/TD] [TD=width: 54]Padre[/TD] [TD=width: 54]Peso[/TD] [TD=width: 75]Fcha. Nac.[/TD] [TD=width: 75]Palpar 1[/TD] [TD=width: 26]G[/TD] [TD=width: 75]Palpar 2[/TD] [TD=width: 26]G[/TD] [TD=width: 75]Palpar 3[/TD] [TD=width: 26]G[/TD…

compañeros tengo una gran duda, encontre este codigo para enviar un rango de datos en el cuerpo del correo, este rango tiene celdas con color, formato, etc... y existira la forma qe se vaya con todo y rubrica(firma). Gracias a todos por sus respuestas Sub Mail_Selection_Range_Outlook_Body() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Don't forget to copy the function RangetoHTML in the module. 'Working in Excel 2000-2013 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the visible cells in the selection Set rng = Selection.SpecialCells(xlCellTypeVis…

Hola genios: Estoy comenzando con este apasionante mundo de las macros y quisiera conocer sus ideas. He creado un libro con algunas funciones y formulas que me ayudan a optimizar mis tareas. mi "hoja 3", llamada "Mensajes" pretende llevar un registro de mensajes y tareas que trabajamos entre algunos usuarios (archivo compartido). Así, si yo encuentro algo de interes, lo dejo anotado y quien lea el mensaje trabajara al respecto en las otras hojas. Mi hoja "Mensajes" debe hacer lo siguiente: Columna A, solo admitirà 2 valores: "PENDIENTE"y"TERMINADO" Columna B se usara para ingresar el mensaje. Columna C se usara para ingresar la fech…

Hola, Tengo varias hojas en un mismo archivo Excel y necesito que pulsando un botón se impriman todas las hojas seguidas, sin que se imprima una hoja en cada folio. Es decir, si tengo 3 hojas y en la hoja 2 no hay nada escrito, que imprima la hoja 1 y a continuación la hoja 3, sin imprimir la hoja 2 que está en blanco. Si pudiera ser, si la hoja 1 solamente ocupa la mitad de la página, que la hoja siguiente se imprima a partir de esa mitad de página. Muchas gracias por vuestra ayuda.

Hola Estimados Amigos Foristas!!!tengo un archivo en donde Necesito ordenar los Nombres de la Columna B de la hoja (1) del rango B5:B44; En orden numérico de menor a mayor con una macro o ya sea con alguna Formula en el archivo pongo el ejemplo en como debe de quedar..les agradezco por su ayuda... PRO. PRUEBA.xlsm

Buenas noches. Tengo una hoja excel con una serie de columnas y filas, y cogiendo código libre de otros programadores, he conseguido crear un LISTVIEW que, todo sea dicho, queda muy impresionante. El problema reside en que me gustaría poder enviar la fila donde está el "focus" del listview (creo que se dice asi), es decir, todos los ITEMS de esa fila del listview a otro formulario que contiene una serie de TEXTBOX por medio de un COMMANDBUTTON. Disculpen mi ignorancia y si no he sabido expresar lo que quisera hacer con el VBA. Si fuera necesario, estaría encantado en subir el archivo excel en formato XLSM para que pudieran ayudarme. Sin otro pa…