Dante Amor

H o la: envíame 3 archivos de excel. Los archivos 1 y 2 que sean dos de los archivos que se tienen que unir. En el archivo 3 me pones cómo uniste esos 2 archivos. Supongo que los archivos a unir están todos en la misma carpeta. Mi correo...

Para hacer la macro, me faltan varios datos. En cuál celda vas a poner el número de caja, ¿entonces la macro leerá ese número de caja y solamente generará los archivos que correspondan a ese número de caja?¿Qué datos se deben pasar de la hoja "Hoja1"...

Puedes poner la información: En cuál celda vas a poner la fecha a buscarEn cuál celda vas a poner el valor de HorsEn cuál columna están las fechasA partir de cuál columna quieres la división de horas Si puedes poner una imagen sería más claro.

No entendí muy bien qué necesitas. Pero si seleccionas varias celdas y quieres borrar el contenido de las celdas seleccionadas, puede ser así: Selection = Empty Avísame si tienes dudas. 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Te anexo el código Sub Editar_Datos() 'Por.Dante Amor ' Set h1 = Sheets("EDICIÓN") Select Case h1.Range("A5") Case "ORDEN DE COMPRA" Set h3 = Sheets("REPORTE OC") Set h4 = Sheets("DETALLE OC") Case "ORDEN DE SERVICIO" Set h3 = Sheets("REPORTE OS")...

H o l a: Te anexo la macro Sub Borrar_Ceros() 'Por.Dante Amor For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Cells(i, "A").Value = 0 Then Rows(i).Delete End If Next MsgBox "Fin" End Sub 'S aludos. Dante Amor. Recuerda valorar la...

Para poner la fecha en la misma fila hay que buscar la empresa. Si ya existe entonces tenemos la fila, ¿pero en cuál columna hay que poner la fecha?

H o l a: Te anexo las 2 macros Sub OCULTAR_AZUL() 'Por.Dante Amor On Error Resume Next col_azul = Sheets("hoja a duplicar").Tab.ColorIndex For Each h In Sheets If h.Tab.ColorIndex = col_azul Then h.Visible = 0 End If Next End Sub ' Sub MOSTRAR_AZUL()...

Al final de ese enlace vienen los archivos de excel con el código para el objeto Calendar. Tienes que descargar el archivo de excel, crear la Clase y copiar el código que viene en el archivo. No es algo sencillo, pero ahí vienen los ejemplos. Sal u dos

H o la: La macro para poner un texto en automático en cualquier celda al momento de seleccionar una celda sería esta: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor ActiveCell.Value = "Texto" End Sub Pero, cada que...