Entiendo que en el momento que tuviera dos celdas consecutivas sin fórmula que tuviera que recuperar ese código que planteas no me valdría, porque estoy copiando una fórmula que no existe de la celda de arriba en la celda de abajo de ella.
imagino que con borrar unas lineas te refieres a eliminar esos registros, estirar hacia abajo la tabla y en las nuevas líneas creadas añadirlos al final con los datos que tuvieran los antiguos, con las fórmulas arrastradas y creadas de nuevo. Entonces habria que escribir a mano todos los datos de cada columna a rellenar de todas las filas nuevas, dando lugar a cometer errores de copia/pega o reeescritura. Además, los registros los tengo ordenados con cierto orden , le perdería.
es lo que comentaba antes, era solución funcional trabajando con un excel en el mismo idioma en los dos ordenadores, por eso esto queda descartado, ya que por lo que veo excel no reconoce las funciones de un idioma a otro.
No sé, la verdad que me sorprende un poco que no se pueda hacer lo que planteo aquí al inicio.. Al final me voy a conocer todos los foros, ajja. Un saludo!
Por
MANTONIOPM, · publicado
Buenas tardes, espero puedan ayudar... De ante mano muchas gracias.
-Tengo una macro que me copia la hoja en la cual trabajo y la renombra (Perfecto)**
Lo que necesito:
-Mensaje Yes/No "¿Desea guardar e Imprimir esta solicitud?"
-No: sigo trabajando, Yes: Copia hoja, guarda e imprime.
-Y por ultimo que limpie las cerdas de la hoja matriz.
Estas:
Range("D10:F10,A13:A28,C13:F28").Select
Range("D10:F10,A13:A28,C13:F28,A49:A64,C49:F64").Select
Selection.ClearContents
Observación: deseo bloquear la hoja pero con lo que tengo ya trabajado, me da un error.
GRACIAS POR SU AYUDA
Macro que copia y renombra:
Sub Botón4_Haga_clic_en()
Dim hoja As Worksheet
Dim existe As Boolean
Dim nueva As String
nueva = ActiveSheet.Name & Sheets.Count - 1
If nueva = Empty Then Exit Sub
For Each hoja In Worksheets
If hoja.Name = nueva Then existe = True
Next hoja
Application.DisplayAlerts = False
If existe = False Then
Sheets("Solicitud No.").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = nueva
.Tab.Color = 16711680
.Shapes("Button 1").Delete
End With
MsgBox "Se Guardo Correctamente"
Sheets("Solicitud No.").Select
End If
Application.DisplayAlerts = True
Exit Sub
MsgBox "Ya existe una hoja con ese nombre."
End Sub