Dante Amor

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

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()...

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...

H o la: Te anexo otra macro para guardar cada hoja como CSV Sub Guardar_Hojas() '**** ' Por.Dante Amor '**** Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = "C:\Campañas\Envíos\" ruta = "C:\trabajo\" For Each h In Sheets...

Te anexo la macro Sub Macro7() '**** ' Por.Dante Amor '**** Set h1 = Sheets("Fecha de Acta") Set h2 = Sheets("Datos") h1.Unprotect empre = h2.Cells(ActiveCell.Row, "C") fecha = h2.Cells(ActiveCell.Row, "D") u = h1.Range("C" &...

H o l a : Te anexo la macro. Cambia en la macro "Picture 1", por el nombre de la imagen que se va a copiar. Para saber el nombre de tu imagen, selecciona la imagen, y el nombre aparecerá en el Cuadro de nombres. La macro te copiará el rango en un...

H o la: Te anexo la macro con algunos cambios: Sub Add_dbProductListSales_2() 'Act.Por.Dante Amor ' Add_dbProductListSales Macro ' Application.ScreenUpdating = False ' Set h1 = Sheets("dbListSales") Set h2 = Sheets("dbSales") h1.Range("A3:J3").Insert...