Luis_P

Sub Impresion_de_reporte() Dim s As Byte '4c7569735f50 ' Impresion_de_reporte Macro ' Imprimir hojas s = MsgBox("Seguro deseas imprimir ? ", vbQuestion + vbYesNo, "imprimir") If s = 7 Then Exit Sub ActiveWindow.SelectedSheets.PrintOut Copies:=1...

Sub copiar() Sheets(1).Activate '4c7569735f50 If UCase(Range("L14")) = "JURIDICA" And UCase(Range("M16")) = "CONTRATABLE" Then Sheets(2).Activate Sheets(2).Range("C4:c12").Select Selection.Copy Sheets(1).Activate Range("c20:c28").Select...

'4c7569735f50 Esta linea te indica cuantas celdas "no vacias" existen en la hoja 1 Application. WorksheetFunction. CountA(sheets(1). Range("A:IV")) Esto para un libro xls si usas xlsx solo cambia la referencia IV por el nombre de la ultima columna...

Seguro estas usando la extencion xls esa solo tiene 65536 filas Trabaja con la extencion xlsx esa tiene 1.048.576 filas Abre una nueva hoja y en guardar como ... seleccionas la extension xlsx, la cierras y luego al abres nuevamente

Si por que estas intentando eliminar una instancia del objeto y no el objeto, debes eliminar el shape. Cada shape cuenta con un indice shape(1), shape(2) etc Identifica el indice y elimina el shape Sheets(1).Shapes(1).Delete Elimina el shape indice 1...

Revisa esta respuesta http://www.todoexpertos.com/mitodoexpertos/question/73bnmjh6aaijh/macro-que-abra-todos-los-archivos-de-excele-de-una-carpeta

En cualqueier modulo ( no de clase) luego de Option Explicit

="la palabra " & A1 & " se define como iniciación de una conversación" asi con el = antepuesto

Sub Macro3() '4c7569735f50 Range("A3:F49").Copy Range("I13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A3").Select End Sub

Aca el macro: Sub copia_respuestas() Dim fila As Long Dim hoja As String '4c7569735f50 fila = Application.WorksheetFunction.CountA(Sheets("RES").Range("A:A")) + 1 hoja = ActiveSheet.Name Application.ScreenUpdating = False...