Mensaje de confirmación de un proceso

Hola Carlos,

Espero no te importe que no sea Héctor Miguel.

Prueba una instrucción como la que sigue:

If MsgBox("Deseas confirmar el cambio?", vbYesNo, "Confirmación") = vbNo _
Then Exit Sub

Debes colocarla justo detrás de

If Consultas = 0 Then Exit Sub


Un saludo,
Juan


"CARLOS CARNERO" escribió
Muy buenas a todos los foristas y en especial a Héctor Miguel a quien
me dirijo:

Te agradecería en base a la sintaxis del ejemplo a mi consulta
anterior, que antes de realizar el proceso de copiar y pegar
determinadas celdas, me apareciera un mensaje, en la que confirme ó
deniegue el proceso de la siguiente sintaxis:

Sub Botón12_Haga_clic_en()
Dim Consultas As Byte
Consultas = Application.CountA(Range("c17:c31"))
If Consultas = 0 Then Exit Sub
With Worksheets("KARDEX").Range("a65536").End(xlUp).Offset(1, 5)
.Resize(Consultas).Value = Range("c17").Resize(Consultas).Value
.Offset(, -4).Resize(Consultas, 4).Value = Array( _
Range("D1").Value, Range("J8").Value, Range("F1").Value,
Range("G1").Value)
With .Offset(, -5).Resize(Consultas)
.Value = Application.Max(.Parent.Range("a:a")) + 1
End With
End With
Range("c17").Resize(Consultas).ClearContents
Range("D1,F1,G1,I1").ClearContents
End Sub


Saludos,

Carlos Carnero Gálvez

Por supuesto que no, sólo hacía referencia a un destacado como él;
pero todo lo contrario Juan M., te agradezco tu deferencia en atender
mi inquietud. Muy amable de tu parte, lo voy a probar.

Saludos,

Carlos

Prueba una instrucción como la que sigue:

If MsgBox("Deseas confirmar el cambio?", vbYesNo, "Confirmación") = vbNo _
Then Exit Sub

Debes colocarla justo detrás de

  If Consultas = 0 Then Exit Sub

Hola Juan M.: funciona el próposito, lo unico que ahora cuando opero
los combobox me sale a su vez el siguiente mensaje: "Recursos
Insuficientes para presentar todo". ¿Qué es lo que puede estar
pasando? Tengo Excel 2007, pero lo guardo con la version 97-2003
(*.xls)

Saludos,

Carlos

Hola Carlos,

De esa parte, ni idea, pero el mensaje es claro, tu libro esta lleno de
cosas y se esta comiendo los recursos de tu sistema. Tendrás demasiados
tipos de formatos, o gráficos o elementos incrustados o tus macros han
acaparado recursos que luego no se han liberado o algua combinación de
todo eso.

A ver si alguien te puede orientar sobre esto.

Un saludo,
Juan

"CARLOS CARNERO" escribió

Hola Juan M.: funciona el próposito, lo unico que ahora cuando opero
los combobox me sale a su vez el siguiente mensaje: "Recursos
Insuficientes para presentar todo". ¿Qué es lo que puede estar
pasando? Tengo Excel 2007, pero lo guardo con la version 97-2003
(*.xls)

Saludos,

Carlos

Hola Juan M. una vez más reiterando mi agradecimiento por valiosa
ayuda. Efectivamente es cierto lo que afirmas y en eso estoy depurando
algunas cositas, que creo que me estan causando estos conflictos y
estoy batallando en ello. Pero en cuanto a tu aporte es fenomenal.

Gracias,

Carlos