djpawngdl

Re: busqueda en combo box

Temgo un problema pues quiero que mediante un combo me muestre en pantalla cierta informacion filtrada, mas no encuentro la solucion podrian ayudarme con la progrmacion??

buscarv, sube tu archivo

Lo que pasa es que no tengo userform sino que una contraseña del sistema en VB, osea un InputBox que es el que quiero poerle un cambio de color para cuando ingrese la clave se vean solo puntitos o bien no se vea ninguna escritura en pantalla.

sube tu archivo

Hola amigos:

Será posible hacer que la clave de ingreso sea visible en pantalla solo como puntos, a fin de que otros usuarios no vean qué clave estoy ingresando? También podria ser cambiar el color a letras de la clave y dejarlas color blanco.

Son pequeños detales que marcan la diferencia entre lo público y lo privado... creo yo.

Agradecido de su colaboración desde ya.

Atentos saludos

Adjunto código de clave que estoy usando:

Sub Cambio_de_Mes_Tributario()

clave = InputBox("FAVOR INGRESE CLAVE DE ACCESO PARA CAMBIO DE MES TRIBUTARIO ACTUAL de " & Sheets("Inicio").Cells(5, 20), _

" R y L cía Ltda, Mes " & Sheets("Inicio").Cells(5, 20))

If clave <> "cambiarmes" Then Exit Sub

UserForm25.Show

End Sub

En lugar de utilizar un inputbox mejor utiliza un textbox, es decir las mismas instracciones que estas dando dejalas igual pero en lugar de poner inputbox= llama a otro userform en el cual pongas un textbox y un commandbutton y en las propiedades del textbox poner password char *,x o el simbolo que quieras

Re: busqueda en combo box

Hola a todos! me he inscrito en este foro porque me parece muy interesante y todos son muy acertados en sus respuestas. Mi problema es el siguiente: Tengo una hoja con toda la lista de mis clientes y sus respectivos datos y en otra hoja tengo el formato de mi factura. Cuando yo selecciono del combo box el cliente me paparece en automatico su respectiva informacion (direccion, rfc, etc)

Ahora, lo que quiero hacer es tener una forma de buscar el cliente, quiza anotando el primer nombre, pues de otra forma tengo que ir recorreindo el scroll hasta que lo encuentre y pues pierdo tiempo porque son muchossss.

Espero su respuesta. Muchisimas gracias.

Esbira.

prueba con esto http://rapidshare.com/files/368558822/pruebas.xls

Hola agradesco a todos los que se toman el tiempo en dar respuesta a las consultas

estuve viendo en el foro el tema de macro y visual basic.

Resulta que aprendi a crear formulario en vb, pero no lo puedo llevar a la hoja de excel

agradeceria indicar como..

De antemano gracias.

Deberias de seguir leyendo por la red, ya que no es muy claro lo que quieres saber, un formulario es un fomulario y 1 hoja de excel es otra cosa, aunque van juntos o estas en uno o en otro, no en los 2 a la vez, o si te refieres a llamarlo es asi

'el nombre de tu formulario.show[/CODE]

lo dificil es el codigo no el diseño, deberas de subir un archivo para saber lo que quieres que haga

Re: ¿Me podrían orientar en cómo colocar una macro para cerrar sin guardar?

Saludos y gracias a todos y de una manera especial a todos y cada uno de aquellos que se toman la molestia y el tiempo en leernos y ayudarnos a los que tenemos poco conocimientos en excel pero si muchas dudas.

Ahora si mi problema es este no he podido colocarle a este libro una macros para cerrar sin guardar

gracias de antemano por su orientacion y sugerencias

lo olvidaba contraseña del archivo es sesamo

Private Sub salir_sin_guardar()

Application.DisplayAlerts = False

'si solo quieres cerrar el libro solo poner esta linea no la siguiente

Activeworkbook.close

'para salir por completo de excel sustituye la linea anterior por esta

Application.Quit

End sub

Re: Presupuesto con BUSCARV

Hola, estoy intentando hacer un presupuesto que traiga los precios y codigos (de otra hoja) en base a un listbox ( que seria la descripccion)

logre hacerlo con la funcion BUSCARV, pero los valores que no ingreso nada me quedan #N/A, lo que me falta es que si el campo no lo uso , no se vea sobre todo cuando lo mando a imprimir.

adjunto xls, http://www.mediafire.com/?1kiodmjywz2

Muchas gracias.

Checa el adjunto, creo que es lo que necesitas, solo falta bloquear las formulas para que no se editen

presupuesto.zip

Re: Presupuesto con BUSCARV

buenas puedes usar la formula

=si.error(aqui la colocas l aformula que usas de buscar;"")

por lo que si no existe la busqueda te dara como resultado ""

osea celda en blanco

un saludo

=si(esnod(buscarv($a$1,hoja2!$a$2:$b$100,2,0)),"",buscarv($a$1,hoja2!$a$2:$b$100,2,0))

Re: Asociar Textbox a Celda

Un saludo nuevamente a todos

Compañeros, la presente es para generar un botón que me busque datos. Tengo una UserForm, dónde se guardan datos de facturas y la idea es que exista un botón que me devuelva datos. Es decir un comandbutton que me permita, al ingresar el número de la factura en un text box, me asocie los datos guardados para esa factura. Anexo fichero, está en uf3.

Anexo también mi intento de código, que al parecer no funciona

txtfact5.Enabled = True

txtfact5.Value = ""

txtfact5.SetFocus

Dim ifila As Long

If txtfact5 = Sheets(7).Cells(ifila, 1).Value Then

Sheets(7).Cells(ifila, 2) = cbox1.Value

Sheets(7).Cells(ifila, 3) = txtfact1.Value

Sheets(7).Cells(ifila, 4) = txtfact2.Value

Else

MsgBox "Factura no registrada"

Agradecimientos de antemano

Javier

Checa el adjunto a ver si es algon como lo que necesitas

Aprendiendo.zip

Re: Mostrar mensaje de alerta

Hola Antonio:

Revisa el archivo adjunto.

Me tome la libertad de modificar tu codigo, espero que no te moleste

en Hoja 1 quedaria asi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

fil = Target.Row

col = Target.Column

If fil = 0 Or col > 0 Then

Fondo

End If

End Sub

y en la macro de fondo quedaria asi

Public Sub Fondo()

If Hoja1.Range("e2").Value <= Hoja1.Range("b2").Value * 0.3 Then

MsgBox ("El Fondo se está agotando. Por favor, solicite reintegro de lo gastado")

End If

End Sub

Hola amigos , saludandolos y con otra consulta ahora en macros.

tengo un libro con 6 hojas.

una hoja principal (PORTADA)

y otras 5 hojas (TRABAJADORES)

En la pagina portada quiero tener 5 botones que al hacer clic te manden a una determinada hoja, segun el nombre que elija.

y un boton en cada hoja de trabajadores, que te regresen a la pagina principal(PORTADA).

ASI DE SIMPLE, GRACIAS POR LA AYUDA

Y SALUDOS A TODOS DESDE PERU.

......................................

Sub a_hoja_2()

'con boton control de formulario

Sheets("hoja2").Activate

Range("a1").Select

End Sub

Private Sub CommandButton1_Click()

'con boton de control activeX

Sheets("hoja2").Select

End Sub

Hola amigos, quiero cerrar el archivo desde un boton que tengo en un formulario de excel, En el boton debera estar la macro para cerrar el archivo, e inhabilitar la | X | del formulario. Gracias, de antemano.

Saludos

Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer)

If CloseMode = 0 Then

MsgBox "DESHABILITADO", vbInformation, "PRESIONE EL BOTON DE CERRAR "

cancel = 1

CloseMode = 1

End If

End Sub

Y EN EL BOTON

Private Sub CommandButton1_Click()

'si deseas gurdar el contenido antes de cerrar el libro

activeworkbook.save

'si deseas cerrar el libro

activeworkbook.close

'si deseas salir por completo de excel entonces sustituir la instruccion anterior por esta

application.quit

End Sub

Re: Como me puedo salir de este MsgBox sin que la instrucción se cumpla?

prueba con esto

if msgbox("DESEA COMPILAR ESTOS DATOS",VBINFORMATION+VBYESNO,"LO QUE GUSTES")=VBYES THEN

'Aqui va tu macro en caso de que seleccionen que si

Else

'aqui debes de poner el fin de la instruccion

Unload 'el nombre de tu userform

End If

End Sub

Hola amigos, nuevamente agradeciendo de antemano por su apoyo. Bueno esta ves necesito tambien de su ayuda, ya que lo que quiero hacer eso lo siguiente: Quiero que al abrir un archivo de excel cargue un formulario, en ese formulario debe tener un boton donde yo pueda abrir un directorio "X" para seleccionar que archivo(s) deseo abrir.

Posteriormente se debe el archivo y se debera ocultar el formulario.

Cuando yo tenga que cerrar el archivo abierto por el formulario, debera mostrarme nuevamente el formulario que contiene el boton para abrir archivos.

Tambien envio un archivo haciendo idea a lo que expongo.

Gracias de antemano amigos.

Saludos!!

Creo que en VBA no se puede, porque a la parecer quieres un control DirListBox que se usa en VB y no en VBA

Respuesta: Detectar si hay mas de 1 libro abierto

Encontre esto por otro foro por si a alguien le sirve

Dim WB As Workbook

For Each WB In Workbooks

If WB.Name <> ThisWorkbook.Name Then

WB.Close savechanges:=False

End If

Next WB

Esto va en workbook open

Que tal amigos del foro, necesito saber si es posible mediante alguna instruccion en vba que excel me detecte si hay mas libros abiertos, ya que tengo una instruccion a un libro que me limita el numero de usos, la cual es la siguiente

usos = Sheets("PEDABA").Range("A3")

If usos = 0 Then MsgBox "llame al administrador"

Sheets("PEDABA").Range("A4") = Sheets("PEDABA").Range("A4") + 1

If usos = 0 Then CLAVES.Show

Application.WindowState = xlMinimized

Me.Windows(1).WindowState = xlMinimized

entrada.Show

End Sub

en caso de que el numero de usos ya esta en cero se abre este userform, el cual ya funciona a la perfeccion,

Private Sub CommandButton1_Click()

If usuario = "***" And contraseña = "***" Then

CLAVEUSOS = InputBox("INGRESE EL NUMERO DE USOS PARA ESTA LICENCIA")

Sheets("PEDABA").Select

Range("A2") = CLAVEUSOS

Sheets("pedaba").Range("a4") = 1

MsgBox " SE HAN INGRESADO MAS LICENCIAS DE USO", vbOKOnly, "CONTROL DE INVENTARIOS"

Sheets("PEDABA").Range("a3") = "=-A4+A2"

CLAVES.Hide

entrada.Show

End If

MsgBox "CONTRASEÑA INCORRECTA", vbOKOnly, "CONTROL DE INVENTARIOS"

MsgBox " DEBE LLAMAR AL ADMINISTRADOR DEL LIBRO ", vbOKOnly, " CONTROL DE INVENTARIOS"

End Sub

el problema es que si tengo otro libro abierto pueden mediante el editor de vba entrar a mi otro libro y no quiero que ni siquiera entren a las hojas de calculo, ya que si se modifica de manera manual la hoja "pedaba" en el rango de licencias "a2,a3 y a4" de nada me sirve, el codigo anterior

Concretamente se puede mediante algun codigo detectar si hay otro libro abierto y si este se abre estando otro abierto se cierre acutomaticamente

muchas gracias

Respuesta: Boton Grabar y borrar registro

innecesarios

Respuesta: Office Live workspace

pues en general cuando trabajo en un archivo procuro abrirlo de workspace e inmediantamente despues le doy guardar en la pc, todo el tiempo estoy guardandolo en la pc y al final ya que termino cualquier modificacion procuro subirlo pero desde internet no desde excel intenten asi y veran que realmente le pueden sacar provecho al live workspace

Respuesta: Hoja pesada, es decir muy lenta

posiblemente al inicio de las instucciones en las macros debas de poner AplicationScreenupdating = false a mi se me hacen mas ligeros los procesos

Que tal, de nueva cuenta saludandolos, llevo unos dias utilizando el sitio de office live y la verdad no se si alguien de ustedes lo use, para los que no lo conozcan les recomiendo que lo visiten http://workspace.officelive.com lo interesante de este sitio es que te funciona como un disco duro y los archivos siempre que los modifiques se modifican en tiempo real, anteriormente yo traia todos mis archivos en usb, pero al meterlos en una y otra maquina no me acordaba de las modificacion que iba haciendo en un a y otra, solo tienen que bajar el add-on desde la misma pagina y a trabajar.

Respuesta: limpiar textbox

Hola djpawngdl:

Prueba con estos codigos, estoy buscando en el foro pero no lo encuentro alli habia algunos tutos

Private Sub Cancelar_Click() 'limpia los controles

'Unload UserForm2

'UserForm2.Show

For Each c In Me.Controls

On Error Resume Next

c.Value = Empty

Next

End Sub

Private Sub CommandButton1_Click()

Dim Ctrl As Control

For Each Ctrl In UserForm1.Controls

If TypeOf Ctrl Is MSForms.TextBox Then

Ctrl = Empty

End If

Next Ctrl

End Sub

me funciono a la perfeccion, muchas gracias

Que tal, otra vez solicitando se du valiosa ayuda, tengo un userform que continene aproximadamente 1000 textbox porque esta en varias pestañas, como puedo hacer mediante un command button que todos los textboxes se se limpies si necesidad de meter codigo de uno por uno

gracias

Respuesta: Ayuda para convertir unidades a cajas completas

Hola djpawngdl.

En la celda F19: =A4+ENTERO(B4/12)

y en la G19: =RESIDUO(B4;12)

en este caso ; es el separador de argumentos. Si el tuyo es la coma, no olvides cambiarlo.

Espero que te sirva. Un saludo.

muchisimas gracias, habia solucionado algo con esta formula,

=SI(B4>=12,A4+1,A4)+SI(B4>=24,1)+SI(B4>=36,1)+SI(B4>=48,1)+SI(B4>=60,1)+SI(B4>=72,1)+SI(B4>=84,1)+SI(B4>=96,1)+SI(B4>=108,1)+SI(B4>=120,1)

pero indiscutiblemente tu propuesta es mejor

Necesito de su valiosa ayuda, tengo un archivo en el cual necesito que se hagan conversiones es decir, si vendo cierto numero de unidades de un producto sueltas me convierta en otra celda a cajas completas

ventas del dia

A

cajas

12

B

piezas

35

c

conversion a cajas es decir si eran 12 cajas y cada una contiene 12 piezas que me arroje 14 cajas

14 cajas

d

restar de las 35 piezas las 24 que ya se convirtieron a cajas completas y me arroje 11 piezas

11 piezas

gracias, espero haber sido claro, anexo un archivo para ver si alguien me puede ayudar

ayuda archivo conversion1.zip

Respuesta: Acumular datos en una hoja desde otra hoja de entrada de datos

Hola expertos excelianos. Necesito crear un libro con una hoja de entrada de datos y una segunda con el acumulado por filas de la información que se introduzca en la primera. Me facilitaría muchísimo el tiempo de trabajo que tengo que realizar si lograra conseguir esto. Saludos admirables por vuestros conocimientos.

necesitas subir un archivo con tus necesidades para que alguien por aqui te pueda ayudar