Jump to content

sailepaty

Members
  • Posts

    1,374
  • Joined

  • Last visited

  • Days Won

    8

sailepaty last won the day on April 22

sailepaty had the most liked content!

About sailepaty

  • Birthday 02/17/1963

Contact Methods

  • Website URL
    http://excelgali.mejorforo.net/

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

sailepaty's Achievements

  1. Te gane Antoni! Yo tengo nivel de principiante 🤛 Saludos!
  2. Re: Application.WorksheetFunction.Match Puede ser algo así, Sub Insertar() Dim rFound As Range Set rFound = Sheets(2).Range("A1:A5").Find(Sheets(1).Range("B1")) If Not rFound Is Nothing Then rFound.Offset(0, 1) = Sheets(1).Range("B2") End Sub [/CODE] Saludos
  3. O puedes utilizar este complemento. http://www.oaltd.co.uk/indenter/default.htm Saludos
  4. Si este no funciona lo dejamos para mas tarde, el deber llama. Saludos a todos y feliz año. SUMA 1 DIGITO POR CELDA.zip
  5. Me parece que la formula estaba bien lo que estaba mal fue mi explicación, checa el anexo. Saludos SUMA 1 DIGITO POR CELDA.zip
  6. Buen apunte Fleming, haber así. M11=RESIDUO(SUMA(M7:M10);10) L11=RESIDUO(SUMA(L7:L10)+SI(M11=0;ENTERO(MULTIPLO.SUPERIOR(SUMA(L7:L9);10)/10);ENTERO(SUMA(M7:M10)/10));10) J11=RESIDUO(SUMA(J7:J10)+SI(L11=0;ENTERO(MULTIPLO.SUPERIOR(SUMA(J7:J9);10)/10);ENTERO(SUMA(L7:L10)/10));10) Copiar formula de J11 a I11, H11 y G11. Saludos
  7. Otra opción, M11=RESIDUO(SUMA(G7:G10)+ENTERO(SUMA(H7:H10)/10);10) Ahora copia la formula en L11, I11, H11 y G11 Para J11 debido a que la siguiente columna es texto se suma la division de la suma de dos columnas a la derecha en lugar de una. J11=RESIDUO(SUMA(J7:J10)+ENTERO(SUMA(L7:L10)/10);10) Saludos
  8. Felicidades Josemaría Salió en la quinta posición, ahora de seguro ya tienes una visita desde México y en cuanto regrese a casa tendrás una de USA. Saludos
  9. Que tal Mauricio, Tienes toda la razon siempre se aprende algo, tanto que hacer y que no hacer Saludos
  10. Me pregunto para que hace falta una UDF para obtener el resultado del total de dias de un mes? Saludos
  11. Gracias por la aclaración Pedro, ya quedo modificado. Me gusta la opción que le añadiste a la función. Saludos
  12. Y para no dejar solo a Macro Antonio, aqui va una UDF. Function SoloNumeros(sTexto As String) As Double With CreateObject("VBScript.RegExp") Application.Volatile .Pattern = "\D" .Global = True SoloNumeros = .Replace(sTexto, "") End With End Function[/CODE] Saludos
×
×
  • Create New...

Important Information

Privacy Policy