James Bond

Prueba con esta macro Option Base 1 Sub agregar_hojas() contar = Worksheets.Count ReDim matriz(contar) x = 1 For Each hoja In Worksheets nombre = hoja.Name matriz(x) = nombre x = x + 1 Next hoja Sheets(nombre).Select Set datos =...

Más o menos algo así aqui esta la formula =+ELEGIR(SI(Y(B5>=0.2,B5<=0.25),1,SI(Y(B5>0.25,B5<=0.3),2,SI(B5>0.3,3,0))),0.25,0.5,0.75)

Prueba con esta macro Private Sub CommandButton1_Click() Set datos = Range("a4").CurrentRegion With datos r = .Rows.Count Set campos = .Rows(r + 1).Resize(1, 9) With campos .Cells(1, 1).Value = TextBox1.Value .Cells(1, 2).Value = TextBox6.Value...

Prueba con esta macro, este es el resultad, para mayor facilidad me permite cambiar el textbox por un combobox y esta es la macro Private Sub ComboBox1_Change() Set DATOS = Range("DATOS") INDICE = ComboBox1.ListIndex + 1 With DATOS Label3 =...

Lo que quieres no se puede hacer en las celdas de Excel porque necesita acabar para contar los caracteres una forma de lograrlo es por medio de un textbox como se ve en la imagen al llegar a 11 captura la informacion en la celda de la columna que...

Para que no abras a cada rato el modulo VBA y correr la macro puedes ponerle un boton como en la imagen, solo lo oprimes y listo, copia a la hoja copia y transforma y la codifica en la columna G Este es el resultado en la hoja copia y transforma y...

Este es un ejemplo simple de un contador, lo que no indicas es si una vez diaria, semanal, etc. Sub veces_ejecutada() Range("a1") = Range("a1") + 1 MsgBox (Range("a1") & " veces ejecutada") End Sub

Lo que pides me recuerda a una tabla de cifrado Vigenere, te paso la macro, en la imagen ves el resultado, la hice para que haga el reeemplazo sobre la columna B, la columna A son los números originales de la columna B, son solo de ejemplo. esta es...

Prueba con esta fórmula =+TEXTO(F4,"aaaa/mm/dd")

algo asi ? Este es el código Private Sub UserForm_Initialize() matriz = Range("b2").CurrentRegion ListBox1.List = matriz n = ListBox1.ListCount - 1 For i = 0 To n valor = Format(ListBox1.List(i) * 0.15, "0.00") ListBox2.AddItem valor Next i End Sub