Dante Amor

Te anexo la macro actualizada Sub Copia() 'Act Por Dante Amor 'On Error Resume Next Application.ScreenUpdating = False PathActual = ActiveWorkbook.Path NombreLibro = PathActual + "\COPIAS\" + ActiveWorkbook.Name NombreLibro = PathActual + "\" +...

Te anexo la macro, para generar un archivo txt por fila. Sub Generar_Txt() 'Por.Dante Amor Set h1 = ActiveSheet ruta = ThisWorkbook.Path & "\" If Left(ruta, 1) <> "\" Then ruta = ruta & "\" For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row...

Puedes poner tu código para revisarlo

¿Pero qué quieres sumar? ¿Y para qué el contador? ¿Y por qué lo haces de abajo hacia arriba?

Te anexo la macro Sub Pone_Asistencia() Set h1 = Sheets("Mayo") 'hoja con todos los datos Set h2 = Sheets("Asistencia") 'hoja con solo los nombres de personas que asistieron en el día For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row nombre =...

Haber si entendí. Tienes un formato en una hoja, ¿quieres imprimir ese formato 500 veces y en cada hoja impresa vaya cambiando el número de folio? Si es así utiliza la siguiente macro: Sub imprimir() For i = 1 To 5 Range("F1").Value = "Folio N° " &...

Te anexo la macro Sub Buscar_Dato() 'Por Dante Amor Set h1 = Sheets("RED ALDO") Set h2 = Sheets("Items") ' For i = 2 To h1.Range("R" & Rows.Count).End(xlUp).Row Set b = h2.Columns("C").Find(h1.Cells(i, "R"), lookat:=xlWhole) If Not b Is Nothing Then...

Prueba con lo siguiente: Range("B3").Value = TimeValue(TextBox1. Value) Me comentas si te funciona

Quieres sumar las celdas de la columna M, ¿pero en dónde quieres el resultado de la suma? Puedes poner 2 imágenes, mostrando en la primera imagen cómo están tus datos y en la segunda imagen cómo quieres el resultado.

Pon las siguientes líneas al inicio de tu macro Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Al final de tu macro pon estas líneas: Application.ScreenUpdating = True...