dayvitt

Prueba poniendo esto: cant_fila = Range("A1").End(xlDown).Row If cant_fila = 65536 Then If Cells(2, "A") = "" Then cant_fila = 1 End If If Cells(1, "A") = "" Then cant_fila = 0 End If End If

Prueba a ponerle un valor inicial a fin. Despues de p=2, pon fin=1

Cierra esta pregunta y seguimos en la otra

Bien, El siguiente código habilita y deshabilita los menús usando funciones API's: Option Explicit Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1...

Bien, Dime las condiciones que se deben dar y lo que debe hacer en cada caso

Para verificar los Ifs, es mejor tabular. Esto es lo que tienes tu: If TextBox2 <> TextBox1 Then MsgBox "Las contraseñas no coinciden" TextBox1 = Empty TextBox2 = Empty TextBox1.SetFocus Else If TextBox1 = Empty And TextBox2 = Empty Then MsgBox...

Esta macro se autoejecuta al abrir y busca el código en la celda A1, si no coincide con lo que hay en la celda, se cierra. Modifícalo a tu gusto. Sub auto_open() Dim a As String a = Application.InputBox("Pon la contraseña") If a <> Cells(1, "A") Then...

Sustituye CELDA por el nombre de la celda correcto = SI ( CELDA >=0;A2*A5;((-1*A2)*A5))

Dime el rango de las celdas

¿El ingreso del mes seria por texto o por numero?