Adriel Ortiz Mangia

[Hola valora la respuesta para finalizar Sub borra_contenido() ' 'para borra2 fila 2 Rows("2:2").ClearContents End Sub para borrar de la fila 2 al 10 Sub borra_contenido() ' 'para borra2 fila 2 al 10 Rows("2:10").ClearContents End Sub

[Hola Pon un ejemplo como deseas el resultado

[Hola valora la respuesta para finalizar Sub copia_elimina() ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 ' For i = h1.Range("B" & Rows.Count).End(xlUp).Row To 28 Step -1 If h1.Cells(i, "B") <>...

Va la macro Private Sub btnEliminaMaterial2_Click() 'Busca Registro en la BD Dim RegistroBuscarPDM As String RegistroBuscarPDM = txbCodigoMaterialPDM2.Value Set h = Sheets("BD") ' Set r = Columns("A") Set b = r.Find(RegistroBuscarPDM, LookAt:=xlPart)...

[Hola revisa esto https://www.todoexpertos.com/preguntas/9g8c5gf63mitok97/como-creo-el-siguiente-macro?selectedanswerid=9g8phovkb37y9fx8&nid=gntm9w6q9gm9vh6sgsr9xhkqabvphh6jg4qqftu59fuqlhe9i3v6nfb

[Hola Envíame tu archivo a [email protected] o sube a la nube tu archivo

[Hola selecciona tus datos y sigue éste proceso

[Hola Ve al escritorio y crea un nuevo archivo. Clic derecho ----nuevo ------archivo de excel Antes de abrirlo revisa la propiedad del archivo nuevo Y donde dice solo lectura y oculto deben estar desactivado Ahora intenta copiar tus hojas al nuevo...

[Hola sustituye la instrucción now() por Date ActiveSheet.Cells(FilaLibre, miCelda.Column).Offset(0, 3).Value = Date la otra línea ActiveSheet.Cells(FilaLibre, miCelda.Column).Offset(0, 4).Value = Date

[Hola te paso el link y sigue las indicaciones http://www.intercambiosvirtuales.org/software/office-professional-plus-2016-vl-espanol-x86-x64-actualizado-diciembre-2018