antares18

En las columnas donde vayan los 301... 305. No se tu nivel de excel, le das al botón derecho, le das a formato de celdas y pones Texto. Te saldrá una pestaña roja en la punta, pero no le hagas caso. Si no quieres que se vea, entonces an paretar la...

Borra la anterior respuesta esta en la correcta Private Sub TextBox1_Change() letra = Right(TextBox1.Text, 1) If (letra <> "") Then If Not (Asc(letra) >= 44 And Asc(letra) <= 57) Then 'He cambiado el 48 por el 44 para coger el - de los negativos el...

No se si lo he entendido bien, ¿quieres hacer una función para saber que celda es por ejemplo la AA te devuelve un 27 y si haces lo mismo con el 27 te ha de salir la AA? Si es así hay una forma más fácil que hacer todos los select Public Function...

Private Sub CommandButton3_Click() If (Asc(Left(Range("B59").Value, 1)) > 60) Then 'Los códigos ascii de los números son menores a 60, por eso el 60 Dim rc As String rc = ActiveCell.Address Dim fila As String fila =...

seno(grado_centesimal*(90/100))

Puedes poner un ejemplo, tengo una idea pero no estoy seguro

La acumulada sería algo así Dato1 Dato 2 Prob Prob Acum 1 5 .1 0.1 2 10 .2 0.3 (0.1 de arriba + 0.2 de al lado) 3 20 .4 0.7 (0.3 de arriba + 0.4 de al lado) 4 10 .2 0.9 5 5 .1 1.0

Private Sub CommandButton1_Click() Dim i As Integer i = 1 While (Range("E" + CStr(i)).Value <> "") Range("G" + CStr(i)).Value = Range("E" + CStr(i)).Value + Range("F" + CStr(i)).Value i = i + 1 Wend End Sub

Te haces una variable Dim i as integer i=57 entonces para el rango pones Range("B"+cstr(i)+":D"+cstr(i)).Select Y si quieres haces otra variable para el 53 que también lo usas mucho

Están juntos el 1 y el 2 Private Sub TextBox1_Change() Dim a As Integer Dim b As Integer a = CInt(TextBox1.Text) b = CInt(TextBox2.Text) If (a < b) Then TextBox3.Text = "0" MsgBox ("No se puede hacer la operacion") TextBox1.Text = "0" Else...