Hola, soy nuevo en el foro y necesitaba un poco de ayuda. El programa no me da error pero no hace lo que se espera, justamente en esta parte del código: If Range("N1").Value <> 1 Then La casilla N1 tiene el valor 100% que resulta de una fórmula (=SUMA(M4:M59)). En el rango M4:M59 son celdas con valores numéricos en formato porcentaje. Al tener 100% en la casilla N1 el programa no debería de ejecutar el formato condicional If pero lo ejecuta. A ver si vosotros sois capaces de ver el fallo. Gracias y un saludo. Os dejo el programa completo. Sub Aceptar_2BACH_Trabajo() Dim Dato As Range Dim Nombre_hoja As String Dim HojaInicial As String Dim i, j As Integer HojaInicial = ActiveSheet.Name NuevaHoja = ActiveSheet.Next.Name 'MENSAJES DE ERROR +++++++++++++++++++++++++++++++ If Not Chequear_hoja(Range("J1").Value) = True Then MsgBox "Primero debe crear la hoja", vbCritical Exit Sub End If If Range("B1") = Empty Then MsgBox "Seleccione un alumno", vbCritical Exit Sub End If If Range("N1").Value <> 1 Then MsgBox "La suma de porcentajes no puede ser" & Chr(13) & _ "diferente de 100% en la celda N1." & Chr(13) & _ "Revise los porcentajes de la columna M", vbCritical Exit Sub End If i = 4 Do While Cells(i, "B") <> Empty If Cells(i, "M") = Empty Then MsgBox "La celda: " & Cells(i, "M").Address + " no tiene Peso%", vbCritical Exit Sub End If If Cells(i + 6, "N") = Empty Then MsgBox "El criterio " & Cells(i, "B").Value + " no ha sido seleccionado", vbCritical Exit Sub End If i = i + 7 Loop 'INTRODUCCIÓN DE DATOS +++++++++++++++++++++++++++++++ 'Introducción de la nota++++++++++++++++++++++++++++++ Sheets(HojaInicial).Select Range("L1").Copy Sheets(NuevaHoja).Select Range("B1").Select Do While ActiveCell <> Empty ActiveCell.Offset(0, 1).Select Loop ActiveCell.Offset(5, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Introducción de datos en la hoja Base_Datos+++++++++++ 'Sheets("Base_Datos").Range("A1").End(xlToRight).Offset(0, 1).Value = NuevaHoja 'Es una función de búsqueda: 'Set Dato = Sheets("Base_Datos").Range("1:1").Find(Sheets(HojaInicial).Cells("L1").Value, LookIn:=xlValues, LookAt:=xlWhole) 'Dato.Select 'Do While ActiveCell <> Empty 'ActiveCell.End(xlToRight).Offset(0,1).Select 'No necesita del Do While 'ActiveCell.Offset(1, 0).Select 'Loop 'Resto de datos +++++++++++++++++++++++++++++++ i = 10 Sheets(HojaInicial).Activate 'activo la hoja donde están mis datos Do While Cells(i, "N") <> Empty 'copio la fila entera Cells(i, "N").Copy 'selecciono la hoja donde quiero pegar y después la celda Sheets(NuevaHoja).Activate Set Dato = Range("A:A").Find(Sheets(HojaInicial).Cells(i - 6, "B").Value, LookIn:=xlValues, LookAt:=xlWhole) Dato.Select Do While ActiveCell <> Empty 'ActiveCell.End(xlToRight).Offset(0,1).Select 'No necesita del Do While ActiveCell.Offset(0, 1).Select Loop 'ActiveCell.Offset(6, 0).Select 'Do While ActiveCell <> Empty 'ActiveCell.Offset(8, 0).Select 'Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False i = i + 7 Sheets(HojaInicial).Activate Loop Sheets(HojaInicial).Select Range("B1,F1,H1,J1,D1").Copy Sheets(NuevaHoja).Select Range("B1").Select Do While ActiveCell <> Empty ActiveCell.Offset(0, 1).Select Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True ActiveWorkbook.Worksheets(NuevaHoja).Sort.SortFields.Clear ActiveWorkbook.Worksheets(NuevaHoja).Sort.SortFields.Add Key:=Range("B4:" & Range("B4").End(xlToLeft).Address), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'Ordena la primera fila ActiveWorkbook.Worksheets(NuevaHoja).Sort.SortFields.Add Key:=Range("B1:" & Range("B1").End(xlToLeft).Address), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'Ordena la __ fila ActiveWorkbook.Worksheets(NuevaHoja).Sort.SortFields.Add Key:=Range("B3:" & Range("B3").End(xlToLeft).Address), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'Ordena la __ fila With ActiveWorkbook.Worksheets(NuevaHoja).Sort 'With permite asociar varias propiedades (6) a un solo objeto (a Hoja) .SetRange Range("B1:ZZ500") .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With Sheets(HojaInicial).Select Application.CutCopyMode = False Range("B1").ClearContents Range("B1").Select ActiveSheet.Unprotect "Patricia" 'Desprotege la hoja para que la macro actue Range("E:L").Interior.ColorIndex = 0 Range("N4", Cells(i, "N")).ClearContents ActiveSheet.Protect "Patricia" 'Volvemos a bloquear la celda 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.

Programa no hace lo que se espera

Autor del tema Liquete
Fecha de inicio 6 Sep 2016

Liquete

New member

6 Sep 2016

Hola, soy nuevo en el foro y necesitaba un poco de ayuda.
El programa no me da error pero no hace lo que se espera, justamente en esta parte del código: If Range("N1").Value <> 1 Then
La...

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

Pregunta

Programa VBA con Listbox

Respuestas: 4

2 Nov 2024

tierra_pampa

Pregunta

Programa VBA con Listbox

Respuestas: 6

21 Oct 2024

Macro Antonio

Pregunta

Mi macro se detiene cuando se abre otro programa

Respuestas: 1

27 Feb 2023

Leopoldo Blancas

Resuelto

programa VBA para control vacaciones

Respuestas: 28

30 Sep 2025

Julio Vargas Hurtado

Pregunta

Pegar datos copiados de un programa externo

Respuestas: 4

6 Abr 2022

josemalaga73

Pregunta

finalizar programa

Respuestas: 2

6 May 2021

ppinedo

Pregunta

Abrir programa desde vba

Respuestas: 2

23 Nov 2020

JoseTT

Pregunta

Ejecutar un programa externo sin usar Shell

Respuestas: 3

26 Ago 2020

Xeronymo2

Pregunta

Enviar pulsacion de tecla shitf + insert a Programa Putty

Respuestas: 0

15 Jul 2020

canallitaxx

Pregunta

Macro para utilizar un programa

Respuestas: 2

22 Ene 2020

ramirolatigano

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