elsa reynas

Dante Amor respondió: De esta forma puedes anidar las 2 condiciones "COMPRA" y "VENTA" Solamente ajusta las segunda parte de la fórmula, cuando I12 = "VENTA" =SI(I12="COMPRA", BUSCARV(E12, general, 6,0), SI(I12="VENTA", BUSCARV(E12,general,7,0))) Sal u dos, Dante Amor, No...

Dante Amor respondió: Múltiplos de 2: 1000 / 2 = 500 Entonces 1000 - 500, nos quedan 500 números que no son múltiplos de 2. Múltiplos de 3 de los 500 números que nos quedan: 500 / 2 = 167 (enteros) Entonces tenemos múltiplos de 2 + múltiplos de 3 500 + 167 = 667 1000 -...

Dante Amor respondió: Efectivamente hay riesgo, no se puede saber si saliste a tiempo o no. Los espermatozoides en condiciones favorables, llegan a sobrevivir de 3 a 5 días, por lo que sí hay riesgo. También habría que revisar el ciclo menstrual de tu pareja. Utiliza...

Dante Amor respondió: H o l a: Te anexo la fórmula: =SUMA('ACT (1):ACT (7)'! E7:N7) Cambia el (7) por el número de tu última hoja.

Dante Amor respondió: H o l a: Puedes poner un texto como pie de página. Entra al menú Diseño de página, haz clic en Configurar página, selecciona la pestaña Encabezado y pie de página, presiona el botón Personalizar pie de página: En la ventana de Pie de página en la...

Dante Amor respondió: Pon la siguiente macro en los eventos de tu libro, cambia "abc" por el password que desees que tengan las hojas. Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor For Each h In Sheets h.Unprotect "abc" h.Cells.Locked = False...

Dante Amor respondió: Te anexo la macro. Cambia "hoja1" por el nombre de la hoja a imprimir, cambia 1000, por el número de impresiones Sub Imprimir() 'Por.Dante Amor Set h1 = Sheets("Hoja1") For i = 1 To 1000 h1.[U1] = i h1.PrintOut Copies:=1, Collate:=True Next End Sub...

Dante Amor respondió: Puedes poner tu macro.

Dante Amor respondió: H o l a: No entendí esta parte: " El problema surge al querer guardar el libro mediante esta misma macro, ya que al hacerlo el procedimiento no se ve reflejado " ¿Tienes otra macro? ¿O qué es lo que quieres guardar?

Dante Amor respondió: Pero cuál es la pregunta. Si pagas al contado comercial, estás pagando todo. Pero si vas a pagar con crédito a 60 días, ¿qué es lo que necesitas? ¿Calcular un interés? ¿O cuánto tienes qu pagar?

Dante Amor respondió: Prueba con la siguiente macro Sub copia_y_pega() 'Mod.Por.DAM Open "C:\trabajo\original2.txt" For Input As #1 contenido = Input(LOF(1), #1) linea = Split(contenido) c = 29696 For i = 0 To UBound(linea) cuantos = Application.RoundUp(Len(linea(i)) / c,...

Dante Amor respondió: Si tu base de datos tiene encabezado, puede ser así: Private Sub CommandButton1_Click() ListBox1.ColumnHeads = True ListBox1.ColumnCount = 5 ListBox1.RowSource = "A2:E" & Range("A" & Rows.Count).End(xlUp).Row End Sub La carga es desde la columna A...

Dante Amor respondió: Utiliza la siguiente instrucción: Private Sub UserForm_Activate() ComboBox1.RowSource = "A2:A20" End Sub Cambia el rango de celdas por tus celdas en donde tienes las claves de empleado. Saludos. Dante Amor

Dante Amor respondió: Pon el siguiente código en tu formulario: Private Sub OptionButton1_Click() TextBox1.Visible = False End Sub Para hacer visible nuevamente el textbox: TextBox1.Visible = True Saludos. Dante Amor