antares18

Después de Selection.End(xlUp).Select pones Application.Run "borrar_ColA"

Siento la tardanza, es que no me salía bien Sub grabar_hoja5() Dim i As Integer Dim nueva_fila As Integer nueva_fila = 0 For i = 15 To 1676 If (Range("A" + CStr(i)).Value > 71) Then nueva_fila = nueva_fila + 1 Range(CStr(i) + ":" + CStr(i)).Select...

El optionbutton es el que está mal sería Range("F" + Range("C1").Text).Value = OptionButton1.value que puede ser true o false. Todo lo demás está bien

Entre Juarez y Materia quedaría así "Juarez"+vbCRLF+"Materia" y ya te sale

Sub borrar_colA() ' ' borrar_colA Macro ' Dim i As Integer i = 1 While (Range("A" + CStr(i)).Value <> "") Range("A" + CStr(i)).Select If Not (WorksheetFunction.IsNumber(Range("A" + CStr(i)).Value)) Then Range("A" + CStr(i)).Delete End If i = i + 1...

Ya te la he respondido

También lo que puedes hacer es poner las fechas como texto en vez de como fecha, así no tendrías esos cambios

Todas las fórmulas te las he puesto para que se vean por cada fila y no en listado. Si quieres que los datos se vean en una hoja diferente o en un listado me lo dices. Aunque la primera fórmula no sabrás de donde sale cada cosa La fórmula de...

Para lo de poner 001,002 etc. Tienes esta función Public Function ceros(Numero) As String Dim i As Integer For i = 1 To (3 - Len(CStr(Numero))) ->El 3 es el que hace que se vea como 001, si fuera un 4 se verían como 0001 ceros = ceros + "0" Next i...

vale, [email protected]