Código para que la hoja1 donde captura la información después que pasa la información a hoja 2 se bloque y no afecte macros
Código que permita que la captura de hoja1se pase ahoja dos y se bloque ino afecte las macros de captura. En una misma hoja si puedo pero si la inf'la pasa ala 2 ya no puedo ayuda por favor urge es un formulario de exxel me confundo en el codigo expertos confio en ustedes
[Hola Vicente. Prueba con esta
Dim f, c
Sub CopiarRango()
ActiveCell.CurrentRegion.Select
f = ActiveCell.Row
c = ActiveCell.Column
Selection. Copy
Sheets("Hoja2"). Activate
Cells(f, c). Activate
ActiveSheet. Paste
End SubPero tienes que seleccionar antes lo que quieres copiar
Salu2 Carlos Arrocha
ya tengo la macro que copia los datos ingresados en la hoja 1 pero cuando pasa los datos ala hoja 2 si esta desbloqueada entra pero si bloqueo la hoja 2 ya no entra
Pega la macro aquí para intentar corregirla
Carlos arrocha esa es la macro yo le puse arriba
application .screenupdating=false
sheet("verduras").select
activesheets.unprotect password:="0507"
y antes del cierre de end sub
sheet("verduras").select
activesheets.protect password:="0507"
pero debe desbloquear también la hoja de captura para después abrir hoja verduras y cuando salga
bloque las dos hojas
te agradecería mucho por favor
Prueba ahora y me cuentas.
Sub VERDURAS()
'Modificado by Carlos Arrocha
Application .ScreenUpdating = False
Sheets("verdura").Unprotect Password:="0507"
Sheets("captura").Unprotect Password:="0507"
Range("E6:E11").Select
Selection.Copy
Sheets("verdura").Select
Range("A6:F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Range("A6:F6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("captura").Select
Range("E6").Select
Selection.ClearContents
Range("E7").Select
Selection.ClearContents
Range("E8").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("E6").Select
Sheets("verdura").Protect Password:="0507"
Sheets("captura").Protect Password:="0507"
Application .ScreenUpdating = True
ActiveWorkbook.Save
End SubSalu2 Carlos Arrocha
1 respuesta más de otro experto
Sub VERDURAS()
'
' VERDURAS Macro
'
'
Range("E6:E11").Select
Selection.Copy
Sheets("verdura").Select
Range("A6:F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A6:F6").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("captura").Select
Range("E6").Select
Selection.ClearContents
Range("E7").Select
Selection.ClearContents
Range("E8").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("E6").Select
ActiveWorkbook. Sabe