Dante Amor

Ya entendí esta parte, tienes una lista con n registros, pero: 1. ¿Cuántas tablas quieres? ¿El número de tablas es variable? 2. ¿Cuántos registros quieres por tabla? ¿El número de registros siempre es 10? Me puedes comentar en ese orden. Saludos....

¿Quieres qué te arroje el valor de la segunda fila o de la segunda columna? ¿Puedes poner una imagen de cómo tienes los datos y poner un ejemplo del valor que esperas en el textbox2?

Con esta opción se cargan todas las hojas en un combobox control-activex. OPCIÓN 1. Primero, debes tener una hoja llamada "principal" para poner el combobox. Siempre estará visible la hoja "principal" y la hoja que selecciones. Segundo, en la hoja...

No utilices el control source Cuando vayas a escribir en la celda pon el case: Private Sub CommandButton1_Click() Select Case ComboBox1 Case "Plan A" Range("C14") = TextBox1 Case "Plan B" Range("C16") = TextBox1 End Select End Sub Saludos.Dante Amor...

Estoy suponiendo que tienes tus planes en un combobox, entonces cada vez que cambies el valor en el combo, se cambia el texto de la etiqueta: Private Sub ComboBox1_Change() 'Por.Dante Amor Select Case ComboBox1 Case "Plan A" Label1.Caption = "Indicar...

Pon lo siguiente en tu formulario, en el botón guardar. Private Sub CommandButton1_Click() 'Por.Dante Amor Set celda = Range("C5") celda.Value = Val(TextBox1) If Val(TextBox1) <= 12 Then celda.Interior.ColorIndex = 4 ElseIf Val(TextBox1) > 12 Then...

Te anexo la macro para proteger, camba "abc" por la clave con la que quieras proteger las hojas. Sub ProtegerTodasLasHojas() 'Por.Dante Amor For Each h In Sheets h.Protect "abc", _ DrawingObjects:=False, Contents:=True, Scenarios:=False, _...

Está bien, reviso el archivo y te envío una respuesta.

Envíame tu libro con las hojas: resumen y las últimas 5 hojas, me muestras en resumen con colores lo que quieres poner de cada una de las hojas. En las hojas, me muestras con el color correspondiente lo que pasaste a la hoja resumen.

Esta sería una opción Hoja1.Range("E14").Value = Hoja1.Range("E14").Value + 5 Application.Wait Now + TimeValue("00:00:05") Hoja1.Range("D4").Value = Hoja1.Range("D4").Value + 10 Esta es otra opción Declare Sub Sleep Lib "kernel32" (ByVal...