jerryeagle

For each c in Range("A1", Range("A" & Rows.count).end(xlUp)) if Not c.Value <> "" Then c.EntireRow.Delete Next

Lo que quieres hacer solo es posible con macros, ¿sabes algo de ello?

Crea una función: Public Function prueba(ByVal v1 As Integer, ByValv2 As Integer, ByVal res As Integer, _ ByVal dil1 As Integer, ByVal dil2 As Integer) If (v1 >= 30 And v1 <= 80) Then If (v2 >= 30 And v2 <= 80) Then res = 1 Else res = dil1 End If...

En el evento Change de esa hoja pon esto If Target.Column = 1 Then Dim Codigo as string Codigo = Target.Value Dim V as Range Set V = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row - 1).Find(Codigo) If Not V is Nothing then MsgBox("El Codigo " &...

Solo declarala al principio de un Modulo como Public Ejm Public i as String Sub B1 ------- End Sub

Solo con Macros VBA, y puedes poner las Condiciones que sean necesarias. Select Case Valor Case = Condicion1 Case = Condicion2 Case = Condicion3 Case = Condicion4 Case ... End Select

Primero verifica que la variable Fertilizante no este vacía Fertilizante = InputBox("¿Cual fertilizante desea eliminar?", "FERTILIZANTES") Dim fila As Integer fila = 1 if Fertilizante <>"" then Do While fila <= 70 If Cells(fila, 3) = Fertilizante...

Usa esta fórmula =SI(O(A2<>"",B2<>""),C1+A2-B2,"")

Una Función siempre va a devolver un Valor, así que lo único que tienes que hacer es en cualquier Sub escribir algo así: Funcion1 = Funcion2 Pero no pones el código de las funciones que mencionas, tal vez no son funciones sino "Sub", y las "Sub" no...

Pues desde Microsoft Query se puede, menu Archivo --> Ejecutar SQL y en ese cuadro de Dialogo puedes ejecutar Consultas SQL (UPDATE, DELETE, SELECT etc...)