Macros que copie de una matriz de la hoja1 a hoja2 que contengan en la columna d "PA"

Tengo una matrriz en la hoja1 y quiero que se copien ciertos valores a la hoja2, para esto en una de las columnas de la matriz tien una condición de AP aprobado y PE pendiente , los valores que estén en pendiente se deben de copiar a la hoja dos y los valores con AP en otra hoja, en la hoja1 la matriz tienen valores con formula que cambian con otra macros al introducir una clave nueva y se ocultan todas las filas de la matriz que no tienen ningún valor, y cuando se actualizan estas y tiene valores se aparecen

Clave 1234

Hoja 1 a b c d Hoja2 a b c d e 12 13 14 "AP" 1234 14 23 12 "PE" 14 23 12 "PE" 1234 41 23 21 "PE" 41 23 21 "PE"

1 Respuesta

Respuesta
1

En qué columna está la condición, ¿la D?

Qué es lo que se tiene que copiar, ¿toda la fila?

Prueba esta macro

sub copiar
'Por.DAM
set h1 = sheets("Hoja1")
set h2 = sheets("Hoja2")
set h3 = sheets("Hoja3")
for i = 1 to h1.range("A" & ROWS.COUNT).end(xlup).row
 if h1.cells(i, "D") = "PE" then
 u = h2.range("A" & ROWS.COUNT).end(xlup).row + 1
 h1.rows(i).copy h2.range("A" & u)
 else if h1.cells(i, "D") = "AP" then
 u = h3.range("A" & ROWS.COUNT).end(xlup).row + 1
 h1.rows(i).copy h3.range("A" & u)
 end if
next
end sub

Saludos.Dante Amor

Si es lo que necesitas, podrías finalizar la pregunta.

en la linea 10 del código

else if h1.cells(i, "D") = "AP" then; me marca un erro de sintaxis, https://dl.dropboxusercontent.com/u/73028695/B2%20-%201.xlsm, te envío el archivo para que puedas ver bien en lo que deseo que me ayude, en la hoja MN viene la explicación .. muchas gracias por su ayuda

Ya ví tu archivo, pero no entiendo qué es exactamente lo que quieres copiar. ¿A qué le llamas "quiero que se copie toda la información de la tabla"?

Puedes enviarme nuevamente el archivo, pero solamente con las 3 pestañas: "NM", "CPPE" y "CPAP". Pon un ejemplo COMPLETO, qué se va a copiar y en dónde se va a copiar.

ok, le agradezco mucho que se tome la molestia de ayudarme, le envío link, https://dl.dropboxusercontent.com/u/73028695/B2%20-%201.xlsm, con solo las hojas que me dijo y con una explicación mas clara.

Te anexo el archivo con la macro, está en el módulo 8 y se llama copiar
Tuve que arreglar las hojas CPPE y CPAP, para que los datos empezaran en la misma fila y la misma columna, de esta forma podemos ocupar una sola macro, de lo contrario hay que hacer una macro para cada hoja destino.
Las celdas en la hoja destino NO las debes combinar, de lo contrario no te permite pegar, si las quieres combinar, tendrás que pasar dato por dato, y con la copia pasas todos los datos desde la columna J hasta la AZ.
En cuanto a los dato de la hoja NM, si cambias la información de posición, es decir, mueves alguna columna o alguna fila, tendrás que modificar la macro.
https://www.dropbox.com/s/uotqzoserr56tlq/B2%20-%201%20dam.xlsm

Es exactamente lo que necesitaba..!!!! este foro es de los mejor de vdd..!!!

Me encuentro modificando un código para crear usuarios y contraseñas y dependiendo del usuario muestre las hojas a las que tiene acceso abusando de tus habilidades podrías revisarlo , es un código que modifique ya ingrese los usuarios y los bloqueos pero aun asi me sigue mostrando todas las hojas con cualquier usuario, y ademas me sigue pidiendo la clave y me manda el mensaje de clave incorrecta, pero ya me deja la hoja abierta

Private Sub CommandButton1_Click()
On Error GoTo Errorusuario
Dim strClave$
strClave$ = Application.WorksheetFunction.VLookup(TextBox1, Worksheets("UC").Range("A2:B10"), 2)
If TextBox2 <> strClave$ Then
MsgBox "Usuario y/o clave incorrecta", vbOKOnly, "ERROR"
TextBox1 = ""
TextBox2 = ""
Exit Sub
End If
'-----------------------------------------------------------------------------------------------------------------------------------
Application.Visible = True
If TextBox1 = "ignacio" Then
ActiveWorkbook.Unprotect
Worksheets("CByS").Unprotect
Worksheets("CV").Unprotect
Worksheets("CA").Unprotect
Worksheets("CM").Unprotect
Worksheets("GCByS").Unprotect
Worksheets("GCV").Unprotect
Worksheets("GCM").Unprotect
Worksheets("GCA").Unprotect
Worksheets("BDM").Unprotect
Worksheets("BDCH").Unprotect
Worksheets("BDT").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'----------------------
Worksheets("CByS").Visible = True
Worksheets("CV").Visible = True
Worksheets("CA").Visible = True
Worksheets("CM").Visible = True
Worksheets("GCByS").Visible = True
Worksheets("GCV").Visible = True
Worksheets("GCM").Visible = True
Worksheets("GCA").Visible = True
Worksheets("BDM").Visible = True
Worksheets("BDCH").Visible = True
Worksheets("BDT").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
End If
If TextBox1 = "jose luis" Then
ActiveWorkbook.Unprotect
Worksheets("Reporte Operación").Unprotect
Worksheets("Ac").Unprotect
Worksheets("Av").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'-------------------------
Worksheets("Reporte Operación").Visible = True
Worksheets("Ac").Visible = True
Worksheets("Av").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
End If
'----------------------------------
If TextBox1 = "asunción" Then
ActiveWorkbook.Unprotect
Worksheets("Reporte Operación").Unprotect
Worksheets("Ac").Unprotect
Worksheets("Av").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'----------------------------
Worksheets("Reporte Operación").Visible = True
Worksheets("Ac").Visible = True
Worksheets("Av").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
End If
'----------------------------------------------
If TextBox1 = "ramón" Then
ActiveWorkbook.Unprotect
Worksheets("Reporte Operación").Unprotect
Worksheets("Ac").Unprotect
Worksheets("Av").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'----------------------
Worksheets("Reporte Operación").Visible = True
Worksheets("Ac").Visible = True
Worksheets("Av").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
End If
'-----------------------------------
If TextBox1 = "gustavo" Then
ActiveWorkbook.Unprotect
Worksheets("Reporte Operación").Unprotect
Worksheets("Ac").Unprotect
Worksheets("Av").Unprotect
Worksheets("GCByS").Unprotect
Worksheets("GCV").Unprotect
Worksheets("GCM").Unprotect
Worksheets("GCA").Unprotect
Worksheets("BDCH").Unprotect
Worksheets("BDT").Unprotect
Worksheets("MN").Unprotect
Worksheets("TBN").Unprotect
Worksheets("CPPE").Unprotect
Worksheets("CPAP").Unprotect
Worksheets("CPCN").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'------------------------
Worksheets("Reporte Operación").Visible = True
Worksheets("Ac").Visible = True
Worksheets("Av").Visible = True
Worksheets("GCByS").Visible = True
Worksheets("GCV").Visible = True
Worksheets("GCM").Visible = True
Worksheets("GCA").Visible = True
Worksheets("BDCH").Visible = True
Worksheets("BDT").Visible = True
Worksheets("MN").Visible = True
Worksheets("TBN").Visible = True
Worksheets("CPPE").Visible = True
Worksheets("CPAP").Visible = True
Worksheets("CPCN").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
End If
'-----------------------------------
If TextBox1 = "edel" Then
ActiveWorkbook.Unprotect
Worksheets("Reporte Operación").Unprotect
Worksheets("CByS").Unprotect
Worksheets("CV").Unprotect
Worksheets("CA").Unprotect
Worksheets("CM").Unprotect
Worksheets("GCByS").Unprotect
Worksheets("GCV").Unprotect
Worksheets("GCM").Unprotect
Worksheets("GCA").Unprotect
Worksheets("BDCH").Unprotect
Worksheets("BDM").Unprotect
Worksheets("MN").Unprotect
Worksheets("TBN").Unprotect
Worksheets("CPPE").Unprotect
Worksheets("CPAP").Unprotect
Worksheets("CPCN").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'-------------------------
Worksheets("Reporte Operación").Visible = True
Worksheets("CByS").Visible = True
Worksheets("CV").Visible = True
Worksheets("CA").Visible = True
Worksheets("CM").Visible = True
Worksheets("GCByS").Visible = True
Worksheets("GCV").Visible = True
Worksheets("GCM").Visible = True
Worksheets("GCA").Visible = True
Worksheets("BDCH").Visible = True
Worksheets("BDM").Visible = True
Worksheets("MN").Visible = True
Worksheets("TBN").Visible = True
Worksheets("CPPE").Visible = True
Worksheets("CPAP").Visible = True
Worksheets("CPCN").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
End If
'-----------------------------------
If TextBox1 = "israel" Then
ActiveWorkbook.Unprotect
Worksheets("Reporte Operación").Unprotect
Worksheets("CByS").Unprotect
Worksheets("CV").Unprotect
Worksheets("CA").Unprotect
Worksheets("CM").Unprotect
Worksheets("GCByS").Unprotect
Worksheets("GCV").Unprotect
Worksheets("GCM").Unprotect
Worksheets("GCA").Unprotect
Worksheets("Ac").Unprotect
Worksheets("Av").Unprotect
Worksheets("BDT").Unprotect
Worksheets("BDM").Unprotect
Worksheets("MN").Unprotect
Worksheets("TBN").Unprotect
Worksheets("CPPE").Unprotect
Worksheets("CPAP").Unprotect
Worksheets("CPCN").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'------------------------
Worksheets("Reporte Operación").Visible = True
Worksheets("CByS").Visible = True
Worksheets("CV").Visible = True
Worksheets("CA").Visible = True
Worksheets("CM").Visible = True
Worksheets("GCByS").Visible = True
Worksheets("GCV").Visible = True
Worksheets("GCM").Visible = True
Worksheets("GCA").Visible = True
Worksheets("Ac").Visible = True
Worksheets("Av").Visible = True
Worksheets("BDT").Visible = True
Worksheets("BDM").Visible = True
Worksheets("MN").Visible = True
Worksheets("TBN").Visible = True
Worksheets("CPPE").Visible = True
Worksheets("CPAP").Visible = True
Worksheets("CPCN").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
End If
'-----------------------------------
If TextBox1 = "capturista" Then
ActiveWorkbook.Unprotect
Worksheets("Reporte Operación").Unprotect
Worksheets("CByS").Unprotect
Worksheets("CV").Unprotect
Worksheets("CA").Unprotect
Worksheets("CM").Unprotect
Worksheets("GCByS").Unprotect
Worksheets("GCV").Unprotect
Worksheets("GCM").Unprotect
Worksheets("GCA").Unprotect
Worksheets("Ac").Unprotect
Worksheets("Av").Unprotect
Worksheets("BDT").Unprotect
Worksheets("BDM").Unprotect
Worksheets("BDCH").Unprotect
Worksheets("MN").Unprotect
Worksheets("TBN").Unprotect
Worksheets("CPPE").Unprotect
Worksheets("CPAP").Unprotect
Worksheets("CPCN").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'------------------------
Worksheets("Reporte Operación").Visible = True
Worksheets("CByS").Visible = True
Worksheets("CV").Visible = True
Worksheets("CA").Visible = True
Worksheets("CM").Visible = True
Worksheets("GCByS").Visible = True
Worksheets("GCV").Visible = True
Worksheets("GCM").Visible = True
Worksheets("GCA").Visible = True
Worksheets("Ac").Visible = True
Worksheets("Av").Visible = True
Worksheets("BDT").Visible = True
Worksheets("BDM").Visible = True
Worksheets("BDCH").Visible = True
Worksheets("MN").Visible = True
Worksheets("TBN").Visible = True
Worksheets("CPPE").Visible = True
Worksheets("CPAP").Visible = True
Worksheets("CPCN").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
Unload UserForm1
Exit Sub
End If
'---------------------------------------------------------------------------------------------------------------------------------------
ActiveWorkbook.Unprotect
'----------------------------
Worksheets("Reporte Operación").Unprotect
Worksheets("CByS").Unprotect
Worksheets("CV").Unprotect
Worksheets("CA").Unprotect
Worksheets("CM").Unprotect
Worksheets("GCByS").Unprotect
Worksheets("GCV").Unprotect
Worksheets("GCM").Unprotect
Worksheets("GCA").Unprotect
Worksheets("Ac").Unprotect
Worksheets("Av").Unprotect
Worksheets("BDT").Unprotect
Worksheets("BDM").Unprotect
Worksheets("BDCH").Unprotect
Worksheets("MN").Unprotect
Worksheets("TBN").Unprotect
Worksheets("CPPE").Unprotect
Worksheets("CPAP").Unprotect
Worksheets("CPCN").Unprotect
Worksheets("NCByS").Unprotect
Worksheets("NCV").Unprotect
Worksheets("NCA").Unprotect
Worksheets("NCM").Unprotect
Worksheets("UC").Unprotect
Worksheets("ICTF").Unprotect
Worksheets("MBD").Unprotect
Worksheets("CC").Unprotect
'------------------------------
Worksheets("CByS").Visible = True
Worksheets("CV").Visible = True
Worksheets("CA").Visible = True
Worksheets("CM").Visible = True
Worksheets("GCByS").Visible = True
Worksheets("GCV").Visible = True
Worksheets("GCM").Visible = True
Worksheets("GCA").Visible = True
Worksheets("Ac").Visible = True
Worksheets("Av").Visible = True
Worksheets("BDT").Visible = True
Worksheets("BDM").Visible = True
Worksheets("BDCH").Visible = True
Worksheets("MN").Visible = True
Worksheets("TBN").Visible = True
Worksheets("CPPE").Visible = True
Worksheets("CPAP").Visible = True
Worksheets("CPCN").Visible = True
Worksheets("NCByS").Visible = True
Worksheets("NCV").Visible = True
Worksheets("NCA").Visible = True
Worksheets("NCM").Visible = True
Worksheets("UC").Visible = True
Worksheets("ICTF").Visible = True
Worksheets("MBD").Visible = True
Worksheets("CC").Visible = True
'-------------------------------------
Worksheets("Reporte Operación").Protect
Worksheets("CByS").Protect
Worksheets("CV").Protect
Worksheets("CA").Protect
Worksheets("CM").Protect
Worksheets("GCByS").Protect
Worksheets("GCV").Protect
Worksheets("GCM").Protect
Worksheets("GCA").Protect
Worksheets("Ac").Protect
Worksheets("Av").Protect
Worksheets("BDT").Protect
Worksheets("BDM").Protect
Worksheets("BDCH").Protect
Worksheets("MN").Protect
Worksheets("TBN").Protect
Worksheets("CPPE").Protect
Worksheets("CPAP").Protect
Worksheets("CPCN").Protect
Worksheets("NCByS").Protect
Worksheets("NCV").Protect
Worksheets("NCA").Protect
Worksheets("NCM").Protect
Worksheets("UC").Protect
Worksheets("ICTF").Protect
Worksheets("MBD").Protect
Worksheets("CC").Protect
'-------------------------------------
'-------------------------------------
ActiveWorkbook.Protect
Unload UserForm1
Exit Sub
'-----------------------------------------------------------------------------------------------------------------------------------------
Errorusuario:
MsgBox "Usuario y/o clave incorrecta", vbOKOnly, "ERROR"
TextBox1 = ""
TextBox2 = ""
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
'--------------------------------------------
Worksheets("Reporte Operación") = xlVeryHidden
Worksheets("CByS") = xlVeryHidden
Worksheets("CV") = xlVeryHidden
Worksheets("CA") = xlVeryHidden
Worksheets("CM") = xlVeryHidden
Worksheets("GCByS") = xlVeryHidden
Worksheets("GCV") = xlVeryHidden
Worksheets("GCM") = xlVeryHidden
Worksheets("GCA") = xlVeryHidden
Worksheets("Ac") = xlVeryHidden
Worksheets("Av") = xlVeryHidden
Worksheets("BDT") = xlVeryHidden
Worksheets("BDM") = xlVeryHidden
Worksheets("BDCH") = xlVeryHidden
Worksheets("MN") = xlVeryHidden
Worksheets("TBN") = xlVeryHidden
Worksheets("CPPE") = xlVeryHidden
Worksheets("CPAP") = xlVeryHidden
Worksheets("CPCN") = xlVeryHidden
Worksheets("NCByS") = xlVeryHidden
Worksheets("NCV") = xlVeryHidden
Worksheets("NCA") = xlVeryHidden
Worksheets("NCM") = xlVeryHidden
Worksheets("UC") = xlVeryHidden
Worksheets("ICTF") = xlVeryHidden
Worksheets("MBD") = xlVeryHidden
Worksheets("CC") = xlVeryHidden
'----------------------------------------
Worksheets("Reporte Operación").Protect
Worksheets("CByS").Protect
Worksheets("CV").Protect
Worksheets("CA").Protect
Worksheets("CM").Protect
Worksheets("GCByS").Protect
Worksheets("GCV").Protect
Worksheets("GCM").Protect
Worksheets("GCA").Protect
Worksheets("Ac").Protect
Worksheets("Av").Protect
Worksheets("BDT").Protect
Worksheets("BDM").Protect
Worksheets("BDCH").Protect
Worksheets("MN").Protect
Worksheets("TBN").Protect
Worksheets("CPPE").Protect
Worksheets("CPAP").Protect
Worksheets("CPCN").Protect
Worksheets("NCByS").Protect
Worksheets("NCV").Protect
Worksheets("NCA").Protect
Worksheets("NCM").Protect
Worksheets("UC").Protect
Worksheets("ICTF").Protect
Worksheets("MBD").Protect
Worksheets("CC").Protect
'------------------------------------------
ActiveWorkbook.Protect
End Sub

este es el código del furmulario

el código del woorkbook es el siguiente

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
'---------------------------------------------------------------------------------------
Worksheets("Reporte Operación") = xlVeryHidden
Worksheets("CByS") = xlVeryHidden
Worksheets("CV") = xlVeryHidden
Worksheets("CA") = xlVeryHidden
Worksheets("CM") = xlVeryHidden
Worksheets("GCByS") = xlVeryHidden
Worksheets("GCV") = xlVeryHidden
Worksheets("GCM") = xlVeryHidden
Worksheets("GCA") = xlVeryHidden
Worksheets("Ac") = xlVeryHidden
Worksheets("Av") = xlVeryHidden
Worksheets("BDT") = xlVeryHidden
Worksheets("BDM") = xlVeryHidden
Worksheets("BDCH") = xlVeryHidden
Worksheets("MN") = xlVeryHidden
Worksheets("TBN") = xlVeryHidden
Worksheets("CPPE") = xlVeryHidden
Worksheets("CPAP") = xlVeryHidden
Worksheets("CPCN") = xlVeryHidden
Worksheets("NCByS") = xlVeryHidden
Worksheets("NCV") = xlVeryHidden
Worksheets("NCA") = xlVeryHidden
Worksheets("NCM") = xlVeryHidden
Worksheets("UC") = xlVeryHidden
Worksheets("ICTF") = xlVeryHidden
Worksheets("MBD") = xlVeryHidden
Worksheets("CC") = xlVeryHidden
'------------------------------
Worksheets("Reporte Operación").Protect
Worksheets("CByS").Protect
Worksheets("CV").Protect
Worksheets("CA").Protect
Worksheets("CM").Protect
Worksheets("GCByS").Protect
Worksheets("GCV").Protect
Worksheets("GCM").Protect
Worksheets("GCA").Protect
Worksheets("Ac").Protect
Worksheets("Av").Protect
Worksheets("BDT").Protect
Worksheets("BDM").Protect
Worksheets("BDCH").Protect
Worksheets("MN").Protect
Worksheets("TBN").Protect
Worksheets("CPPE").Protect
Worksheets("CPAP").Protect
Worksheets("CPCN").Protect
Worksheets("NCByS").Protect
Worksheets("NCV").Protect
Worksheets("NCA").Protect
Worksheets("NCM").Protect
Worksheets("UC").Protect
Worksheets("ICTF").Protect
Worksheets("MBD").Protect
Worksheets("CC").Protect
'---------------------------------------------------------------------------------------
ActiveWorkbook.Protect
End Sub
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar en celdas de una hoja protegida

Tengo una macro que copia a otra hoja donde llevo un registro, cuando bloqueo con clave la hoja usando proteger hoja de exel la macro no funciona es decir no me copia los rangos. ¿Qué puedo hacer? Para que el usuario de la hoja 1 no pueda modificar...
1 respuesta

Actualizar una tabla dinámica con macro en una hoja protegida

Tengo el siguiente código para actualizar una tabla dinámica que esta en una hoja protegida: Sub ACTUALIZARANTICIPOS() Worksheets( ANTICIPOS ).Activate Columns( G:J ).Select Selection.EntireColumn.Hidden = False Range( G4 ).Select...
1 respuesta

El código macro no obedece su función

De nuevo por tu aporte… en un principio esta macro que te anexo funcionó bien pero ahora que hago pruebas para terminar no me pone correctamente los datos capturados: el número de factura y su importe: al clikear el botón inserta la fecha actual, lo...
1 respuesta

Función screenupdating

Me estoy iniciando en esto de las macros y mi pregunta es ¿En qué parte de mi macro puedo poner la función screenupdating?
1 respuesta

Problemas para actualizar todas las tablas dinámicas en excel con hojas protegidas

Tengo un botón con el cual actualizo todas las tablas dinámicas de mi libro, el botón estaba funcionando bien, pero luego se movió la base de datos y hubo que cambiar las conexiones de consulta, ahora cuando presiono el botón me dice que hay tablas...
1 respuesta

Check Box de contraseña y usuario en Visual Basic

Quisiera Crear un Check Box de Username and Password en Visual Basic.. Para Proteger unas Hojas de Calculo en Excel.. Es Decir que al Introducir EL Nombre de usuario y la Contraseña Con un Botón de comando Verifique los Datos y descubra las Hojas...
2 respuestas

Bloquear hojas de excel. VBA

Es posible bloquear las hojas de excel mediante un código en Visual Basic para que no se puedan digitar datos en estas, directamente... Pero si poder ingresar la información mediante UserForm, ¿Y qué al darle en un botón llamado "GUARDAR" me copie...
1 respuesta

Ocultar libro de excel vba

Espero me puedan seguir colaborando. Su ayuda es muy valiosa para mi. Tengo un libro en excel, y al abrirlo me trae un UserForm que es el menu de todo mi libro. Lo que deseo es poder ocultar todas las hojas de excel o bueno el libro completo si es...
1 respuesta

Ocultar varios checkbox con bucles

A toda la comunidad, Tengo el siguiente problema, en el siguiente codigo podran observar los que pretendo hacer Bueno se trata de ocultar algunas filas de excel pero dentro de estas filas tengo varios checkbox, que tambien quiero ocultar, logro...
1 respuesta

Pegar del UserForm dos veces un número en la misma hoja seleccionada

En días anteriores me hiciste el favor de apoyarme con una macro; de nuevo y del mismo programita solicito tu apoyo para completar esta última, creo que con esta se cierra el ciclo de este programa. De nueva cuenta Agradezco tus atenciones. Te...
1 respuesta