Luis Mondelo

Dime tu mail y te mando un proyecto que he terminado sobre votación por click

Pon tu códig de esta manera: sub hoja_nueva() nombre = inputbox("que nombre quieres???") if nombre = "" then exit sub sheets.add after:=sheets(sheets.count) activesheet.name = nombre sheets(1).select end sub Recuerda finalizar y puntuar

Dentro de validación elige la opción personalizada para escribir una fórmula y escribe esta como ejemplo: =o(a1=1;a1="x") Con esta fórmula en la celda A1 solo se admiten un 1 o una "X" Recuerda finalizar y puntuar

Con esta macro copiamos un gráfico de nuestra hoja en un documento de word (Recuerda finalizar y puntuar por favor) Sub pegarword() ActiveSheet.ChartObjects("1 Gráfico").Copy Set appWord = CreateObject("word.application") appWord.Visible = True...

A ver si te sirve esta macro. Primera sombrea con el ratón todo el rango de celdas que quieres analizar y después de tenerlo marcado ejecuta esta macro y ya me contarás. (Recuerda finalizar y puntuar por favor) Sub quitarsigno() For Each celda In...

Aquí la tienes. Recuerda finalizar y puntuar por favor, Sub borrar_error() For Each celda In range("a1:z1000") If IsError(celda) Then celda.EntireRow.Delete Next End Sub

Para llamar a otro archivo en la función INDIRECTO tienes que escribirla así: =INDIRECTO("'[fechas.xlsx]hoja1'!"&A3) En este ejemplo estoy llamando al archivo fechas.xlsx en la pestaña hoja1 y el rango A3

Aquí la tienes. Esta macro se autoejecuta cuando abras tu archivo. Ojo lo he configurad para que trabaje en la pestaña 1 Recuerda finalizar y puntuar por favor. sub auto_open() Sheets(1).select for each celda in range("a1:b1") if celda.value =0 then...

Pon esta macro en el evento exit de cada textbox de tu formulario. De esta manera le obligarás al usuario a cambiar el punto por la coma. (Recuerda finalizar y puntuar mi labor, un saludo) Private Sub TextBox2_Exit(ByVal Cancel As...

Pon esta macro dentro del objeto hoja en la que tengas los nombres de los alumnos, insisto no va en un módulo sino en la hoja afectada. La he dejado preparada para que cuando selecciones una celda de la columna B te ponga una P en la celda. Si...