Saltar al contenido

Enigma25

Moderadores
  • Contador de contenido

    2323
  • Unido

  • Última visita

  • Days Won

    47

Sobre Enigma25

  • Rango
    Miembro

Información de perfil

  • Sexo Hombre

Visitantes recientes del perfil

1622 visitas de perfil
  1. desbloquear

    Saludos estimado @Gerson Pineda
  2. desbloquear

    Descuide. Es solo para que sepa que este tipo de requerimiento no es posible por respeto a los trabajos realizados por desarrolladores. De todos modo estamos para servirle en lo que requiera y sea bienvenido al foro el cual da solucion a muchos temas y demás. Mis respetos.
  3. desbloquear

    Hola @francisco123 Si es para abrir el proyecto VBA, le adelanto que será imposible que reciba ayuda dado que este tipo de requerimiento no se trata en el foro, por respeto a los proyectos creados por otros desarrolladores. Ruego por tu comprensión y espero que lo tome en cuenta en el futuro. Mis respetos.
  4. Un ligero cambio : Dim Suma As Double Dim Uf As Long Dim I As Integer With Hoja1 Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1 Suma = 0 'Codigo para limpiar el calculo anterior For I = 2 To Uf If .Cells(I, 1) = "" Then .Cells(I, 3) = "" End If Next 'Codigo para calcular For I = 2 To Uf Suma = Suma + .Cells(I, 3) If .Cells(I, 1) = "" Then .Cells(I, 3) = CDbl(Suma) .Cells(I, 3).Font.Bold = True Suma = 0 End If Next I End With
  5. Hola Prueba con este código:: Dim Suma As Double Dim Uf As Long Dim I As Integer With Hoja1 Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1 Suma = 0 For I = 2 To Uf Suma = Suma + .Cells(I, 3) If .Cells(I, 1) = "" Then .Cells(I, 3) = CDbl(Suma) .Cells(I, 3).Font.Bold = True Suma = 0 End If Next I End With
  6. Hola @FRANKPALMA bienvenido al foro. Antes que nada, te invito a que leas las normas de uso. Seria excelente que adjuntes el archivo para que puedan evaluar tu problema. Mis respetos.
  7. Hola Según la función SQL, este trae todos los campos de la tabla con el comodín (*). Ejemplo: Public Function sqlClientes() sqlClientes = _ "SELECT * FROM CLIENTES" End Function Para resolver tu requerimiento, especificamos los campos deseados. Ejemplo: Public Function sqlClientes() sqlClientes = _ "SELECT ID_CLIENTE, NOMBRE, TELEFONO FROM CLIENTES" End Function Saludos. P. D. Adjunto archivo Excel con el cambio. Excel - Firebird.xlsm
  8. Control de Stock de Bar

    @marista78 Presente, un placer. No recuerdo en cual pero me alegro que le sirviera. Saludos.
  9. Control de Stock de Bar

    Hola @marista78 Mira este aporte a ver si te sirve. Stock.2.0 Saludos.
  10. Macro para consolidar pierde datos de origen

    Tema abandonado.
  11. Error al abrir Userform

    Tema solucionado.
  12. Planilla de asistencia.

    Hola Por favor adjunta tu archivo con un ejemplo de los que esperas obtener. Saludos cordiales.
  13. INSERTAR DATOS DE EXCEL A ACCESS

    Que bueno. Recuerda concluir el tema escribiendo "Tema solucionado"
×