Foros de Programacion

excel :: RE: Ayuda con macro por favor!

Autor: Bernie
Publicado: Jue Jul 24, 2008 9:27 am (GMT 1)
Tema Respuestas: 4

Much�simas gracias, Dami�n, con la explicaci�n que me diste es m�s que suficiente para adaptarla al proyecto. Disculpa si a veces pregunto cosas sin sentido, pero es que reci�n me estoy iniciando, y muchas cosas son nuevas para m�. Gracias de nuevo mi buen amigo. Saludos!

excel :: combinaciones en Excel

Autor: araucaria_9942
Asunto: combinaciones en Excel
Publicado: Mie Jul 23, 2008 9:02 pm (GMT 1)
Tema Respuestas: 0

Hola, quisiera ver si me pueden ayudar, tengo una planilla en excel con los iguientes datos:
columna a: a1 titulo: Numero factura
desde a2:a21 datos correlativos 1562, 1563, 1564, 1565,...etc
columna b: b1 titulo Monto Factura
desde b2:b21 datos de montos de facturas, 1555,362542,154232,658214,74562,85692,785641,321458,459632,268413,987123,258741,369852,159753,856423,745896,475216,365289,874563

Necesito que en rango d2:w2 me de los numeros de facturas que me hacen coincidir la suma de los montos con el valor 945895 que esta en la celda "b25" la cual debiera dar como resultado los numeros de facturas 1566,1567,1568
�si hay otra coincidencia? me la debe dar en d3:w3 y as� sucesivamente....

�me explique bien?

lo que pasa que debo trabajar con facturas conciliando cuenta corriente, y es por eso que esta macro me serviria mucho, mucho,

Ojala me puedan ayudar

Un novato necesita ayuda profesional....... gracias
_________________
Desde Chile..... Tratando de Programar

excel :: RE: Ayuda para una formula, por favor.

Autor: fcoropo
Asunto: Re: Ayuda para una formula, por favor.
Publicado: Mie Jul 23, 2008 12:13 pm (GMT 1)
Tema Respuestas: 2

raulgsan1979 escribi�:

Con presion no se que quieres pero esta funcion de excel cuenta las celdas que tengan
letras en este caso tus X

CONTARA(Rango)

Espero te Sirva.

Gracias, pero yo aparte de contar, necesito condicionar la formula si otra cisilla esta marcada con una X,

No puedo copiar el excel para verlo mejor?

Gracias de antemano por tu ayuda.

excel :: RE: Ayuda con macro por favor!

Autor: damianomarsilva
Publicado: Mie Jul 23, 2008 5:08 am (GMT 1)
Tema Respuestas: 4

con tu primer pregunta... quedo en el aire. explicamela mejor.
en cuanto a la segunda:
es c�digo debe ir en alg�n evento del control que vos elijas. podr�a aplicarse luego de hacer click sobre un boton:

C�digo:

sub boton_click()
With Selection.Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
end sub

o bien podr�as pegarlo dentro de cualquier parte de tu macro, exactamente en la l�nea en donde quieras que todas esas instrucciones se ejecuten.

C�digo:

Sub Macro()
codigo
codigo
codigo
With Selection.Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
mas codigo
mas codigo
end sub

se entiende? cualquier cosa me avis�s.
quiz�s una buena idea ser�a crear una macro solamente con esas intrucciones, y luego llamarla, para modularizar tu c�digo... de esta forma.

C�digo:

Sub MacroQueFormateaCeldas()
With Selection.Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
end Sub

con todo el c�digo que me pasaste, armo una macro. y luego la llamo desde cualquier parte:

C�digo:

Sub MacroPrincipal()
codigo
codigo
codigo
'aqui invoco al formateo, que tengo en la otra macro:
MacroQueFormateaCeldas
mas codigo
mas codigo
end sub

_________________
Salu2.xls

Foro de access :: PROBLEMA CON LA PROPIEDAD COLUMN

Autor: elduendemorao
Asunto: PROBLEMA CON LA PROPIEDAD COLUMN
Publicado: Mie Jul 23, 2008 1:14 am (GMT 1)
Tema Respuestas: 0

Hola amigos:

Resulta que tengo la siguiente duda a ver si alguien puede ayudarme.

Tengo una peque�a base de datos con varias tablas y formularios. Un de esos formularios tiene un cuadro combinado y un campo de texto.
El cuadro combinado recoge los datos de una consulta sql, mientras que el cuadro de texto muestra los datos de la segunda columna de la consulta sql del cuadro combinado a trav�s de la propiedad Column.
Mi problema es que los datos del cuadro combinado se graban perfectamente en la tabla, mientras que los datos del cuadro de texto no se registran en la tabla.

A trav�s de este link podeis descargar una peque�a parte de la aplicaci�n, que seguramente se entienda mejor.

http://rapidshare.com/files/131731590/Comboss.mdb.html

A ver si alguien me ayuda, porque estoy un pel�n desesperado.

Un saludo y muchas gracias de antemano.

visual fox pro :: SELECT de consulta.

Autor: Juan Carlos Lopera
Asunto: SELECT de consulta.
Publicado: Mar Jul 22, 2008 11:59 pm (GMT 1)
Tema Respuestas: 0

Hola:

Tengo la siguiente tabla de Inventarios con el siguiente dise�o:
Almacen, CodItem, Saldo
con los siguientes datos

Alm - CodItem - Saldo
A - AAA - 3
B - AAA - 5
C - AAA - 6
A - BBBB - 3
B - BBBB - 6
C - BBBB - 8

Luego quiero como resultado una tabla Consulta asi:
CodItem - AlmA - AlmB - AlmC - Total
AAA - 3 - 5 - 6 - 14
BBB - 3 - 6 - 8 - 17

Como seria el SELECT? para llevar a un GRID

Gracias por la ayuda

Saludos

visual fox pro :: Impresi�n Lenta.

Autor: Juan Carlos Lopera
Asunto: Impresi�n Lenta.
Publicado: Mar Jul 22, 2008 11:50 pm (GMT 1)
Tema Respuestas: 0

Hola a todos.

He dise�ado un reporte e imprime muy lento en una impresora de puntos EPSON LX300.

Digo que es lento ya que estoy transformando un sistema antiguo que fue desarrollado en CLIPPER y el mismo reporte lo hace mas rapido en la misma impresora, creo que el reporte actual lo toma como un grafico, como hago para que las l�neas que vaya imprimir las tome como DRAFT o borrador.

Gracias por su atenci�n.
Saludos.

excel :: RE: Ayuda para una formula, por favor.

Autor: raulgsan1979
Asunto: Re: Ayuda para una formula, por favor.
Publicado: Mar Jul 22, 2008 8:24 pm (GMT 1)
Tema Respuestas: 2

Con presion no se que quieres pero esta funcion de excel cuenta las celdas que tengan
letras en este caso tus X

CONTARA(Rango)

Espero te Sirva.

excel :: Ayuda por Favor

Autor: raulgsan1979
Asunto: Ayuda por Favor
Publicado: Mar Jul 22, 2008 8:10 pm (GMT 1)
Tema Respuestas: 0

Hola, gracias a sus explicaciones y los codigos que ponen he logrado escribir macros. Pero esta duda que tengo no lo encuentro en el foro. Haber si se puede

Tengo un Libro de trabajo que quiero que trabaje como una base de datos (me diran que lo hagan en Acces, pero yo quiero hacerlo en excel, me es mas facil manejar), bueno el libro esta dise�ado asi:

Hoja1.- Aqui capturo los datos de mis proveedores.
Hoja2.- Es la base de datos donde almaceno toda mi infromacion de Hoja1.
Hasta aqui todo esta bien, algo rustico la manera que paso los datos, pero funciona bien.

Ahora
Hoja3.- Esta hoja es igual a la Hoja1, con la unica diferencia que aqui quiero navegar por los registros de Hoja2 y poder Modificarlos, no tengo mucho conocimientos de macros me podrian hechar la mano para solucionar esto, mi libro me sirve para presentar unos informes de todo el a�o, pero quiero tenerlo ya como un programa, se podra realizar lo que pido.

Por sus respuestas, comentarios y ayuda se los voy agradecer muchisimo.

excel :: Ayuda para una formula, por favor.

Autor: fcoropo
Asunto: Ayuda para una formula, por favor.
Publicado: Mar Jul 22, 2008 6:00 pm (GMT 1)
Tema Respuestas: 2

Buenas tardes,
stoy haciendo un informe y no se como puedo poner una formula, os explico.
Tipo de visita es una columna, presencial es otra columna y segun sea un cliente la marco con una X, etonces necesito calcular cuantas visitas he tenido y nos han conocido por la oficina (por ejemplo). Muchas gracias de antemano, es que me lo han pedido para ya, y no encuentra la formula correcta y adem�s son muchas hojas para contar de una a una. Os agradecere un monton vuestra ayuda.
Muchas gracias de antemano.
A continuaci�n os pongo el ejemplo:

Una olumna / otra columna / otras columnas

Tipo de visita Presencial X
Visitado X
Telef�nico
Email
C�mo conocio Vallas
Oficina de Ventas X
Prensa
Amistad
Buzoneo
Mailing
Radio
Web Promotor
Lona
Feria de Madrid
Feria de Barcelona

General :: Venta:3G iPhone/Nokia N96/Sony Eric XPERIA X1/HTC Diamond

Autor: oyanow
Asunto: Venta:3G iPhone/Nokia N96/Sony Eric XPERIA X1/HTC Diamond
Publicado: Mar Jul 22, 2008 5:40 pm (GMT 1)
Tema Respuestas: 0

AUTHENTIC MOBILE PHONES
Interested buyer should contact Veronica Gilford on
Email: salesperson_veronica@hotmail.com
Email: veronica@salesperson.net

Get your latest mobile phone at cheap and affordable prices, its time to buy cell phone for your self and your love one this season, We provides a Solution and Production of mobile phone, PDA, Pocket PC and Pager. We are always welcome any Mobile phone company orders from both overseas and local customers. With our experiences, we highly focus on our customer's needs and provide the excellent quality products to our customers.

New Apple iPhone and touch
New 3G Apple iPhone 16GB--------$330usd
New Apple iphone 16GB-----------$300usd
New Apple iPhone 8GB------------$250usd
New Apple Iphone 4GB ------------$200usd
New Apple Ipod touch 16 GB-----$200usd
New Apple Ipod touch 8 GB------$150usd

New Nokia phone
New Nokia N96 16---------------$400usd
New Nokia N95 8GB-------------$330usd
New Nokia N82-------------------$300usd
New Nokia N95-------------------$270usd
New Nokia N81 8GB------------$270usd
New Nokia N81-------------------$250usd
New Nokia E90 Communicator---------------$250usd
New Nokia 7900 Prism--------$220usd
New Nokia 7500 Prism--------$200usd
New Nokia 8600 Luna---------$210usd
New Nokia 8800 Sapphire Arte-----$280usd
New Nokia 8800 Sirocco Edition-------------$200usd
New Nokia N800 Internet Tablet-----------$230usd
New Nokia 5300 XpressMusic-----------------$190usd
New Nokia N76-------------------$210usd
New Nokia N75-----------------$200usd
New Nokia 5500 Sport------$200usd
New Nokia N92---------------$180usd
New Nokia N93---------------$200usd
New Nokia N93i---------------$230usd
New Nokia 7360---------------$210usd
New Nokia 7373---------------$220usd
New Nokia 7390---------------$230usd
New Nokia 8800---------------$200usd
New Nokia E60---------------$190usd
New Nokia E65---------------$200usd
New Nokia N73---------------$180usd

New Sony Ericsson phone
New Sony Ericsson G502-----------$500usd
New Sony Ericsson XPERIA X1------$500usd
New Sony Ericsson W980-----------$350usd
New Sony Ericsson W960-----------$300usd
New Sony Ericsson P1-------------$250usd
New Sony Ericsson W910i-----------$250usd
New Sony Ericsson W890-----------$230usd
New Sony Ericsson K850-----------$240usd
New Sony Ericsson W890--------$280usd
New Sony Ericsson W888--------- $260usd
New Sony Ericssson P990----------$250usd
New Sony Ericsson K770-----------$230usd
New Sony Ericsson W880--------- $220usd
New Sony Ericsson K810--------- $230usd
New Sony Ericsson W610--------- $190usd
New Sony Ericsson K550--------- $165usd
New Sony Ericsson K550im--------- $200usd
New Sony Ericsson W830--------- $220usd
New Sony Ericsson W850--------- $250usd
New Sony Ericsson W710--------- $225usd
New Sony Ericsson Z710--------- $260usd
New Sony Ericsson k790A--------- $230usd

New Motorola Phones
New Motorola RIZR Z10---------------$350usd
New Motorola ROKR E8------------$330usd
New Motorola Razr2 V9-------------$310usd
New Motorola Razr2 V8-------------$280usd
New Motorola RIZR Z8---------------$230usd
New Motorola RIZR Z3---------------$200usd
New Motorola ROKR E6---------------$200usd
New Motorola SLVR L9---------------$230usd
New Motorola KRZR K1---------------$190usd
New Motorola KRZR K3---------------$230usd
New Motorola RAZR MAXX---------------$200usd
New Motorola RAZR V3i---------------$180usd
New Motorola RAZR V3xx---------------$180usd
New Motorola A1200------------ $180usd

New Samsung phone
New Samsung G900------------$400usd
New Samsung G800------------$350usd
New Samsung Serenata------------$400usd
New Samsung i780------------$340usd
New Samsung i550------------$330usd
New Samsung i450------------$310usd
New Samsung P520 Armani------------$330usd
New Samsung F700---------------$280usd
New Samsung U700---------------$240usd
New Samsung U600---------------$220usd
New Samsung U300---------------$190usd
New Samsung D900 Ultra Edition---------------$230usd
New Samsung X820 Ultra Edition---------------$150usd
New Samsung X830 / Blush---------------$160usd
New Samsung ZV40---------------$150usd
New Samsung E900---------------$150usd
New Samsung F300 Ultra Music---------------$160usd
New Samsung F500 Ultra Video---------------$190usd
New Samsung D830 Ultra Edition---------------$210usd
New Samsung D840---------------$230usd
New Samsung P940---------------$240usd

New HTC phone
New HTC Touch Diamond---------$400usd
New HTC Advantage X7510-------$350usd
New HTC Advantage X7500-------$320usd
New HTC Touch Dual---------$300usd
New HTC TyTN II---------$300usd
New HTC Touch Cruise------$330usd
New HTC Touch-------$250usd
New HTC TyTN--------$280usd

New E-ten phone
New Eten glofiish M800----------$350
New Eten glofiish X800----------$330
New Eten glofiish M700----------$300
New Eten glofiish X500+----------$280
New Eten glofiish X500----------$250

New I-mate phone
New i-mate Ultimate 9502====$400
New i-mate Ultimate 8502=====$350
New i-mate JAMA=== $320usd
New i-mate Ultimate 9150=====$320usd
New i-mate Ultimate 8150=====$310usd
New i-mate Ultimate 7150=====$280usd
New i-mate Ultimate 6150=====$280usd
New I-mate Ultimate 5150=====$230usd

New LG Phones
New LG KE800 Chocolate Platinum---------------$300usd
New LG KE850 Prada---------------$320usd
New LG KE970 Shine---------------$200usd
New LG KG810---------------$150usd
New LG KG920---------------$160usd
New LG KU800---------------$165usd
New LG U400---------------$200usd

New Sidekick Pager
New LX Brown sidekick---------$2500usd
New Sidekick slide--------$250usd
New D-Wade Limited Edition Sidekick 3---------$200usd
New LRG sidekick 3 special Edition---------------$160usd
New Sidekick 3-----------$130usd
New Sidekick 2----------$100usd

New Laptop
DELL LATITUDE D610------$560usd
DELL LATITUDE D510------$520usd
DELL INSPIRON 9300 -----$630usd
DELL XPS M2010--------$700USD
DELL XPS M1710-------$650USD
SONY VAIO� VGN-UX390N PC NOTEBOOK --------$600usd
SONY VAIO� TX770 PC NOTEBOOK --------$650usd
SONY VAIO� VGN-TX750P/B PC NOTEBOOK -------$650usd
SONY VAIO� VGN-UX280P PC NOTEBOOK ---------$500usd
Lenovo ThinkPad T60p (2623D8U) PC Notebook- $600usd
Lenovo ThinkPad� T43 (1875DMU) PC Notebook- $500usd
Lenovo Thinkpad T60 (1953D9U) PC Notebook- $550usd
Apple MacBook (MA700LL/A) Mac Notebook ----- $500usd
Apple MacBook Pro (MA611LL/A) Notebook ----- $600usd
Apple MacBook (MA254LL/A) Mac Notebook ----- $450usd
Apple iBook G3 (M7698LL/A) Mac Notebook ---- $600usd
Apple MacBook Pro (MA609LL/A) Notebook ----- $550usd
Apple MacBook Pro (MA610LL/A) Notebook ----- $600usd
Apple Macbook Pro (885909119400) Notebook--- $600usd
Apple MacBook AIR 80GB MB003LL/A ----------- $800usd

Thanks
MANAGEMENT.
Email: salesperson_veronica@hotmail.com
Email: veronica@salesperson.net

Como usar estos foros :: Venta:3G iPhone/Nokia N96/Sony Eric XPERIA X1/HTC Diamond

Autor: oyanow
Asunto: Venta:3G iPhone/Nokia N96/Sony Eric XPERIA X1/HTC Diamond
Publicado: Mar Jul 22, 2008 5:32 pm (GMT 1)
Tema Respuestas: 0

AUTHENTIC MOBILE PHONES
Interested buyer should contact Veronica Gilford on
Email: salesperson_veronica@hotmail.com
Email: veronica@salesperson.net

Get your latest mobile phone at cheap and affordable prices, its time to buy cell phone for your self and your love one this season, We provides a Solution and Production of mobile phone, PDA, Pocket PC and Pager. We are always welcome any Mobile phone company orders from both overseas and local customers. With our experiences, we highly focus on our customer's needs and provide the excellent quality products to our customers.

New Apple iPhone and touch
New 3G Apple iPhone 16GB--------$330usd
New Apple iphone 16GB-----------$300usd
New Apple iPhone 8GB------------$250usd
New Apple Iphone 4GB ------------$200usd
New Apple Ipod touch 16 GB-----$200usd
New Apple Ipod touch 8 GB------$150usd

New Nokia phone
New Nokia N96 16---------------$400usd
New Nokia N95 8GB-------------$330usd
New Nokia N82-------------------$300usd
New Nokia N95-------------------$270usd
New Nokia N81 8GB------------$270usd
New Nokia N81-------------------$250usd
New Nokia E90 Communicator---------------$250usd
New Nokia 7900 Prism--------$220usd
New Nokia 7500 Prism--------$200usd
New Nokia 8600 Luna---------$210usd
New Nokia 8800 Sapphire Arte-----$280usd
New Nokia 8800 Sirocco Edition-------------$200usd
New Nokia N800 Internet Tablet-----------$230usd
New Nokia 5300 XpressMusic-----------------$190usd
New Nokia N76-------------------$210usd
New Nokia N75-----------------$200usd
New Nokia 5500 Sport------$200usd
New Nokia N92---------------$180usd
New Nokia N93---------------$200usd
New Nokia N93i---------------$230usd
New Nokia 7360---------------$210usd
New Nokia 7373---------------$220usd
New Nokia 7390---------------$230usd
New Nokia 8800---------------$200usd
New Nokia E60---------------$190usd
New Nokia E65---------------$200usd
New Nokia N73---------------$180usd

New Sony Ericsson phone
New Sony Ericsson G502-----------$500usd
New Sony Ericsson XPERIA X1------$500usd
New Sony Ericsson W980-----------$350usd
New Sony Ericsson W960-----------$300usd
New Sony Ericsson P1-------------$250usd
New Sony Ericsson W910i-----------$250usd
New Sony Ericsson W890-----------$230usd
New Sony Ericsson K850-----------$240usd
New Sony Ericsson W890--------$280usd
New Sony Ericsson W888--------- $260usd
New Sony Ericssson P990----------$250usd
New Sony Ericsson K770-----------$230usd
New Sony Ericsson W880--------- $220usd
New Sony Ericsson K810--------- $230usd
New Sony Ericsson W610--------- $190usd
New Sony Ericsson K550--------- $165usd
New Sony Ericsson K550im--------- $200usd
New Sony Ericsson W830--------- $220usd
New Sony Ericsson W850--------- $250usd
New Sony Ericsson W710--------- $225usd
New Sony Ericsson Z710--------- $260usd
New Sony Ericsson k790A--------- $230usd

New Motorola Phones
New Motorola RIZR Z10---------------$350usd
New Motorola ROKR E8------------$330usd
New Motorola Razr2 V9-------------$310usd
New Motorola Razr2 V8-------------$280usd
New Motorola RIZR Z8---------------$230usd
New Motorola RIZR Z3---------------$200usd
New Motorola ROKR E6---------------$200usd
New Motorola SLVR L9---------------$230usd
New Motorola KRZR K1---------------$190usd
New Motorola KRZR K3---------------$230usd
New Motorola RAZR MAXX---------------$200usd
New Motorola RAZR V3i---------------$180usd
New Motorola RAZR V3xx---------------$180usd
New Motorola A1200------------ $180usd

New Samsung phone
New Samsung G900------------$400usd
New Samsung G800------------$350usd
New Samsung Serenata------------$400usd
New Samsung i780------------$340usd
New Samsung i550------------$330usd
New Samsung i450------------$310usd
New Samsung P520 Armani------------$330usd
New Samsung F700---------------$280usd
New Samsung U700---------------$240usd
New Samsung U600---------------$220usd
New Samsung U300---------------$190usd
New Samsung D900 Ultra Edition---------------$230usd
New Samsung X820 Ultra Edition---------------$150usd
New Samsung X830 / Blush---------------$160usd
New Samsung ZV40---------------$150usd
New Samsung E900---------------$150usd
New Samsung F300 Ultra Music---------------$160usd
New Samsung F500 Ultra Video---------------$190usd
New Samsung D830 Ultra Edition---------------$210usd
New Samsung D840---------------$230usd
New Samsung P940---------------$240usd

New HTC phone
New HTC Touch Diamond---------$400usd
New HTC Advantage X7510-------$350usd
New HTC Advantage X7500-------$320usd
New HTC Touch Dual---------$300usd
New HTC TyTN II---------$300usd
New HTC Touch Cruise------$330usd
New HTC Touch-------$250usd
New HTC TyTN--------$280usd

New E-ten phone
New Eten glofiish M800----------$350
New Eten glofiish X800----------$330
New Eten glofiish M700----------$300
New Eten glofiish X500+----------$280
New Eten glofiish X500----------$250

New I-mate phone
New i-mate Ultimate 9502====$400
New i-mate Ultimate 8502=====$350
New i-mate JAMA=== $320usd
New i-mate Ultimate 9150=====$320usd
New i-mate Ultimate 8150=====$310usd
New i-mate Ultimate 7150=====$280usd
New i-mate Ultimate 6150=====$280usd
New I-mate Ultimate 5150=====$230usd

New LG Phones
New LG KE800 Chocolate Platinum---------------$300usd
New LG KE850 Prada---------------$320usd
New LG KE970 Shine---------------$200usd
New LG KG810---------------$150usd
New LG KG920---------------$160usd
New LG KU800---------------$165usd
New LG U400---------------$200usd

New Sidekick Pager
New LX Brown sidekick---------$2500usd
New Sidekick slide--------$250usd
New D-Wade Limited Edition Sidekick 3---------$200usd
New LRG sidekick 3 special Edition---------------$160usd
New Sidekick 3-----------$130usd
New Sidekick 2----------$100usd

New Laptop
DELL LATITUDE D610------$560usd
DELL LATITUDE D510------$520usd
DELL INSPIRON 9300 -----$630usd
DELL XPS M2010--------$700USD
DELL XPS M1710-------$650USD
SONY VAIO� VGN-UX390N PC NOTEBOOK --------$600usd
SONY VAIO� TX770 PC NOTEBOOK --------$650usd
SONY VAIO� VGN-TX750P/B PC NOTEBOOK -------$650usd
SONY VAIO� VGN-UX280P PC NOTEBOOK ---------$500usd
Lenovo ThinkPad T60p (2623D8U) PC Notebook- $600usd
Lenovo ThinkPad� T43 (1875DMU) PC Notebook- $500usd
Lenovo Thinkpad T60 (1953D9U) PC Notebook- $550usd
Apple MacBook (MA700LL/A) Mac Notebook ----- $500usd
Apple MacBook Pro (MA611LL/A) Notebook ----- $600usd
Apple MacBook (MA254LL/A) Mac Notebook ----- $450usd
Apple iBook G3 (M7698LL/A) Mac Notebook ---- $600usd
Apple MacBook Pro (MA609LL/A) Notebook ----- $550usd
Apple MacBook Pro (MA610LL/A) Notebook ----- $600usd
Apple Macbook Pro (885909119400) Notebook--- $600usd
Apple MacBook AIR 80GB MB003LL/A ----------- $800usd

Thanks
MANAGEMENT.
Email: salesperson_veronica@hotmail.com
Email: veronica@salesperson.net

visual fox pro :: ayuda con combo box

Autor: oxigene
Asunto: ayuda con combo box
Publicado: Mar Jul 22, 2008 4:20 pm (GMT 1)
Tema Respuestas: 0

Buenos dias
necesito una aiuda para un combo box
estoy iniciando a programar con visual foxpro 9
ese es ela pregunta
tengo 3 combo
una con los campos nacional y extranjero
yo quieria que se en el combo 1 esta Nacional me deja ver el combo2 con lista de estados
si el combo esta Extranjero me muestre el combo3 con lista de estado del mundo

muchissima gracias para la ayuda
Carlo
Oxigene

excel :: RE: Ayuda con macro por favor!

Autor: Bernie
Publicado: Mar Jul 22, 2008 2:37 pm (GMT 1)
Tema Respuestas: 4

Ya casi lo tengo resuelto, aunque tuve que casi modificar el c�digo entero...Te quer�a hacer un �ltimo comentario si no es molestia...

Primero: �C�mo podr�a agregar al c�digo del formulario que en la 1� celda libre de C sea igual a esta f�rmula? (1� celda libre columna B) * 1.5/100

Segundo: Para que en la celda de excel me salga con formato (trama, letra,etc) tendr�a que pegar este c�digo dentro del textbox, o agregarlo a la macro?

Te copio el c�digo de formato:

With Selection.Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

excel :: RE: Ayuda con macro por favor!

Autor: damianomarsilva
Publicado: Lun Jul 21, 2008 9:48 pm (GMT 1)
Tema Respuestas: 4

bien, vamos por partes:
problema 1= fechas.
utiliz� la funci�n de vba dateserial(a�o, mes, dia) para formar la fecha y luego imputarla en la celda. no olvides tampoco dar el formato correcto a la celda,mediante el menu "formato/celda/fecha".
te paso un ejemplo:
[code]Sub Fechas()
Dim fecha As Date
fecha = DateSerial(2008, 12, 24)
MsgBox fecha
End Sub[/code

problema 2=no entiendo muy bien cual es tu problema.
puede ser un problema de formato.... aline� la celda a la derecha y listo.
si realmente deja un espacio en blanco, prob� con la siguiente sentencia:
fecha=CDate(Trim(fecha))
o sea: transformo en fecha (cdate) el trim() de fecha. la funci�n trim() quita los espacios en blanco a la derecha e izquierda de la variable.

problema 3=fecha aleatoria: tampoco comprendo del todo. deber�as poner puntos de interrupci�n en tu c�digo y ver que valores tienen las variables que utiliz�s para armar los rangos. quiz�s alguna tenga, por ejemplo, el valor 30 y por eso al azar te la tira en
A30. �se entiende?

en cuanto al orden en que se van seleccionando los controles:
esto se soluciona con la propiedad TabIndex de cada control, que se puede asignar mediante c�digo o bien desde la ventana de propiedades del objeto.
suponte te tienes 4 controles: fecha, nombre, apellido, direcci�n.. entonces, le asign�s un n�mero incremental, correlativo a cada uno en su propiedad TabIndex.
ej: fecha: tabindex=1; nombre: tabindex=2, etc, etc.
en tu caso, ser�a: textbox1: tabindex=1 textbox2:tabindex=2
no te olvides que es MUY conveniente segu�r un orden muy estricto con tabindex, es primordial asignarselo correctamente a todos los controles que existen en el form, empezando por el primero y terminando con el �ltimo. esto incluye a los labels, buttons, etc, etc, para seguir el orden correcto. analic� tu formulario y esta propiedad no se encuentra bien puesta en ningun objeto, por eso ten�s este problema.
te comento algo: existe la propiedad tabstop... si la pon�s en "false" el control nunca recibir� el foco, cosa que es util en algunos casos.
otra mas: si quer�s forzar mediante c�digo a que el foco se vaya a alg�n objeto, deb�s hacer esto:
textbox1.setfocus
y listo.
te doy una mas: si ten�s el tabindex correctamente configurado, pod�s utilizar la propiedad "accelerator" de los controles labels. aqu� deb�s ingresar una letra, para que luego con Alt+esa_letra, el foco se posicione sobre el control.
si ten�s la palabra: Ayuda, en un label, y en acelerator pon�s "u", la letra u aparecer� subrayada y cuando presiones Alt+u el foco se ir� al textbox, combobox, etc, etc que tenga el tabindex siguiente.
suerte.
_________________
Salu2.xls