snaki Fco

Si lo deseas hacer mediante una pregunta con msgbox al momento de dar click al botón, debería de ser así. Private Sub CommandButton1_Click() guarda = MsgBox("Esta seguro que desea guardar", vbExclamation + vbYesNo, "Confirme") If guarda = 6 Then...

Podrías validar si el campo que posicionado esta con valor o no con un if activecell <> empty ' si es distinto a vacio ... .. else ... .. end if

Prueba con un buscarV Ej: Buscarv(el producto, donde_lo_buscas, el nro de la columna "fecha", falso)

Si lo que quieres es darle un rango Lo que puedes hacer es en las columnas asignar lo siguiente A B C Enero 0.7 0.7 Febrero 0.7 0.5

Agrega lo siguiente Cells.FindNext(After:=ActiveCell).Activate En tu botón

Yo te puedo ayudar, En el evento Change, de tu ComboBox, Debes agregar Ej: Private Sub ComboBox_paises_Change() If ComboBox_paises.Value = "Chile" Then ComboBox_regiones.Clear ComboBox_regiones.AddItem "Arica" ComboBox_regiones.AddItem "Antofagasta"...

Según lo que me dices, seria algo Sub copia_hoja() 'Tomo el nombre del libro actual Libro = ActiveWorkbook.Name 'Agrego un nuevo libro Workbooks.Add 'Guardamos el nombre del Nuevo LibroNuevo_Libro = ActiveWorkbook.Name ' Volvimos al 1er Libro...

Encandado de ayudarte, pero necesito más información (como la que deseas guardar, y bajo que rango más a leer información)

Las macros pueden ser ejecutadas solamente por excel (según mis conocimientos), pero si puedes a través de esa misma macro, ejecutar aplicaciones diferentes, como por ejemplo a tu necesidad que es guardar datos, puedes guardarlos en una bd access.

lo que preguntas en sensillo de hacer y es asi ; Suponiendo que la fecha de vencimiento esta en la Celda B1 Sub elimina() Range("B1").Select Do While Not IsEmpty(ActiveCell) If ActiveCell = Date Then ActiveCell.EntireRow.Delete shift = xlUp Else...