Como modificar otra hoja sin salir de la hoja actual
Estoy en la hoja "Cuotas" y quiero aumentar filas en la tabla "Rec", que se encuentra en la hoja "Recibos", pero sin tener que salir de la hoja "Cuotas". Estoy trabajando con este código, pero es incomodo ver que excel me muestra unos segundos la hoja "Recibos" y vuelve a la hoja "Cuotas".
If Sheets("Rec").Range("D1") > 0 Then
Sheets("Recibos").Select
Range("Rec[[#Totals],[NºRec]]").Select
Selection.ListObject.ListRows.Add
Sheets("Cuotas").Select
End If
Lo mismo sucede con estos codigos
----
Sheets("MENU").Select
ActiveSheet.Unprotect Password:="CACHO"
Sheets("Cuotas").Select
-----
Sheets("ImpRec").Select
ActiveSheet.PageSetup.PrintArea = "$E$4:$AK$58"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ruta & nombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Range("P4").Select
Sheets("Cuotas").Select
----
Sheets("Gtia").Select
Range("FACTS9[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("M3:AC10"), CopyToRange:=Range("B7:E7"), Unique:=True
If Range("F3") > 0 Then
ult = Range("B3") + 7
For x = 8 To ult
If Cells(x, 8).Value = "NO" Then
Cells(x, 6).Value = "NO"
Else
Cells(x, 6).Select
Selection.Locked = False
Selection.FormulaHidden = False
End If
Next
End If
Sheets("Cuotas").Select
-----
Agradezco anticipadamente me puedan ayudar con 4 nuevos códigos para trabajar en otras hojas sin salir de la hoja actual.
1 respuesta
Para solucionar tu problema, pon esta línea al principio del código
Application.ScreenUpdating = False
y esta otra al final
Application.ScreenUpdating = True
GRACIAS! Me funciona bien, ya no veo el cambio y retorno entre las hojas.
Pero me queda una duda. Es posible hacer el código sin que excel pase de una hoja a la otra?. Como cuando se manda un valor de celda desde la hoja actual a la hoja destino, sin necesidad de ir a ésta ultima?. Saludos.
Con este tipo de código no es necesario cambiar de hojas
Sheets("Hoja2"). Range("A1").Value = Sheets("Hoja1"). Range("A1").ValueHace que el valor de la Hoja2 A1 sea igual al de Hoja1 A1 sin moverse de la Hoja1
