Free Microsoft Excel 2013
Quick Reference
Free Microsoft 2013 Quick Reference Guide

Free Microsoft Excel 2013 Quick Reference

Titulos en un Listbox

Una vez asignado ColumnHeads=True no se como ponerle texto en la primera fila de titulos sin que tener que hacerlo mediante rangos de celda.

Me gustaria poder inicializar el listbox con una matriz y a la vez ponerle titulos. Sin que coja los datos de una hoja de Excel.

Como hacerlo?

Muchas gracias de antemano.


Post your answer or comment

comments powered by Disqus
Hola a todos. ¿Existe alguna funcion que me devuelva cuantos valores diferentes hay en un rango de celdas?

Por ejemplo: si en un rango de celdas tengo ("jose","luis","luis,","jose","andres"), que me diga que hay 3 valores diferentes, sin contar repeticiones. Muchas gracias.

Una manera facil de rellenar un listbox es asignarle un origen de datos mediante un rango de celdas de Excel, pero:

Hay alguna forma directa de rellenar un listbox con los datos de una tabla de access?

Tanto si la hay como si no, me podrian escribir las lineas de código VBA para abrir eficientemente una tabla de access desde Excel? (para comprovar si lo hago bien)

Muchas gracias.

Excel puede tener un número ilimitado de hojas.

Para cambiar el número predeterminado de hojas en un nuevo libro:
1.En el menú Herramientas, seleccione Opciones, y luego seleccione la pestaña General.
2.En el campo Número de hojas en nuevo libro, introduzca un nuevo número predeterminado (hasta 255 hojas).
3.Haga clic en Aceptar.

Para colorear un registro en cada grupo en un rango, use formato condicional:

1.Seleccione el rango de celdas (o seleccione la columna completa).
2.En el menú Formato, seleccione Formato condicional.
3.En el campo Condición 1, seleccione Fórmula.
4.Escriba la siguiente fórmula (asegúrese de ser cuidadoso con las referencias Absoluta y Relativa):
=CONTAR.SI($A$2:A2,A2)=1
5.Haga clic en Formato, y seleccione la pestaña Tramas.
6.Escoja cualquier color y luego haga clic en Aceptar dos veces.

Para seleccionar rápido un rango en un Libro:

La mejor manera de seleccionar una celda o rango de celdas en la hoja actual o en cualquier otra del libro es seleccionando el Nombre definido para ese rango en el menú desplegable del Cuadro de nombres a la izquierda de la Barra de Fórmulas.
El Cuadro de nombres contiene una lista de los Nombres asignados a las direcciones de celdas. Seleccionar un Nombre es lo mismo que seleccionar la dirección de la celda o el rango de celdas en el libro activo.

Para más detalles sobre Definir un Nombre de Rango.

Utilizando métodos abreviados

Para escribir en un área determinada, seleccione un rango de celdas. Los bordes del rango seleccionado quedan claramente definidos:

* Para moverse verticalmente hacia abajo dentro del rango seleccionado, presionar
* Para moverse verticalmente hacia arriba, presionar
* Para moverse horizontalmente hacia la derecha, presionar
* Para moverse horizontalmente hacia la izquierda, presionar
* Para moverse de una esquina del rango hacia otra, presionar

Utilizando métodos abreviados

Para moverse hacia la última (o a la primera) celda en un rango:
* Verticalmente desde arriba hacia abajo, presione
* Verticalmente desde abajo hacia arriba, presione
* Horizontalmente de izquierda a derecha, presione
* Horizontalmente de derecha a izquierda, presione

Utilizando el ratón

Haga doble clic sobre el borde de la celda seleccionada cuando la imagen del ratón cambia a 4 flechas direccionales.

Buenas tardes, espero me puedan ayudar con la sgte. consulta, ya la habia hecho en otro foro sin respuestas o comentarios, a la espera de sus buenos consejos.

Se puede hacer una macro que informe en una hoja llamemosle HOJA REPORTE las hojas que se han impreso de un libro, donde indique el día q se imprimio tal hoja, la cantida de veces que se imprimio y la hora de la impresión, de antemano gracias por sus comenntarios, este libro tendra aproximadamente unas 70 hojas.

Un buen amigo me paso la sgte macro días despúes de mi consulta, la he probado pero me salen errores no se cual sea el problema, espero me puedan dar la mano

Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean) 

Dim anombre As String 
Dim hojaa As Object 

For Each hojaa In ActiveWindow.SelectedSheets 
anombre = anombre & "," & hojaa.Name 
'Exit For 
Next 
'Si hay varias hojas seleccionadas se van a imprimir todas ellas. 
'En la variable "anombre" se memorizan los nombres de todas esas 
hojas seleccionadas (que se imprimen) 
'--------------- 

Select Case InputBox("Indica por favor tu clave de acceso.", 
"Privilegios del impresor...") 

'Aquí indica la clave tuya y la clave de la persona a la que 
autorices. La persona autorizada sólo conoce su clave: por ejemplo 
"clave222"; no conoce tu clave. 
Case "clave111", "clave222" 

MsgBox "Clave aceptada. Iniciando proceso..." 

'Aquí registrará en la Hoja7, en la columna "A", y en la 
primera fila que encuentre libre, el nombre de la hoja activa que será la que 
se imprime 
'y en la misma fila y siguiente columna te registrará el dia y 
la hora de la impresión. 

Sheets("Hoja7").Range("A45000").End(xlUp).Offset(1, 0) = 
ActiveSheet.Name 
Sheets("Hoja7").Range("A45000").End(xlUp).Offset(0, 1) = Now 

'aquí se anotan las hojas selecionadas por ejemplo: " 
,Hoja2,Hoja3,Hoja5" 
Sheets("Hoja7").Range("A45000").End(xlUp).Offset(0, 2) = 
anombre 


Case Else 
MsgBox "Necesitas la clave correcta.", , "Clave rechazada..." 
Cancel = True 
End Select 

End Sub


Esta si es dificil... Saludos, Maestros... Otra vez molestando y pidiendo su ayuda.
Quiero hacer un documento en Excel en donde pueda ingresar datos, - vamos bien -, pero si quiero ingresar datos utilizando una macro que me permita cumplir varias condiciones para que ella lo localice en una celda especifica y me de su valor final, además, que esa macro me permita hacerlo utilizando una ventanita, tipo Java, en donde me pregunte; Por ejemplo: Nombre, Cédula y otros valores, y que me lo ponga en una celda específica, Se podrá hacer Eso? Digo que sí, Pero Cómo!!!, Ahhh, otra cosa, no se complica si es un documento con 25 líneas y 5 Columnas; Pero si son 2500 líneas y 45 Columnas, por ejemplo...

Espero realmente su ayuda.
Odelllp

Como Puedo colocar un archivo mediante codigo VBA en un Folder de Carpetas Publicas,

Necesito una direccion donde pueda encontrar programacion Outlook

GRacias

Buen día... aprovechando el fin de semana pregunto cómo se puede correr una macro desde un botón en una hoja de excel...

quizá este botón pudiera ser una pequeña imagen que pongamos en la página, y que cuando se le da click, se corra la macro

o también podría ser un hyper link.. no lo sé

Saludos

En un programa que hice en Excel tengo un UserForm tabla en una hoja de
excel; este tiene aproximadamente 40 campos, algunos son ListBox otros
ComboBox y otros TextBox. Quisiera saber si hay alguna forma de que pueda
ver desde el formulario el contenido de la tabla del mismo modo que lo hace
ACCESS con los botones de "Siguiente Registro" y "Registro Anterior"

Gracias.

Leonardo

Cambiando fácilmente el Estilo en la caja de Estilo Ud. puede cambiar rápidamente la presentación de números en cualquier reporte. Por ejemplo, mostrar e imprimir reportes con cifras redondeadas a miles.

Para aplicar un Estilo:

1.Agregue la caja de Estilo a la barra de herramientas de Formato (ver Consejo #67).
2.Cree un nuevo Estilo y denomínelo Redondeo a Miles (ver consejo #67).
3.Seleccione las columnas que contengan los números a redondear.
4.En la caja de Estilo, seleccionar Redondear a Miles.

Error en descripcion de formulas: DEM por DSM

Ejemplo en PRECIO:

B = número de dÃ*as en un año, dependiendo de la base anual que se use.

DLV = número de dÃ*as entre liq y vencto.

DEM = número de dÃ*as entre la fecha de emisión y la fecha de vencto.

A = número de dÃ*as entre emisión y liq.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...heet.functions

Estimados amigos,

Estoy desarrollando un macro,Test(), que toma un valor de la celda Z10, y si este valor es 3 entonces va a la hoja Sheet1 e imprime el rango nombrado como TESTAREA.

Lo que yo necesito hacer es tener la potestad de reasignar el rango al área TESTAREA y no tener que cambiar el macro cada vez que cambie el área. El macro como esta no funciona ya que no reconoce el rango TESTAREA como un rango o quizás el macro de impresión (MacroforPrinting) esta mal definido. Por ejemplo, TESTAREA puede ser A1:G15 ó cualquier otro rango.

Por favor, ¿Alguien me puede ayudar a localizar los errores?

Gracias,

Dim Area As String
Dim Sh As String

Sub Test()

If Range("Z10") = 3 Then
Sh = "Sheet1"
Area = "TESTAREA"
MacroforPrinting Sh, Area
End If

End Sub

Sub MacroforPrinting(Sh, Area)
With Worksheets(Sh)
With .PageSetup
.PrintArea = Area
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
.PrintOut Copies:=1, Collate:=True
End With
End Sub

Hola!
Quiero importar un archivo muy grande, con más de 65536 filas a excel. El archivo es .dat por si eso sirve de algo. He leido en un thread del 22 de mayo del 2002 algo relacionado, pero no lo entiendo. Alguien puede por favor ayudarme con una explicación para dummies? Muchas gracias

Antes de nada, saludos a Greg el primer paso que habia tratado en el foro (useform para captura) a base de leer y probar lo logre!!! ahora deseo continuar con otro mas... dar inicio a la captura con una hoja en blanco (emular un menu) y varios "botones" para realizar varios eventos distintos, y uno importante: ocultar las hojas donde estan los datos de captura para evitar que los borren por error los usuarios, mostrar el useform, un reporte impreso, etc....aunque me queda aun un pequeño detalle por resolver... no he podido hacer que al poner el "ID" o clave del cliente este "asocie" en un "tb" el nombre del mismo... aqui mi codigo...

Private Sub btn_prodxklienteCancel_Click()
Unload Me
End Sub

Private Sub btn_prodxklienteOK_Click()
Dim LastRow As Long

LastRow = Worksheets("pxk").Range("A65536").End(xlUp).Row + 1
Cells(LastRow, 1).Value = tb_idkliente.Value
' aqui es donde deseo que al poner el id se asocie con el cb_kliente
Cells(LastRow, 2).Value = cb_kliente.Value
Cells(LastRow, 3).Value = cb_artikulos.Value
Cells(LastRow, 4).Value = tb_cantidad.Value
Cells(LastRow, 5).Value = tb_dolar.Value
Cells(LastRow, 6).Value = tb_pesos.Value
Cells(LastRow, 7).Value = Calendar1.Value
Cells(LastRow, 8).Value = tb_factura.Value
Unload Me
End Sub

Private Sub tb_dolar_Change()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Use los botones OK o Cancelar para cerrar la Captura", vbCritical
Cancel = True
End If
End Sub

saludos...

Actualmente estoy escribiendo algunas macros con el fin de obtener información sobre los archivos que hay en un determinado directorio. Quiero extraer a un archivo Excel la información relacionada con: Nombre del archivo, tamaño, ruta completa, fecha de la última actualización y Propietario. He trabajado con código tomado de Fred Cumming en www.netspace.net.au el cual me da toda la información que necesito, excepto el propietario. Traté de trabajar con código colocado por TsTom en MrExcel.com (Octubre 6, 2002) en respuesta a la solicitud “Extracting file information: Icon and Ownership” pero tuve dos problemas:

1) La ruta

http://www.vb2themax.com/Item.asp?Pa...Cat=140&ID=396

ya no existe.

2) Cuando copio el código de TsTom a un modulo VBA, instrucciones tales como

Private Declare Function GetFileSecurity Lib "advapi32.dll" Alias _

"GetFileSecurityA" (ByVal lpFileName As String, ByVal RequestedInformation _

As Long, pSecurityDescriptor As Byte, ByVal nLength As Long, _

lpnLengthNeeded As Long) As Long

y algunas otras aparecen resaltadas en rojo (error de compilación “Se esperaba una constante de cadena”).

Cual será mi problema? Es necesario hacer referencia a alguna librería en especial?. Debo admitir que no he trabajado con APIs y que su ayuda será fundamental para mí.

Esta es una aplicación bastante común y muy seguramente alguien la habrá desarrollado. Si este es el caso, le agradecería sus aportes.

Muchas gracias por su ayuda.

Caliche.

NOTAS:
Esta solicitud ya fue colocada en el foro en Inglés, pero desafortunadamente no he obtenido respuesta.

Estoy trabajando en ambiente Office XP.

Hola,
Hojala me puedan ayudar...
Soy novato en programar con VBA en Excel, de hecho lo hago la mayoría de las veces grabando macros y luego las edito de acuerdo a lo que necesito.
Hice una macro para hacer una Pivot Table, la macro funciona muy bien cuando estoy trabajando con alrededor de 300 filas y 30 columnas de información. El error aparece cuando pongo mas filas (dejo las mismas columnas incluyendo sus nombres).
El error que me arroja es el siguiente:
"Run Time Error '1004':
Unable to set the Orientation property of the PivotField class."
Y el codigo donde tengo el error es el siguiente:
ActiveSheet.PivotTables("PivotTable1").PivotFields("hrs_actual").Orientation = _
xlDataField
La macro la tengo en un workbook que solo tiene esta macro y la información para crear la Pivot Table la copio de otro archivo y la pego en el que tiene la macro, entonce corro la macro y si son pocas filas la ejecuta muy bien pero cuando meto mas es cuando me arroja el error. Hice la prueba con un archivo de 300 fila por 30 columnas mas o menos y no hubo problema, despues corrí la misma macro con 1800 filas y 30 columnas mas o menos y fué cuando me dió el error.
Disculpa por ser tan redundante, espero que me haya explicado bien sino te molestaré nuevamente (digo si no te importa).

Gracias y recibe un cordial saludo desde Queretaro, Mex. !!!

Me pueden ayudar???

resulta lo siguiente: estoy llevando una asistencia de personas en un mes tengo en el rango de columnas todos los miercoles y todos los domingos, a la persona que vaya asistiendo les pongo el numero 1( esto es para que cuente al final del mes como asistencia y sume el total de dias asistidos)si no asisten dejo la casilla en blanco y al final del mes tengo una suma sencilla de cuantos dias asistieron al mes y luego su division entre el total de todos los miercoles y domingos y me da el promedio de asistencia de cada persona.
ejemplo este mes de octubre trae 4 domingos y 5 miercoles, si la persona asistio todos, resulta que tiene una suma de 9, divididos entre 9, saldria al 100%, si solo asistio 4 veces tendria 44% de asistencia,hasta aqui todo esta bien solo que resulta que necesito algo que me este dando los promedios pero a la fecha en que llevo los registros efectuados, por ejemplo si apenas el mes va hasta el dia 22 de octubre (abarca 3 domingos y 3 miercoles) quisiera que me de el promedio hasta la ultima casilla que va marcada que seria 6 dias ( como si la ultima casilla fuera la ultima que marcaria del mes) y si marco una casilla mas ( la del miercoles 23 Octubre) que me diera los promedios hasta el miercoles 23.
Me podrian ayudar ?
Gracias
(de preferencia alguna formula en vez de macro, claro si se puede si no pues alguna macro, lo que pasa es que este archivo de excel lo corro en una pocket pc y este sistema no acepta macros ) gracias de nueva cuenta

Hola a todos, muy bueno el sitio, felicitaciones!!

¿exista alguna propiedad para hacer que las series en un gráfico xy (dispersión) se oculten o aparezcan?
(no estoy hablando de agregar / borrar series)
Saludos y gracias!

En un grafico xy (dispersión) con ejes logarítmicos, si algunos de los valores son ceros o negativos, aparece un mensaje advirtiendo esto ("Imposible trazar correctamente.....etc.").

Quiero hacer que este cartel no aparezca, pero no encuentro ningún evento que se genere al aparecer el cartel.

saludos, gracias

Como puedo saber si la persona hizo un cambio en un rango que está dentro de un rango que he definido,
Por ejemplo:

MI AREA DE TRABAJO EL Rango1="A1:D5"

si se realiza un cambio en el rango2="z2", entonces no haría nada, pero si se realiza un cambio en rango2="A3" entonces hago algunos procedimientos

Gracias por su colaboracion!!!

[ This Message was edited by: yeye on 2002-08-02 16:55 ]

Por favor si alguien pudiera facilitarme el codigo que pueda insertar en un archivo de Excel, de modo de que cuando se abra por primera vez el archivo, salga un cuadro de texto como mensaje de bienvenida.

claro en vez de "bienvenida" pondria mi nombre y mi correo electronico
para que sepan quien es el autor de el archivo

Saludos y gracias por su ayuda

AMIGOS; ya alguien me escribio a mi correo y me dio el codigo:

Code:
Sub Auto_open()
MsgBox ("que tengas un buen dia")

End Sub
ya lo puse y sale al inicio de abrir el archivo de excel, pero ahora podrian ayudarme en decirme COMO SE PUEDE FORMATEAR ESTAS LETRAS?
quisiera darle color - fondo- o algo de tipo de fuente personal ....

podrian ayudarme por favor ?

saludos y gracias nuevamente !!!


No luck finding an answer? You could always try Google.