Hola. Estoy empezando a investigar en el mundo de los formularios pero parece que no se me da muy bien. Os explico. Tengo un Formulario con tres grupos de diez TextBox cada uno. Lo que necesito es, mediante el boton "REGISTRAR", introducir los datos de los TextBox en diferentes columnas de la hoja "Aux". Ejemplo : Textbox LR01 a la celda A2 Textbox LR02 a la celda A3 ... Textbox LP01 a la celda D2 Textbox LP02 a la celda D3 ... Textbox LE01 a la celda G2 Textbox LE02 a la celda G3 ... Lo no consigo hacer es una macro que me recorra todos los TextBox del formulario y que si éste contiene datos me los lleve a su celda correspondiente de la hoja "Aux". En el adju…

Tengo esta Macro que guarda la hoja, pero quiero que lo haga igual para todo el Libro. Muchas Gracias Option Explicit ' Sub EXCELeINFOGuardarHojaComoArchivoNuevo() ' Dim VentanasProtegidas As Boolean Dim EstructuraProtegida As Boolean Dim NombreHoja As String Dim Confirmacion As String Dim NombreArchivo As String Dim GuardarComo As Variant Dim Extension As String ' On Error GoTo ErrorHandler ' VentanasProtegidas = ActiveWorkbook.ProtectWindows EstructuraProtegida = ActiveWorkbook.ProtectStructure ' If VentanasProtegidas = True Or EstructuraProtegida = True Then MsgBox "No se puede ejecutar el comando cuando la estructura del archivo está protegida.",…

Hola, Recientemente estoy en esto de las macros, y me gustaría particularmente ayuda para un trabajito que tengo por ahí, en el cual es: Crear un botón, donde al precionarlo, pueda agregar las calificaciones de una persona (permitiendo únicamente numeros cerrados del 5 al 1o) y que cuando quiera agregar las calificaciones de otra persona, automáticamente se coloque la información debajo de la anterior persona. A ver si me pueden ayudar, les dejo mi archivo del avance que llevo. Libro1.xls

Hola ben día: Me podria ayuar a localiza el error en la siguinte sintaxis ya que por mas que la intent buscar no la encuentro, lo que esta en negrito es dondeme aparece el error Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 6 Then Cells(Target.Row, 6).Value = Now End If End Sub ----------------------------------------------------------------------------- Private Sub Workbook_Open() Worksheets("09-00 AM").Protect "aBc", 1, 1, 1, 1 End Sub ------------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then ActiveCell.Select Wit…

Buenos días, espero que estén todos muy bien. Necesitaría que me den una gran ayuda con un este tema, hasta ahora después de haber buscado bastante no estoy dando con el código correcto para resolverlo. Así como dice el titulo tengo una formula escrita en la hoja de excel, celda A1, que quiero cargar en un un textbox. El PROBLEMA se me presenta ya que en la formula escrita en la celda A1 quiero hacer referencia a otros textbox (variables) de mi formulario (VAR01 y VAR02 en el ejemplo). Acá les adjunto el archivo con el problema concreto, puesto que ahí se ve mucho mas claro que es lo que estoy buscando (espero). Desde ya agradecido a todos, disculpen si no estoy publ…

Tengo una macro que al exportar una seccion de excel exporta el rango en blanco sin informacion no se por que aqui el codigo Sub Descripcion_jpg() Sheets("Ingreso Productos variables").Select Dim B As String B = Range("C43").Value If B = 2 Then Exit Sub End If Sheets("Descripcion").Select ActiveSheet.Unprotect ("adctv530") Dim rgExp As Range: Set rgExp = Range("B22:K42") Dim archivo As String archivo = Range("A1").Value ''' Copy range as picture onto Clipboard rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ''' Create an empty chart with exact size of range copied With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, T…

Buenas tardes a todos, ojala puedan ayudarme. Estoy Haciendo un programita en Excel el cual va a servir para imprimir etiquetas para un inventario, las etiquetas contienen no_parte, ubicación, descripción e imagen, estos datos están almacenados en una BD en Excel, excepto la imagen que esta en una carpeta C:\imágenes(Cada imagen se llaman como el no_de parte) En el formulario por medio de formulas se mandan llamar los datos dependiendo de que rango de numero a que rango quiero imprimir sin embargo para que me aparezca la imagen no se como hacer. Anexo código que encontré: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next 'If Target.Ad…

Buenas: Resulta que no he dado con la solucion he probado con el Select Case para ir comparando tres columnas y si una fila tiene valor los copie . Ej en la columna 10 no hay valor pasa a la columna 14 tampoco hay valor en la columna 15 si hay valor ahi tiene que copiar esos valores y copiarlos en la hoja1 en la columna C de C8 a C13.. Y asi para cualquier caso de esas tres columnas que tengan datos los copie en el rango de la hoja1 Gracias de antemano prueba.zip

Buenas a tod@s, llevo varios días rompiéndome la cabeza intentando que me funcione esta macro. El tema es el siguiente, tengo dos hojas: - Datos - Resultados En la hoja “Resultados” necesito que me busque el dato de Cantidad para cada pieza, y para ello los requisitos son la hora y fecha. Lo que tiene que hacer la macro sería: - De la hoja “Resultados” - Coger el dato tipo de pieza. - Coger fecha - Coger hora - Ir a hoja “Datos” y buscar, con esos tres criterios la cantidad - Copiar ese dato de cantidad en la hoja “Resultados” Por ejemplo de la pieza A, el 19.05.2014 a las 7 tendríamos 10 piezas. Para el caso de la pieza B el 20.05.2014 a las 12 tendr…

Buenas amigos del foro estoy trabajando con una hoja de excel para trasladar informacion de una hoja a la otra pero en forma de resumen, en la hoja llamada "libro diario" tengo la informacion, y en la hoja "balance de comprobacion" quiero que aparezca cada cuenta con el total igualito como aparece en la hoja "balance de comprobacion asi" yo he tratado de modificarla pero me arroja todo los movimientos de la cuentas mas no el resumen, no se mucho de macro, es un tema de mucho interes, saludos Libro Diario (Prueba).zip

Hola de nuevo a tod@s ! No encuentro apenas información sobre la forma de trabajar con los SpinButton de los controles ActiveX de excel, al menos en lo que a fechas se refiere. Partiendo de un cuadro de texto con la fecha de hoy, mi intención es ir variando esa fecha en +/- 1 días según se van pulsando las flechas del SpinButton. Os dejo el archivo para ver si podéis echarme una mano. Muchas gracias y un saludo ! subir_bajar_fechas.rar

Hola Muchachos, Pues Pido d su ayuda debido a que no me e familiarizado mucho en VBA para Excel. Pues tengo un Formulario ( Bienvenido ) con un Label llamado LblVendedor pues a este quiero Asignarle un Caption a través del Nombre de un Caption de un Botón incrustado, el Problema es que, el botón incrustado no se encuentra en el mismo Modulo y no se como hacer la referencia en el Procedimiento para asignar el Caption a LblVendedor.. Private Sub CommandButton1_Click() Label = Me.CommandButton1.Caption LblVendedor.Caption = Label <------ aca Esta mi duda....... Bienvenido.Show Valor = 1 End Sub Su ayuda Por Favor...

Buenas Noches. Quisiera saber si me podría ayudar a mejor este libro , agregándole unos macros me seria de mucha ayudar de antemano muchas gracias Dropbox - EXCEL PD: Para el uso de sesión del libro Usuario: EDUARDO Contraseña:MENDOZA

Buenas amigos Necesito su ayuda. para este "miselaneo". tengo Varios Archivos de Excel que quiero bloquear masivamente para que solo se pueda leer todos con una misma contraseña. Saben de alguna macro o me pueden apoyar con la creacion de dicha macro para poder hacer esto. lo que pasa es que son como 500 archivos, y bloquear uno por uno con la misma contraseña pues va a ser un trabajo muy tedioso. quedo a espera de su apoyo espero me puedan ayudar maestros. Saludos

Buenos Días, por favor necesito un ayuda, necesito bajar archivos generados en un servidor, actualmente tengo un ejecutable .bat pero necesito pasar ese código a excel ya que la idea es poder generar una macro para que me organice la información pero eso ultimo lo hago, no he logrado pasar los códigos de los .bat a excel, gracias si alguna persona me puede ayudar, anexo los archivos que actualmente utilizo. ftp.zip

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…

Hola buenas Tardes, tengo una duda, ayer con su ayuda pude resolver 1 problema pero me causo 1 mas la cual estoy intentado resolver, si me pueden ayudar se los agradeceria. Bueno ahora tengo 2 ejemplos los cuales me estoy basando. El Catalogo 1 si me elimina y me habre el modificiar pero al darle click a los items del listbox El catalogo 2 Me muestra todos los items que hay en la hoja de excel pero no me deja eliminar ni modificar porque al seleccionar los items no se selecciona Lo que me gustaria si no es molestia es que Se visualice como en el Catalogo2 todos los items de mi hoja de excel, y que al seleccionarlo pueda Eliminar, o modificar como en la Hoja 1. Tengo…

Buenas tardes expertos. En esta ocacion solicito de su apoyo, tengo un codigo para mostrar informacion de cada shape, pero no me funciona, lo que pretendo lograr es que al momento de pasar el mouse sobre un shape, me muestre como screentip la informacion que se encuentra en otra hoja. Anexo ejemplo. De antemano gracias por la ayuda brindada. Saludos cordiales. Screentip.rar

Buen día, Me gustaría saber cómo bloquear celdas con fórmulas en un libro que contiene un código Visual Basic que oculta dichas celdas. Pues si se quiere bloquear las celdas con fórmulas, al momento de ejecutar el código de Visual Basic para ocultar dichas celdas aparece: Se ha producido el error “1004” en tiempo de ejecución: No se puede asignar la propiedad Hidden de la clase Range. A modo de aclaración el código de Visual Basic está asociado a los controles Active X de casilla de verificación. Cuando las casillas de verificación se marcan ocultaran ciertas filas para hacer más fácil la impresión. Resumiendo me gustaría bloquear celdas que contienen formulas sin que…

Hola a todos: Tengo el siguiente problema: Una tabla de Excel que se va a ir alimentando de las veces que ese numero se repita en una lista: Esa lista es Tiradas y Numeros. La tabla que aprece a la izquierda se alimenta de la siguiente forma: Ejemplo: 2 2 5 3 8 2 11 2 14 1 Es decir: El Numero 2 se repitio 2 veces, el 5 3 y asi sucesivamente , con el formato condicional establezco que siempre que la celda tenga un valor >0 me lo sombree. Cuando se sombrean las celdas necesito hacer un copy de las que se sombreen mas de 4, es decir 2 5 8 11 14 1 4 7 10 en otra parte de la hoja o en otro sheet. Adjunto un documento de ejemplo para ver si se entiende, por…

Saludos Tengo un código VB que es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Si hay errores, que continúe On Error Resume Next 'Si cambiamos el dato de la celda X, mostramos la foto de ese Clan If Target.Cells = Range("E24") Then 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Pasamos a una variable, el nombre de la foto, 'que será el mismo que el nombre del Clan imagen = Range("E24").Value 'Añadimos la extensión "png" imagen = imagen & ".png" 'Buscamos la foto en el mismo directorio 'donde tenemos este fichero de Excel ruta = ActiveWorkbook.Path & "\clanes\" & imagen 'Borramos la foto del Clan (si hub…

Hola amigos, estoy en el trabajo y me han mandado realizar una serie de tablas pivot a partir de un monton de tablas de excel en distintos documentos. Abro el documento y hay tengo la tabla, y le doy a grabar macro, pongo el comando ctrol+q, acepto, selecciono todo la tabla, insertar, tabla pivot y por defecto me la selecciona, acepto y listo y parece que todo va bien. Pero cuando abro el siguiente excel y pulso ctrol+q para que se ejecute sobre esa nueva tabla, me da error. Si me pudierais ayudar seria fantastico porque me simplificaria mucho el curro. Un abrazo

Hola: Tengo el siguiente problema: En la hoja de excel tengo una serie de datos, estos se van a sombrear siempre que el valor sea mayor que cero. el problema es que quiero que cuando se sombreen mas de 4 celdas seguidas ese numero que esta a la iquierda se extraiga y se ponga en otro lugar en la hoja, les adjunto el documento para que vean lo que les estoy diciendo. Muchas Gracias por la ayuda Barra Movil Ejemplo.xls

Me conseguí una macro que copia un rango de celdas variables a un nuevo libro lo que quiero modificar es que el nombre del nuevo libro lo tome de una celda de la pagina en B1 pero me da error aqui el codigo CODE Sub CopiarCeldas() 'Definir objetos a utilizar Dim Nom_Libro As String Nom_Libro = Range("B1").Value Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & Nom_Libro) 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino…

buenas compañeros: mi inquietud es la siguiente, como crear una aplicasion de WPF C# de lectura y escritura en archivos de excel, si me pueden aclarar la duda muchas gracias compañeros