hola buenas tardes quisiera saber como puedo ejecutar este codigo cambiandole esta linea Sheets("santander").Select por hoja activada o la hoja seleccionada el codigo completo es este Sub buscaCuadro() Dim nrop As String 'busca la combinación de nros en los cuadros de pista Set hopi = Sheets("pista") Sheets("santander").Select 'limpiar pista de colores anteriores 'opcional hopi.Range("E2:AV40").Interior.PatternColor = xlNone 'se recorre col AP de hoja resultado For x = 2 To Range("AL" & Rows.Count).End(xlUp).Row nrop = Range("AL" & x) For i = 2 To 35 'filas For j = 5 To 38 Step 5 'co…

Estimados amigos del foro tengo dos formularios para una base de datos de preguntas. En el primer formulario selecciono las preguntas que al hacer click en el botón seleccionar aparecen en el segundo formulario. En este segundo pretendo usar el modo de selección único en el listbox pero deseo que al hacer click en cualquiera de las preguntas se vaya viendo las opciones y respuesta correcta en textbox. Actualmente las opciones están en listbox que cambian si uso un spinbutton pero eso es lo que deseo dejar de usar. Me gustaria usar solo textbox que cambia su contenido correspondiente al seleccionar en la pregunta en el listbox de arriba. Quedo muy agradecido por la co…

Buenas tardes, He realizado una macro como se muestra en el ejemplo adjunto. Se selecciona un mes y en el cuadro amarillo se pone el codigo de la columna A, se da a marcar y cambia el color de las celdas correspondientes al código y al mes seleccionado. Lo que necesito es que en vez de cambiar de color ponga la letra n, en formato "Windwings" (como en el primer ejemplo en Enero) y que lo ponga en la segunda celda que encuentre , ya que los codigos aparecen repetidos dos veces seguidas. Muchisimas gracias a quien pueda echarme una mano. Un saludo ejemplo foro.xls

Tengo 100 archivos en una carpeta y solo quiero cambiar n cantidad de archivos de esa carpeta a otra. Ejmplo:Ejecuto macro y cambia 10, vuelvo a ejecutar y cambia otros 10 y así sucesivamente hasta vaciar la carpeta.

Buenas Tardes. Resulta que soy un poco capuyo y cree un archivo xlsm llamado macc.xlsm donde realice varios formularios con codigo haciendo referencia a ese nombre de archivo y a su ruta, el tema es que el archivo se tiene que llamar Facturas, lo que hago es lo siguiente: 1) Copio el archivo macc.xlsm en la misma carpeta y le cambio el nombre a Facturas.xlsm ( lo hago para dejar una copia del otro por si acaso) 2) Abro el archivo Facturas.xlsm 3)Abro el editor de VBA y con la opcion de buscar y remplazar remplazo todos los valores que encuentro de macc.xlsm por Facturas.xlsm 4) Todo funciona ok el problema es que me aparece un mensaje que hay datos que vinculan con m…

Buenos días. Soy nuevo en esto de las macros. estoy usando una macro para importar archivos csv en un hoja Excel, el problema es que al final necesito 8 hojas de Excel y la macro que tengo, le tengo que especificar nombre de hoja, por lo que al final tengo 8 macros. alguien me puede ayudar e indicarme que tengo que cambiar para que la macro solo me anexe los datos csv en la hoja activa. pongo ejemplo: Sub AnexarCSV50() Dim t As Single Dim LastRow As Long LastRow = Range("B8").End(xlDown).Row + 1 strFile = Application.GetOpenFilename("CSV, *.csv") If strFile = Empty Then Response = MsgBox("Ningún fichero seleccionado", _ vbOKOnly, "Error") Exit…

Hola de nuevo jejeje creo que mi primer post estuvo mal elaborado pido disculpas Bueno espero que si me puedan ayudar en este otro post Lo que quisiera que me ayudaran es en lo siguiente Tengo 1 libro por mes dentro de este libro van las fecha ej:01-08-2012 hasta llegar al 31-08-2012 lo necesito es que al colocar 01-08-2012 los de mas libros se coloquen automáticamente 2,3,4 hasta llegar al 31 "Espero que me ayuden muchas gracias saludos" ya dejo el archivo de ejemplo: ejemplo.rar

Hola a todos, Tengo este evento creado de tipo Worksheet_BeforeDelete: Private Sub Worksheet_BeforeDelete() Application.ScreenUpdating = False Application.StatusBar = "Procedimiento en ejecución..." ' Limpiamos los errores anteriores (por si acaso)... Err.Clear ' Tratamos los errores del evento... On Error Resume Next ' Si la contraseña no coincide, entonces... If FUNCIONES.comprobarContraseña(CONTRASEÑA_HOJA) = False Then ' Copiamos la hoja... ThisWorkbook.ActiveSheet.Copy After:=Sheets(ThisWorkbook.ActiveSheet.Index) ' Y notificamos al usuario con un mensaje de alerta... MsgBox Prompt:="Upps, parece que hubo un error…

Hola a todos, mi nombre es Maurizio Y mi problema es este: En una hoja de Excel usando el código vba Extraiga los enlaces que están estrechamente vinculados a las imágenes para el sitio de pronóstico del tiempo (Wearther); Y hasta ahora todo bien. Estos enlaces, de acuerdo con mi testamento, se insertan en la columna (A30: A44). Además, para decir la verdad, no usaré solo Cinco. En la fila (A5: F5) Se extraen las imágenes reales tomadas de este sitio. Por lo tanto, mi pregunta es: podría crear una especie de cambio de tamaño tanto de las celdas como de (Formas) para poder adaptar todo en igual medida. (P.S) Creé una función que me funciona bien sie…

Buenas quisiera conocer algún macro que me permita cambiar los nombres de todas las hojas de excel que tengo, sería: 2.5.28 a 2.5.C.1 2.5.29 a 2.5.C.2 2.5.30 a 2.5.C.3 ..... y así sucesivamente Muchas gracias!

Hola buenos días: En una hoja tengo una lista de diferentes nombres y con un consecutivo inicial, pero por diferentes movimientos al día, estos cambian de numeración, Esto lo hago manual y a veces son más de 100 nombres a cambiar o a veces menos: Un ejemplo: En mi celda D4 inicia mi lista: En D4= tengo el consecutivo 1. y el nombre y después D5=el 2. Nombre. y así varios más de manera consecutivo, que pueden ser de 1 a 20 o hasta 100. Lo que yo cambio manual es el consecutivo, que puede iniciar con cualquier No. ejemplo 7. el cambio serio así: D4=7. el nombre. y D5 sería 8 y así con todos los demás. La idea es que yo indique en la …

Hola a todos!! He grabado la siguiente macro pero cuando quiero cambiar la sentencia me da error. "Selection.AutoFill Destination:=Range("K2:K631256") Range("K2:K631256").Select Selection.AutoFill Destination:=Range("K2").End(xlDow) Range("K2").End(xlDow).Select Os pongo la macro entera a continuación. Muchas gracias de antemano por la ayuda. Sub AÑADIRFORMULASFUENTEDEDATOS() ' Columns("J:J").Select Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:…

hola alguien me podría ayudar tengo una macro que me genera mi archivo txt, en la unidad d:\ con el nombre según celda j5, lo que quiero ahora es que ya no me guarde en la unidad d:\ sino que me guarde mi archivo según la celda l5 ahí esta la ruta que quiero que me guarde mi archivo. Sub GenerarTexto() Range("o8").Select Open ("d:\" & Range("J5").Value & ".txt") For Output As 1 captura: Print #1, ActiveCell ActiveCell.Offset(1, 0).Select If ActiveCell = Empty Then GoTo cerrar GoTo captura: cerrar: Close #1 Range("p5").Select End Sub

Todos los excell en una misma carpeta. Unicamente a cambiar una celda de todos los excells de la carpeta. La "BC30" es una celda combinada. Condicional: Si el valor actual de BC30= "hogares" cambiar el valor de la celda por "infiernos" Si el valor actual de BC30= "alquileres" cambiar el valor de la celda por "placeres" Si el valor actual de BC30= "compartir" cambiar el valor de la celda por "genesis" En la celda CB30 solo pueden existir estos valores:" hogares", "alquileres" , "compartir" Y siempre se quieren cambiar por estas correspondencias: Alguien sabe como hacerlo de forma masiva?

Todos los excels tienen la misma estructura. Y estan en una misma carpeta. Se trata de facturas, y en la celda C5 hay un campo que quiero cambiar. en todos los excells se trata de la misma celda, la c5. Y la quiero cambiar por distindos datos. Es decir: Celda c5 del libro excel "casame"--> cambiar "casa" por "Madrid" Celda c5 del libro excel "divorcio"--> cambiar "sofa" por "Tolomeo" Celda c5 del libro excel "amante"--> cambiar "dormitorio" por "Zalameo" Esta correspondencia la tengo en una hoja de excel. Alguien me puede ayudar? Gracias

Hola buenas tardes: Por favo me pueden ayudar con los iguiente: tengo una macro que me ayuda a listar carpetas y nombre de archivos. (es una funcion) el cual llamo desde una SUb, este funciona bien, el problema es que debo poner la ruta de manera manual: Public Sub Listaynombra_Manual() With ActiveSheet List_Fols_Files "C:\Users\CARPETA\" esta es la parte que debo cambiar cada que llamano la funcion (List_Fols_Files) End With End Sub Ay manera de que la ruta sea tomada de una celda de la misma hoja. Trate de poner algo asi: List_Folders_and_Files Range("B1").Value en esa celda esta la ruta donde debe extraer la informacion que requ…

buenas a todos. Muchas gracias de antemano. En la web empresarial donde trabajo, te pide loguearte para acceder a los resultados..cuando ejeceuto el codigo para loguear la web, me cambia la url, por lo que no llego a interactuar con los elementos que necesito. Ahora, como puedo volver a cambiar la url una vez ya logueada? ya que si abro otro ie.navigate me abre otro navegador y me vuelve a pedir usuario y pass, entrando en un bucle,..si logro actualizar la url a la original puedo continuar con las operaciones. gracias

Buenos días a todos; -Tengo una macro empezada que no se terminar porque desconozco que función debo usar. Explico: En una hoja hay una macro que al pulsar sobre la celda activa llama a un condicional que según su valor pues cambia de valor e incluso de color. Lo que no sé conseguir es como recuperar el estado inicial. Adjunto macro para mayor comprensión- Saludos y buenos días a todos. MCeldaActiva.xlsm

Hola: Por favor necesito ayuda en el siguiente problema: Tengo una lista desplegable en A1 con 2 entradas. Quisiera que al seleccionar la entrada No. 1 de la lista, la celda B1 automáticamente quedara en cero o en blanco (y si es posible, bloqueada para que no se puedan ingresar datos) y que al seleccionar el dato No. 2, se pudiera ingresar un valor manualmente en la celda B1. Muchas Gracias Juan Luis

Buenas foro, ando necesitando un macro para esta plantilla que funcione de la siguiente manera: dependiendo la fecha ingresada en columna B si la fecha es igual a la actual(fecha del dia) en la columna H deberia aparecer el valor 0(cero), si la fecha es anterior pero en el mismo mes deberia mostrar la diferencia de dias con la fecha actual es decir que si en columna B la fecha de ingreso es 08/06/2013 el dia de hoy (10/06/2013) el valor en columna H deberia ser 2; y por ultimo si la fecha de ingreso en columna B corresponde a un mes anterior al actual deberia aparecer la cantidad de dias transcurridos en el mes actual, por ejemplo si la fecha ingresada en columna B es 0…

Buenas a todo el mundo, Soy bastante nuevo en eso de la programación en VBA y excel. Estoy haciendo un archivo y necesito que cuando la hoja2 del libro esté abierta, el valor de una celda de la hoja3 me lo copie de una celda de la hoja2. En cambio, cuando la hoja2 esta ocultada necesito que la celda en questión me coja de una lista con validación de datos uno de los dos valores que tengo. Me he estado peleando pero no hay manera... Lo único que se me ocurre es copiar la hoja, pero después la put*da es que tendría que vincular todo lo otro por solo una celda... Alguien me puede ayudar? Muchas gracias

Buenas tardes amigos foristas pues me he atorado en un proyecto espero alguien me pueda orientar o soltar alguna opinion o sugerencia con lo siguiente: deseo cambiar el valor de una variable en tiempo de ejecucion el problema radica en que este valor puede venir de una bd access o de un archivo .ini y dicho valor contiene otras variables ejemplo nota he utilizado callbyname para realizar el cambio de la variable Public sVariable As String Dim sNiño As String Dim sPapa As String '===================== Private Sub Command1_Click() Dim sT As String sT = Variable CallByName Me, "sVariable", VbLet, sT MsgBox sVariable End Sub '==================== Private…

Hola buenas tardes, soy nuevo por aquí y quisiera hacerles una pregunta haber si me pueden ayudar, tengo que hacer lo siguiente con Vba, lo estoy haciendo pero no me sale y he copiado algo por ay y no es lo que quiero, si introduzco un valor "1" o superior en la casilla A2, entonces en las casillas A4, C4, D4, E4, F4, J4, A12, A24 y así hasta unas cuantas mas me debería de poner lo siguiente "50,00" en verde y si la condición de la casilla A2 es "0" no pondría nada o en su caso en color rojo, os envío una hoja de muestra para que lo comprendáis mejor Color en celdas.rar

Hola, si alguien me pudiera ayudar, necesito saber como cambiar el color de no una sino de varias formas o dibujos, lo he probado con varios códigos que se exponen en internet, pero no me funciona, le dibujo una forma le doy el nombre y copio los códigos tal cual, y no hace nada, alguien puede ayudarme ? gracias

Buenas tardes, estoy trabajando sobre un archivo en el que quiero modificar los botones que tengo ahora mismo por objetos y que éstos imiten la función de los botones. Tengo un problema con la función deshabilitar botones pero aplicada a objetos, ¿existe? ¿puedo a través de VBA decir a un objeto que habilite o deshabilite su enlace con una macro como hago a través de los botones habilitando o deshabilitando su funcionamiento? He visto una solución que lo que hace es invisibilizar el objeto... pero no me acaba de convencer. Por ejemplo, en los botones tengo: Hoja09.cmdActualizarResumen_Anual.Enabled = True Hoja09.cmdActualizar…