hugolaza

hugolaza

Formulas avanzadas, Macros, sistemas cerrados mediante VBA con formulairos y Base de Datos
 27,7K puntos  Perú @hugolaza desde - visto

Respuestas en Microsoft Excel

Respuesta en a

Buscar datos en una hoja

Coloca la rutina que te estoy enviando en un módulo de Visual Basic. ¿Cómo? * Abre el Editor de Visual Basic Alt-F11 * En el Menú de Opciones, haz click en el Menu Insertar y luego selecciona Módulo. *En el módulo que aparece, copia el código desde...
Respuesta en a

Formato condicional con más de 3 condiciones

Utiliza esta rutina : Private Sub Worksheet_Change(ByVal Target As Range) If ActiveCell.Column = 12 Then Select Case Target.Cells Case LCase("vip") Target.Cells.Interior.ColorIndex = 46 Case LCase("invitado") Target.Cells.Interior.ColorIndex = 10...
Respuesta en a

Tabla con macros

Utiliza el siguiente macro : Sub UbicarImprocedentes() Application.ScreenUpdating = False miHoja = ActiveSheet.Name Range("Q2").Select Do While ActiveCell <> "" If LCase(ActiveCell) = "improcedente" Then Rows(ActiveCell.Row).Copy...
Respuesta en a

Bases de Datos y listas desplegables!

Prepara este escenario paso a paso, sin omitir ninguno: En un libro en blanco, ingresa estos datos : Celdas A3:A5 = Opcion1 - Opcion2 - Opcion3 Celdas A7:A8 = Opcion1.1 - Opcion1.2 - Opcion1.3 y Nómbrala "Opcion1" Celdas A11:A13 = Opcion2.1 -...
Respuesta en a

Acomodar columnas debajo de los nombres en las hojas de MIcrosoft Excel

Un poco complicado tu pedido. Copia esta rutina en códigos de la Hoja 1 Private Sub Worksheet_Deactivate() Open "c:\tem.txt" For Output As #1 For a = 1 To 51 If Range("B5").Offset(a, 0) <> "" Then b = b + 1 Write #1, Range("B5").Offset(a, 0) End If...
Respuesta en a

Jerarquías

Ok. Si solo se te permite un Rend. De 0 a 100 entonces tu sugiero esta fórmula : =J4/(C4*3)*100+(I4/1000)+(G4/10000) Donde, J4 = PTS C4 = PJ I4 = DG G4 = GF Debes formatear esta fórmula (celda) con 0 decimales
Respuesta en a

Jerarquías (Rendimientos-Tabla de posiciones)

Para el Rend. Puedes usar esta fórmula: =(J1*1000)+(I1*10)+G1 donde, J1 es PG I1 es DG G1 es GF Ahora, supongamos que dos equipos igualaron en todo, que aunque muy improbable, no es imposible. Entonces se toman otras variables como el resultado entre...
Respuesta en a

Formato en columnas de listbox

Lamentablemente no se puede dar formato personalizado a un ListBox. Es uno solo para todas las columnas.
Respuesta en a

Asignar números a letras

Te envío esta función : Function txtNum(Valor) As String If Valor = "dr" Then Valor = 2 If Valor = "cf" Then Valor = 3 If Valor = "tl" Then Valor = 8 miFormula = Valor End Function Esta Función la colocas en un Módulo. ¿Cómo? 1. En una Hoja Excel...

Suscríbete RSS