snaki Fco

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...

Si deseas acertlo hasta el final de la columna, Cambia el While por un for, Ej: Dim NumeroPoliza As Variant Range("B5").Select NumeroPoliza = ActiveCell.Value for i = 0 to 65536 ' o 1048576 en Excel 2007 If NumeroPoliza = ActiveCell.Value And...

Te envío lo que necesitas, solo debes cambiar el nombre de la hoja y el rango de la celda en donde se encuentra el consecutivo que mencionas Sub hoja_autoincremental() ' Agregamos la nueva Hoja Sheets.Add ' Tomamos el Nombre actual de la Hoja...

Pon lo siguiente en la vb de la hoja en donde deseas utilizar la macro Private Sub Worksheet_Change(ByVal Target As Range) Dim celda If Target.Column = 1 Then celda = Target.Address If celda >= "$A$2" Or celda <= "$A$1000" Then Range("$A$1001:" &...