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

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

A ver si estas trabajando en Vb debes utilizar : App. Path Si estas trabajando en VBA ( visual basic para aplicaciones office) debes utilizar application. Path El donde poner estas instrucciones va a depender de en que evento o moento deseas tener la...

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