Buenos dias. Cree una hoja de calculo con bastantes ecuaciones / funciones, botones de comando y un checkbox. Es parecido a un sistema de facturacion donde un boton crea una nueva hoja para un nuevo dia copiando la actual y borrando ciertos datos. El problema es que, casualmente y en operaciones diferentes como abrir otro archivo o al crear una nueva hoja (dia) se redimensionan y se mueven de su lugar los botones de comando y el checkbox haciendose mas pequeños y desplazandose a la izquierda y arriba de la hoja. En ciertas ocasiones, una vez presentado este error, para el siguiente dia (un tercero) se copia bien, otras se copia con el error, y otras se siguen haciendo m…

Hola que tal os queria exponer unos problemillas con los botones de mi formulario. 1º-Cuando se abre el formulario me sale el cursor parpadeando en edad y no me tiene que salir en ningun sitio hasta que no de al boton de NUEVO. 2º- Como vereis cuando doy al BOTON NUEVO se me desactivan algunos botones y tb cuando doy AL BOTON BUSCAR. pero eso esta bien.( Eso es para que sepais como va un poquito).Mi pregunta es: Que cuando doy al boton nuevo y meto datos en los textbox despues tengo que dar al boton agregar para agregarlo a la base de datos y la verdad que no se me agregan.Y cuando doy al BOTON AGREGAR y me desaparecen lo que he metido en los textbox si quiero mover la…

Hola. Se trata de libro protegido y con varias hojas y algunos botones asignados a macros en cada una de ellas. De pronto y sin entender la causa, todos los botones aparecen más chicos y cambiados de su lugar original. Cabe mencionar que esto no sucede en todas las hojas del libro, pero desconozco la causa, teniendo la tarea de volver a configurar tamaño y ubicación, Si alguien tiene la solución, he de agradecerlo. Saludos desde Chihuahua, Chih. México.

Buenos días; Necesito ayuda para hacer funcionales los botones de opción "curso" y "publi". Intento, sin suerte, que sea posible seleccionar cualquiera de los dos botones, independientemente de los que ya existen en el formulario, para introducir en la hoja (fila h, destino) las palabras curso o publi respectivamente y teniendo en cuenta que la tabla crece con el contenido. Muchas gracias por adelantado. CONTROL STOCK LIBROS 2015-2016-2017.rar

Buenas tardes, acudo a ustedes con un pequeño problema, deseo mostrar un userform después de otro, hasta ahí voy bien, pero deseo que no me muestre ciertos botones dependiendo del usuario que ingrese. Adjunto archivo explicando un poquito mejor como deseo realizar eso. PRUEBA.xlsm

Hola a todos, Tengo varios grupos de 3 palabras que necesito agregar en tres celdas de una fila, una seguida de la otra. Son al menos 10 grupos de 3 palabras. Lo que necesito es una ventana adicional con 10 botones, uno por cada grupo de palabras, al dar click sobre el botón, deben aparecer las tres palabras en el documento, teniendo en cuenta la celda activa, de tal forma que si la celda activa es la G5, la primer palabra del grupo se escribe en esa columna, la segunda palabra en la celda H5 y la tercer palaba en la celda I5. La idea es que me pueda desplazar verticalmente con las teclas de dirección por la columna G y asignar los valores correspondientes a cada fila …

Buenos días Comunidad AyudaExcel Anteriormente me habían ayuda con este archivo , es un recuento de comentarios para personas , se puede consultar dicha persona y luego se pueden ver los comentarios que tienen asignados , en ese "Userform4" ocupo asignarle dos botones uno de editar el comentario o de eliminar ese comentario; si notan lo que se carga es una "Listprinte". Gracias de antemano la ayuda. Clima.zip

Buenas tardes, Después de activar la pestaña "Programador", veo que el Visual Basic está deshabilitado. He probado a habilitarlo de muchas maneras y no sé qué más hacer. Incluso tengo instalado el Visual Studio. Adjunto unas cuantas imágenes. ¿alguien sabría decirme qué estoy haciendo mal o dónde está el problema? Gracias

Hola a todos. Tengo un bucle donde el nombre del la variable de la cual necesito obtener el valor va cambiando de Cant1....a....Cant10 (he simplificado el ejemplo que sigue). Los valores de estas variables Cant1.. fueron definidos antes para todo el módulo. Dim i As Byte Dim a As String For i = 1 To 10 a = "Cant" & i Cells(Fila, 1).Value = a Next i El bucle como tal funciona pero tengo el problema que en lugar de ponerme el valor de Cant1, Cant2 (definidos antes) me escribe el texto "cant1", "cant2". Como obtengo el valor de Cant1 a Cant10? Gracias

Hola a todos, Tengo la siguiente macro para ir completando una tabla a partir de valores definidos en el módulo y llamados Cant1, Cant2, Cant3.......hasta el 100 Dim i, k As Byte Dim a As String For i = 1 To 100 k = 3 * (i - 1) 'para ir saltando de a 3 columnas a = "Cant" & i 'cantidad % de componente a ingresar en tabla If a = "" Then Exit For Else Cells(FilaIngreso, 1 + k).Value = a End If Next i El bucle como tal funciona pero en lugar de ponerme los valores antes definidos de Cant1, Cant2....etc, me pone el texto "Cant1", "Cant2", etc Cómo hago para que me de de el valor y …

Hola a todos. Os pido ayuda con este proyecto que estoy haciendo. Tal y como lo tengo ya me funciona, pero veo que tarda en recorrer demasiado las filas, creo que porque estoy usando FOR NEXT. No se si hay manera de hacerlo correr más rápido, con WHILE por ejemplo o de otra manera. Os envío el proyecto y os agradezco si me podéis ayudar porque no veo capaz. El problema viene en la hoja Plantilla_Parte_KM, cuando uso los botones para recorrer las matrículas, la busca en una hoja con este bucle. Si la encuentra pronto no hay problema, pero si no la encuentra o está lejos en el contador del bucle se hace lento. Como siempre gracias de antemano. Moisés. …

Buenas.. gente bueno custion es simple quiero implementar un bucle pero no se como... tengo una base de datos asi en la hoja1.... y en la hoja2 es donde paso ciertos datos de la hoja1 para imprimir formularios preimpresos queda alg asi y el codigo que uso es algo asi........ lo que quiero es implementar un bucle para que salte a la siguiente fila de la base de datos de la hoja1 los pegue en la hoja 2 y se imprima de nuevo los datos de otra persona en el formulario preimpreso si algien me puede encaminar a resolver mi dilema se los agadeceria MEGA no pude subir el archivo.. disculpas

DUDA. Adjunto Código. Tengo casi tres semanas de trabajar en este proyecto para aprender. El usuario al digita el primer valor en C2, entonces A2 muestra la fecha de Hoy. Luego digita un valor en B2, este valor solo se escribe una vez al ingresar el primer dato en C2. Luego el usuario digita un valor en E2 y da clic a botón Run que calcula valores en D2 y F2, pero, muestra en B3 muestra el valor de B2 + 1, que no debe ocurrir. El botón Run, también, debe mostrar en la fila 5 (no en la 4) los totales de las columnas C,D,E y F. Así, cada ves que se digita un valor en C la fila con los totales se va incrementado en 1 hacia abajo. La Fila de Totales también debe mostar…

Buenos dias colaboradores, me gustaria que me orientaran para poder ejecutar esta macro, sin la necesidad de crear un nuevo libro y que ejecute un modulo despues de abrir el libro: Sub Crea()Dim nombre, libro, nombre_final, libro_final As String Set XL = CreateObject("Excel.Application") XL.Visible = True para = 0 a = 0 'Creamos el libro resultante nombre_final = Cells(3, 3) & "." & Cells(2, 3) libro_final = Cells(1, 3) & "\" & nombre_final While (para = 0) nombre = Cells(5 + a, 1) libro = Cells(1, 3) & "\" & nombre If nombre <> "" Then XL.Workbooks.Open libro If a = 0 Then XL.ActiveWorkbook.SaveAs libro_final,…

Hola a todos. Me gustaría me ayuden con lo siguiente. Quiero hacer una macro que borre el contenido de 10 combobox cuyo nombre es CbxComp1.....al....CbxComp10. Una forma de hacerlo es obviamente la que sigue (y me funciona): CbxComp1.Value = "" CbxComp2.Value = "" CbxComp3.Value = "" CbxComp4.Value = "" CbxComp5.Value = "" CbxComp6.Value = "" CbxComp7.Value = "" CbxComp8.Value = "" CbxComp9.Value = "" CbxComp10.Value = "" El tema es que quiero hacerlo con un bucle porque voy otras situaciones similares pero con más comboxes. He probado lo siguiente pero no me funciona (no soy experto): Dim i …

Hola amigos de foro Como siempre consultando y solicitando su ayuda.. En una tema anterior el Amigo Ikanni (Muchas Gracias), me ayudo con la forma para realizar la macro que transferia por hojas la informacion de una tabla aqui el link de mi Consulta El Archivo Filtro IK.xlsm tiene la función de generar hojas (en un Segundo Archivo Mayor) con la data, mediante un combobox y lo mas importante transferir data, creando la hoja sino existe, de existir lo copia como data nueva, 1.- Con un Combobox Genera una a Una cada Cuenta 2.-Con una Macro(Transferir) genera una corrida con todas las cuentas cuentas contable (hoja cuenta) 3.- Medi…

Hola amigos: Acudo nuevamente para solicitar su ayuda, tengo el siguiente codigo que llena un listbox llamado T3 y lo ordena alfabeticamente y todo funciona bien pero tengo otros listboxs T4, T5,....T10 que quisera llenarlos con el mismo rango de datos, ¿es posible hacerlo con un bucle? o de que otra forma puedo hacerlo para no tener que repetir el mismo codigo, tantas veces como listbox tengo que llenar. Espero haberme dado a entender. saludos Private Sub CommandButton1_Click() Set SourceSheet = Worksheets("sustratos") LastRow = SourceSheet.Cells(Rows.Count, 2).End(xlUp).Row On Error Resume Next Set Coll = New Collection With T3 .Clear …

Buenos días estimados Quería solicitarles si me pueden ayudar con un código, debe ser simple, pero yo soy un novato en esto. Tengo en la Hoja1 tres columnas con datos, A tiene Fechas, B y C contienen números. Me gustaría hacer un bucle en donde los valores las celdas de la fila 1 se copien en determinadas celdas de la hoja2 y luego exportar hoja2 en pdf. ej. Hoja1 celda A1 en Hoja2 celda F5 Hoja1 celda B1 en Hoja2 celda D3 Hoja1 celda C1 en Hoja2 celda B2 y exportar hoja2 en pdf luego la siguiente fila Hoja1 celda A2 en Hoja2 celda F5 Hoja1 celda B2 en Hoja2 celda D3 Hoja1 celda C2 en Hoja2…

Hola amigos: Acudo a ustedes para que puedan ayudarme con lo siguiente: tengo 2 macros 1 que sube fotos a una base de datos MYSQL y otra para bajar las fotos, y funcionan muy bien pero necesito su ayuda para modificarlos de tal manera que: en el macro para subir las fotos en lugar de incluir dentro del macro la ruta y el nombre de la fotografia a subir y tener que hacerlo uno por uno, lo pueda tomar de una hoja denominada FOTOS a partir de la fila A2 desde donde se encuentra el ID y la ruta y el nombre del archivo desde donde pueda ubicar dichas fotos y por medio de un bucle pueda recorrer todas las filas llenas y poder cargar todas las fotografias. Por otro lado el …

Hola amigos: Soy nuevo en el foro, estoy realizando mi PFC, mi duda es la siguiente: Tengo un cuadro de lista con diferentes artículos y tengo una macro que realiza una serie de operaciones cuando se realiza el evento click, mi problema es que en el cuadro de lista tengo unos 1000 artículos, y tengo que realizar estos mismos pasos para 10 años diferentes, es decir unos 10000 artículos, lo que me haría perder mucho tiempo si tengo que hacer el evento click manualmente. Por tanto estoy intentando realizar un bucle que me repita el evento click de mi listbox automáticamente para todos los artículos

Hola tengo la siguiente macro, pero solo lo hace en la primera celda, pero la info la tengo en varias, como puedo hacer que lo haga en las demas??? gracias!! Sub crearCita() Dim objectOutlook As Object Dim objectCita As Object Set objectOutlook = CreateObject("Outlook.Application") Set objectCita = objectOutlook.CreateItem(olAppointmentItem) With objectCita .Subject = Cells(2, 2).Value .Body = Cells(2, 2).Value .Start = Cells(2, 3).Value .End = Cells(2, 4).Value .RequiredAttendees = Cells(2, 5).Value .ReminderMinutesBeforeStart = Cells(2, 6).Value .ReminderSet = True .Display (True) ' .Sen…

Buenas noches!!! He creado una función, llamada AbreUrlCopiaAFicheroSinReintentos, que se conecta a internet mediante la función URLDOWNLOADTOFILE y descarga el codigo html a un archivo en mi ordenador y luego lo borra. En mi archivo original por ejemplo puedo tener 2000 direcciones web. Lo que hago es llamar con la macro1 a la función AbreUrlCopiaAFicheroSinReintentos y me descargo en mi hoja excel ciertos parametros del código html. El problema lo estoy teniendo cuando me encuentro con direcciones que tienen un bucle de redireccionamiento. En ese momento la hoja Excel se me queda permanentemente bloqueada y solo la puedo cerrar a lo bestia con Ctrl+alt+supr. Un ej…

Buenas, estoy intentando hacer un programa VBA el qual me coja un valor ya establecido aleario, por ejemplo en "A1" y este colocarlo dentro de una formula: valor(C1)=A1*B1 con tambien B1 conocido,para que me de el valor en C1. El problema que tengo es que dentro de la formula quiero que B1 me varie hasta B100... valor(C2)=A1*B2.. etc y una vez tengo los 100 valores que me salte a la siguiente celda A2 y repita la operacion: valor(C101)=A2*B1. Hasta A1000.... tendre C100000 celdas. Con macros no se como utilizar la funcion For dentro de ellas. Y hay algun problema si uso C(1000*10000)=C(10000000) me lo va aceptar Excel? Mi programa lo tengo hecho: y me sale error pero…

Este código va en un botón el cual inserta datos pero al presionarlo me sale: Se ha producido el error '-2147417848(80010108)' en tiempo de ejecúcion: Error en el método 'Insert' de objeto 'Range' A continuación les dejo el código en cuestión: Private Sub CommandButton1_Click() Range("Alumnos!A2").EntireRow.Insert Range("Alumnos!B2") = TextBox1.Value Range("Alumnos!C2") = TextBox2.Value Range("Alumnos!A2") = TextBox3.Value Range("Alumnos!D2") = ComboBox1.Value Range("Alumnos!E2") = ComboBox2.Value MsgBox "Registro completo" LimpiarCampos End Sub Si alguien me puede ayudar se lo agradecería mucho, saludos.

Buen día tengas ustedes, una vez mas les pido ayudar con un archivo que tengo problemas tengo tres dominio los cuales necesito separar las unidades organizaciones de los archivos pero es algo fastidioso estarlo separando uno por uno, espero y me puedan ayudar les adjunto el archivo en el archivo viene explicado lo que necesito que me eche una manita Gracias ExtrarUsuarios.rar