Saltar al contenido

Enigma25

Moderadores
  • Contador de contenido

    2364
  • Unido

  • Última visita

  • Days Won

    47

Sobre Enigma25

  • Rango
    Miembro

Información de perfil

  • Sexo Hombre

Visitantes recientes del perfil

1747 visitas de perfil
  1. Buscar Color con UDF

    Hola Puedes adjuntar tu archivo? Saludos cordiales.
  2. Quitar blancos de un combobox

    Que bueno saberlo. Si el aporte cumple con su requerimiento, favor escribir "Tema Cerrado". Así daremos como concluido su tema. Mis respetos.
  3. Quitar blancos de un combobox

    Hola Cambia tu Private Sub UserForm_Initialize() Dim Lin As Long With Hoja1 Lin = 2 Do While .Cells(Lin, 1) <> "" Me.ENVASE1.AddItem Me.ENVASE1.List(Me.ENVASE1.ListCount - 1, 0) = .Cells(Lin, 1) Me.ENVASE2.AddItem Me.ENVASE2.List(Me.ENVASE1.ListCount - 1, 0) = .Cells(Lin, 1) Me.ENVASE3.AddItem Me.ENVASE3.List(Me.ENVASE1.ListCount - 1, 0) = .Cells(Lin, 1) Me.ENVASE4.AddItem Me.ENVASE4.List(Me.ENVASE1.ListCount - 1, 0) = .Cells(Lin, 1) Me.ENVASE5.AddItem Me.ENVASE5.List(Me.ENVASE1.ListCount - 1, 0) = .Cells(Lin, 1) Me.ENVASE6.AddItem Me.ENVASE6.List(Me.ENVASE1.ListCount - 1, 0) = .Cells(Lin, 1) Me.ENVASE7.AddItem Me.ENVASE7.List(Me.ENVASE1.ListCount - 1, 0) = .Cells(Lin, 1) Lin = Lin + 1 Loop End With End Sub para llenar el ComboBox por este : Comenta tus impresiones Saludos cordiales.
  4. Codigo para ordenar

    De todos modos te dejo mi aporte sin tu ejemplo. Saludos. Ayuda Excel.xlsm
  5. Codigo para ordenar

    Hola Me gustaría ayudarte. Puedes adjuntar tu archivo como modelo para hacer el aporte? Saludos.
  6. ACTUALIZAR LISTA DE PRECIO

    Hola @DgO88 Está satisfecho con los aportes? De ser así por favor comentar con un "Tema cerrado" para dar por concluido el mismo. Saludos cordiales.
  7. Hola Dado que el tema se encuentra repetido, se cierra el actual ya que el que hago referencia Tema Ya le están respondiendo. Saludos cordiales.
  8. Cnatidad de Columnas en Listbox

    Hola Mira este aporte ListBox con mas de 10 Columnas con AddItem Saludos.
  9. Prueba de este modo : Sub AgruparCobros() Cells.Sort Key1:=Columns(2), Key2:=Columns(4), Header:=xlYes For x = Range("A1").End(xlDown).Row To 3 Step -1 If Range("B" & x) = Range("B" & x - 1) And _ Range("D" & x) = Range("D" & x - 1) Then Range("C" & x - 1) = (CDbl(Range("C" & x - 1)) + CDbl(Range("C" & x))) Range("F" & x - 1) = (CDbl(Range("F" & x - 1)) + CDbl(Range("F" & x))) Range("C" & x - 1).Style = "Currency" Range("F" & x - 1).Style = "Currency" Rows(x).Delete End If Next End Sub Saludos.
  10. ACTUALIZAR LISTA DE PRECIO

    Hola @DgO88 Prueba el adjunto a ver si es lo que esperas. Saludos a @Isidro. ACTUALIZAR PRECIO.xlsm
  11. Hola @marquezck Por favor adjunta tu archivo con un ejemplo de lo que esperas. Saludos cordiales.
  12. combinaciones excel. ayuda :(

    Se cierra el tema por estar repetido. Referencia : Tema anterior
  13. Como calcular combinaciones de partidos

    Saludos Se ha cambiado el titulo del tema para que se mas enfocado al requerimiento. Agradecemos a @jmadridporto2025 colocar un titulo mas apropiado según su necesidad. Normas de uso Saludos a todos.
  14. AYUDA URGENTE PORFA :(

    @jmadridporto2025 Le informo que para que sea atendido de una manera oportuna, es necesario que siga las instrucciones que amablemente le sugieren. Estas no son difíciles de seguir y le aseguro que será de gran ayuda para cumplir con el cometido. Una vez leídas, le será de gran utilidad en el futuro próximo para gestionar con fluidez cualquier inquietud y/o aportación que haga. Saludos cordiales.
×