Tengo el siguiente codigo... resulta que antes de ponerme a experimentar con la hoja protegida... este codigo funcionaba perfectamente al momento de ingresar una serie de numeros (codigos de barra) sumandole +1 automaticamente a la cantidad. Ahora excel me arroja un error justo al momento de detectar la celda a sumar. (que pertenece a un rango donde si esta permitido modificar los valore) ¿Como lo podré hacer? Saludos.. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim Lvalue As Boolean Dim rng As Range Sheets("Precios").Unprotect 'Protege la Hoja1. Application.ScreenUpdating = False If KeyCode = vbKeyReturn Then Selection.AutoFilter Lvalue = IsNumeric(TextBox1) If TextBox1 <> "" Then If Lvalue = False Then Selection.AutoFilter Criteria1 = "=*" & TextBox1 & "*" ActiveSheet.Range("A1:G5000").AutoFilter Field:=2, Criteria1:="=*" & TextBox1 & "*" Else ActiveSheet.Range("A1:G5000").AutoFilter Field:=6, Criteria1:="=*" & TextBox1 & "*" Set rng = rng.Cells(Range("A2").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 1) Cells(Range("A2").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 1).Value = Cells(Range("A2").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 1).Value + 1 On Error Resume Next Selection.AutoFilter ActiveSheet.Range("$A$1:$G$5000").AutoFilter Field:=1, Criteria1:="<>" On Error GoTo 0 If Not rng Is Nothing Then TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1) Cells(Range("A2").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 1).Value = Cells(Range("A2").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 1).Value + 1 Else TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1) FILTRARCANTIDAD Exit Sub End If End If TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1) End If ActiveWindow.SmallScroll Down:=-63 Else If KeyCode = vbKeyDown Then Range("A1").Select SendKeys "{down}" End If End If Sheets("Precios").Protect 'Protege la Hoja1. End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Macro no suma cuando la hoja esta protegida

Autor del tema juanantoniomillar
Fecha de inicio 27 Feb 2014

juanantoniomillar

New member

27 Feb 2014

Tengo el siguiente codigo... resulta que antes de ponerme a experimentar con la hoja protegida... este codigo funcionaba perfectamente al momento de ingresar una serie de numeros (codigos de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

macro para eliminar columnas duplicadas si la suma es cero

Respuestas: 12

16 Abr 2025

Gerson Pineda

Pregunta

Macro Encontrar y copiar una suma de una cantidad específica

Respuestas: 7

2 Abr 2025

Héctor Miguel

Resuelto

Macro en Excel para acumular la suma en una misma celda

Respuestas: 4

17 Dic 2023

lubo888

Resuelto

Ayuda con macro suma y resta en celda

Respuestas: 7

9 Nov 2023

mago18

Pregunta

Macro para corregir suma en un archivo nuevo de pdf y excel

Respuestas: 1

21 May 2023

Niwradpg

Pregunta

macro suma cantidad x condicion

Respuestas: 3

16 May 2022

mago18

Pregunta

Macro vba excel para suma con llevadas

Respuestas: 8

18 Ago 2021

Zoé

Pregunta

Suma con decimales en Macro

Respuestas: 2

10 Dic 2020

Napacaer

Pregunta

Macro para suma

Respuestas: 1

17 Oct 2020

Macro Antonio

Pregunta

Error al hacer suma con macro

Respuestas: 4

13 Sep 2020

ANTONIO JOSE1

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba