Jump to content

Giova123

Members
  • Content Count

    44
  • Joined

  • Last visited

About Giova123

  • Rank
    Member
  • Birthday 08/06/1986

Converted

  • Campos
    ,
  1. No hay rollo proximamente lo estare generando para office 2013
  2. Lo cargo nuevamente algo le pasa a mi compresor , no existe contraseña , PruebaTreeview.xls
  3. Buenas tardes, les dejo este aporte que cree , espero les sirva o les parezca util , Usa referencias Activex Data Objects , windows common controls , Microsoft datagrid control Para ejecutar el formulario control+w , me cuentan como les va , saludos PruebaTreeview.rar
  4. Listo Vecodis , ahora si espero te funcione perfecto , me cuentas pruebaA(1).xls
  5. Es una solucion a un tema que habian planteado hace dias , gracias por preguntar .
  6. Adjunto lo que necesitas prueba(1).xls
  7. No deja ver el anexo , cuelgalo , ahora bn si estas utilizando sentencia sql , dale gorup by , es decir Select [minutos por atencion],[cantidad de ordenes de atención] From [hoja1$] Group By [minutos por atencion],[cantidad de ordenes de atención] Having ...... ; algo asi seria o directamente Select ([minutos por atencion]/[cantidad de ordenes de atención]) AS X ......
  8. Hola utiliza el codigo de la hoja , algo asi : Private Sub Worksheet_Activate() If ActiveCell.Column = 5 Then If ActiveCell.Row = 7 Then If ActiveCell <> Empty Then MsgBox "La Celda esta llena" End If End If End If End Sub
  9. Hola , porq no personalizas la configuracion regional de tu pc , en la ficha de numeros el simbolo decimal debe estar como "," cambialo por el punto , y en separador de listas el punto cambialo por coma , prueba y me cuentas .
  10. Hola le realice una modificación según lo que necesitas , espero te sirva , me cuentas . LISTA DE ALMUERZOS-BOCADITOS Y CENAS.rar
  11. Hola no tengo configurado el Outlook en mi pc, sin embargo lo haria de la sigiente manera , espero sirva y puedas corregirme , gracias . Agragaria un Userfrom seguido en el codigo de la hoja en el evento doble clic colocaria : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Para dar doble cli en el Nombre , en este caso si estuviera en la primera fila If ActiveCell.Column = 1 Then If ActiveCell.Row > 1 Then Dim frm As New UserForm1 With frm ' Agrega el nombre del formulario .Caption = " New Call -" & ActiveCell.Value ' Agrego los controles que necesito para ejecutar mi proceso de llamada .Controls.Add("forms.textbox.1", "txtNombre") = TextBox End With frm.Show End If End If End Sub
  12. Hola para modificar el Combobox que no muestre el nombre sino el codigo , ve y modifica el valor del RowSource = "Material" , por el nombre del rango que quieres que aparezca , o modifica el rango "Material" , por la columna donde esta el codigo del producto.
  13. Hola , Inserta este codigo en el Modulo Private Sub Filtro() Worksheets("NOVIEMBRE").Range("A13").CurrentRegion.AutoFilter Field:=1, Criteria1:="BAJA" Worksheets("NOVIEMBRE").Range("A13").CurrentRegion.Copy Worksheets("DEUDORES").Range("A1").PasteSpecial xlPasteAll Range("A13").Select Range(Selection, Selection.End(xlDown)).Offset(1, 0).EntireRow.Select Selection.SpecialCells(xlCellTypeVisible).Select Application.CutCopyMode = False Selection.ClearContents Worksheets("NOVIEMBRE").ShowAllData Range("A13").Select End Sub[/CODE] Me cuentas como te va .
  14. Prueba con esto For i = 1 To Windows.Count Windows(i).Activate nom = ActiveWorkbook.Name If nom = "Libro2" Then Application.Workbooks.Open "Ruta completa del libro" End If Next i
×
×
  • Create New...

Important Information

Privacy Policy