Dante Amor

Te comento que hace tu macro, en estas líneas, las numeré para explicar mejor. 1. Sheets("Base de Datos").Select 2. Range("w65000").End(xlUp).Select 3. Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell. Offset(1, 0)) 'Pone el ID nuevo En...

Pude ser con las siguientes instrucciones. '***Macro*** Sub cuentahojas() 'Por.daM For i = 1 To Sheets.Count Select Case Sheets(i).Name Case "Hoja1" 'La hoja 1 está abierta 'Activa textbox MsgBox (Sheets(i).Name) Case "Hoja2" 'La Hoja2 está abierta...

Utiliza la siguiente macro. '***Macro*** 'Pone los valores correspondientes en combobox2 'según el valor seleccionado en combobox1 Private Sub ComboBox1_Change() 'Por.Dam Me.ComboBox2.Clear catego = ComboBox1.Value Set hoja = Worksheets("Hoja1")...

Existen varias formas, te describo una de ellas: Tienes los datos en A 1 Avanzado 2 Medio 3 Básico Con la siguiente macro cargarías los valores en el combobox Private Sub UserForm_Activate() ' Por.daM strRango = "A1:A" &...

Te mando una macro, la preparé para que inicien las cuentas a partir de la línea 2, considerando la línea 1 como títulos. Tu hoja de cuentas se debe llamar "Hoja1" Instrucciones para crear una macro 1. Abre tu hoja de excel 2. Para abrir Vba-macros y...

Ayudaría más si envías la macro completa. Jiji Reemplaza en tu macro el siguiente código: If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) = Target.Value - Target.Offset(0, -1).Value End If Por este código: ‘El...

Actualmente valida la fecha contra la pc: "If ActiveCell.Value = Date Then", o cuál es el detalle que quieres cambiar?