ayuda para macro excel vba

nauta85 · #1 (**permalink**) 09/05/2010, 12:13

HOLA SALUDOS

SOY NUEVO EN ESTA PAGINA Y TAMBIEN ESTOY INICIANDO CON LA PROGRAMACION EN EXCEL CON ALGO BASICO COMO SON LAS MACROS PERO SE ME PRESENTO UN PROBLEMA Y NO SE COMO RESOLVERLO.

EL PROBLEMA ES EL SIGUIENTE

TENGO EL USERFORM HECHO Y FUNCIONANDO, SOLO QUE TODOS LOS VALORES NUMERICOS QUE LE PONGO ME LOS DA COMO TEXTO EN LA HOJA DE EXCEL Y NO COMO NUMERO QUIERO SABER COMO HACER PARA QUE ESOS NUMEROS ME APRAREZCAN COMO NUMEROS Y ADEMAS EN OTROS QUIERO QUE APRAREZCAN CON SIGNO DE PESO, EN SI ESE ES MI PROBLEMA ESPERO ME PUEDAN AYUDAR.

hola alguien me puede ayudar a entender esta serie de instrucciones se supone que cone stoi puedo hacer lo que estoy buscando pero no lo entiendo y lo peor no se como aplicarlo.

gracias

dim iposicion as integer

dim ivalor as double
dim stexto as string

iposicion = instr(mitexto,".")
Según recuerdo, ahí tenemos la posición del valor del separador decimal.

stexto = mid$(mitexto,1,iposicion-1)
ivalor = val(stexto)

stexto = mid$(mitexto,iposicion+1,len(mitexto)-(iposicion+1))

ivalor = ivalor + (val(stexto)/100)

yenay · #2 (**permalink**) 09/05/2010, 14:49

utiliza la función val() en el codigo para convertir los datos de los textbox a número. con esto, cuando indiques el valor que deben tomar los rangos, excel los considerará número.

Espero que te sirva

nauta85 · #3 (**permalink**) 09/05/2010, 15:55

HOLA YENAY MUCHAS GRACIAS POR TU COMENTARIO YA INTENTE APLICAR EL COMANDO QUE ME DICES PERO NO ME FUNCIONA, O NO LO ESTOY APLICANDO BIEN, AQUI UN POCO DE LO QUE TENGO EN DONDE QUIERO QUE ME APREZCA UN NUMERO EN DONDE APLICO EL COMANDO VAL HABER SI ME PUEDES AYUDAR.

Private Sub TextBox6_Change()
Range("F7").Select
With Selection.Font
.Name = "Candara"
.Size = 8
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
ActiveCell.FormulaR1C1 = TextBox6
Rem aqui voy a poner la multiplicacion de la cantidad por el p.u.
TextBox7 = Val(TextBox5) * Val(TextBox6)
End Sub

Monimo · #4 (**permalink**) 11/05/2010, 07:47

le falta la propiedad de "caption" o "text" a tus textboxes. Si solo pones "Textbox7" estas llamando al control por su nombre pero no le estas diciendo q quieres modificar o ver. debe ser texbox7.text= "texto que quieres poner". Si lo que quieres es desplegar el valor de una multiplicacion te recomiendo que primero hagas al operacion con unas variables asi:

var1=val(textbox1.text)
var2=val(textbox2.text)
resultado=var1*var2

textbox7.text=resultado

nauta85 · #5 (**permalink**) 12/05/2010, 10:27

GRACIAS MONIMO POR TU COMENTARIO

NO HE PODIDO LOGRAR TODAVIA QUE EL TEXT BOX DE COMO RESULTADO UN VALOR NUMERICO Y NO TEXTO NO SE QUE ESTE MAL O POR QUE NO LO HAGA CREO QUE HACE FALTA ALGO MAS Y NO SE QUE ES

MIRA AQUI ALGO QUE HICE CON EL EJEMPLO QUE TU ME DISTE NO ME FUNCIONA, SI HACE LA MULTIPLIZACION Y TODO POR LOS VALORES LOS DA COMO TEXTO SI LO PUEDES CHECAR Y DECIRME QUE ESTA MAL.

rivate Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
Range("A7").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

Private Sub TextBox2_Change()
Range("B7").Select
Cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2
Rem aqui pongo la multiplicacion haber que pasa
Importe = Cantidad * PrecioU
TextBox3.Text = Importe
End Sub

Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub

DE ANTEMANO GRACIAS

nauta85 · #6 (**permalink**) 12/05/2010, 10:41

hola alguien me puede ayudar a entender esta serie de instrucciones se supone que cone stoi puedo hacer lo que estoy buscando pero no lo entiendo y lo peor no se como aplicarlo.

gracias

dim iposicion as integer

dim ivalor as double
dim stexto as string

iposicion = instr(mitexto,".")
Según recuerdo, ahí tenemos la posición del valor del separador decimal.

stexto = mid$(mitexto,1,iposicion-1)
ivalor = val(stexto)

stexto = mid$(mitexto,iposicion+1,len(mitexto)-(iposicion+1))

ivalor = ivalor + (val(stexto)/100)

Monimo · #7 (**permalink**) 13/05/2010, 10:25

o se que quieres hacer y no se si quieres q te explique linea por linea si si ahi te va:

dim iposicion as integer 'iposicion es un contador

dim ivalor as double 'ivalor sera el resultado de la division
dim stexto as string 'stexto el texto que estas separando

iposicion = instr(mitexto,".") 'iposicion es el resultado de buscar en q posicion esta el "." en tu texto

stexto = mid$(mitexto,1,iposicion-1) 'aqui le dices que empezando a contar desde la posicion uno te extraiga todo lo q hay hasta encontrar el punto decimal. esta funcion sirve asi: mid(eltextoquequieres,empezardesdedonde,cuantaslet rasextraer)

ivalor = val(stexto)'convierte todo el texto a numero

stexto = mid$(mitexto,iposicion+1,len(mitexto)-(iposicion+1)) aqui extrae de tu texto todo lo que haya despues del punto.

ivalor = ivalor + (val(stexto)/100) aqui divide el textoe ntre cien pero ya transformado a a numero.

Monimo · #8 (**permalink**) 13/05/2010, 10:28

Cita:

Iniciado por nauta85

ActiveCell.FormulaR1C1 = TextBox3
End Sub

DE ANTEMANO GRACIAS

te falta otra vez el .text y prueba mejor con esto:
ActiveCell.value = TextBox3.text

nauta85 · #9 (**permalink**) 13/05/2010, 13:30

Hola gracias por la descripcion, haber si puedo aplicarlo.

Yo estoy aprendiendo a programar por mi cuenta asi que me es mas dificil, solo con la ayuda que trae el excel es como lo estoy haciendo y con lo que busco de internet por eso es que no tengo claro muchas cosas pero bueno gracias por tu ayuda.

Tengo un hoja de excel que contiene lo siguienets tados

clave fecha concepto unidad cantidad precio u. Importe

las primeras 4 descripciones no tengo problema, donde tengo problema es en las ultimas tres por que ahi quiero poner numeros y no me salen y aparte donde dice

precio u. E importe quiero que aprezca el signo de peso "$" este pero tampoco se como jejej pero seguire buscanco.

Gracias

Monimo · #10 (**permalink**) 13/05/2010, 14:09

prueba esto pesos usa: range("a1").value=Formatcurrency(100,2) y ve lo que sale

nauta85 · #11 (**permalink**) 13/05/2010, 16:58

Cita:

Iniciado por Monimo

prueba esto pesos usa: range("a1").value=Formatcurrency(100,2) y ve lo que sale

hola de nuevo jejejejej la vdd que nada de lo que he intentado me ha quedo jejje pero bueno quizas no hago algo bien o tenga que ver con algun orden en especifico pero bueno gracias de nuevo

saludos desde cancun mexico

ADEMAS NO ENTIENDO POR QUE PONE "MITEXTO" LO PUEDO CAMBAIR O QUE SIGNIFICA ESO

Monimo · #12 (**permalink**) 14/05/2010, 06:48

Tambien existe la funcion "CDbl" esto te lo convierte a numero. Formatcurrency( CDbl(textbox7.text),2) te debe dar lo que quieres. No lo dejes hasta que te salga.

nauta85 · #13 (**permalink**) 14/05/2010, 07:42

Cita:

Iniciado por Monimo

Tambien existe la funcion "CDbl" esto te lo convierte a numero. Formatcurrency( CDbl(textbox7.text),2) te debe dar lo que quieres. No lo dejes hasta que te salga.

HOLA COMO ESTAS DE NUEVO GRACIAS POR LA AYUDA MIRA YA ME QUEDO ESTE QUE ME MANDASTE YA ME LO COMVIERTE A NUMERO, PERO SOLO COMVIERTE A NUMERO LO QUE ES EL IMPORTE, ME FALTA CONVERTIR A NUMERO LO QUE ES

LA CANTIDAD Y EL PRECIOU Y ADEMAS ME FALTA PONERLE EL SIGNO DE PESO MUCHAS GRACIAS SEGUIE INTENTANDO SALUDOS.

Private Sub TextBox2_Change()
Range("B7").Select
Cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2
Rem aqui pongo la multiplicacion haber que pasa
Importe = Cantidad * PrecioU
TextBox3.Text = Importe
End Sub

Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = TextBox3.Text

nauta85 · #14 (**permalink**) 14/05/2010, 08:05

Cita:

Iniciado por nauta85

hola como estas de nuevo gracias por la ayuda mira ya me quedo este que me mandaste ya me lo comvierte a numero, pero solo comvierte a numero lo que es el importe, me falta convertir a numero lo que es

la cantidad y el preciou y ademas me falta ponerle el signo de peso muchas gracias seguie intentando saludos.

Private sub textbox2_change()
range("b7").select
cantidad = val(textbox1.text)
preciou = val(textbox2.text)
activecell.formular1c1 = textbox2
rem aqui pongo la multiplicacion haber que pasa
importe = cantidad * preciou
textbox3.text = importe
end sub

private sub textbox3_change()
range("c7").select
activecell.formular1c1 = textbox3.text

hola de nuevo ya pude convertirlos todos a numeros
ya me sale jejeje
ahora tengo otro problema
jejejje

bueno mi primer problema de numeros quedo resuelto
ahora tengo otros
jejeje
necesito poner como te digo en precio unitario e importe el signo de peso

y ademas manejo numeros con decimales o sea

12.58 x 15.89 = xxxx.xxx por ejemplo no pero cuando le pongo asi me los arroja con una coma y no con el punto. Yson texto de nuevo

como puedo hacer para manejar numeros decimales

graciuas de nuevo

nauta85 · #15 (**permalink**) 16/05/2010, 10:23

necesito poner como te digo en precio unitario e importe el signo de peso

y ademas manejo numeros con decimales o sea

12.58 x 15.89 = xxxx.xxx por ejemplo no pero cuando le pongo asi me los arroja con una coma y no con el punto. Yson texto de nuevo

como puedo hacer para manejar numeros decimales

graciuas de nuevo

Monimo · #16 (**permalink**) 17/05/2010, 08:35

Cita:

Iniciado por nauta85

necesito poner como te digo en precio unitario e importe el signo de peso

y ademas manejo numeros con decimales o sea

12.58 x 15.89 = xxxx.xxx por ejemplo no pero cuando le pongo asi me los arroja con una coma y no con el punto. Yson texto de nuevo

como puedo hacer para manejar numeros decimales

graciuas de nuevo

para poner el signo de pesos: formatcurrency(elnumero que quieras, los decimales q quieras mostrar)

ejemplo si quiero:$ 100.50

pongo formatcurrency(100,2)

si el numero 100 estuviera en la variable "importe" pondría:

formatcurrency(importe,2) es como la séptima vez q lo pongo.. ya lo probaste??

rologa · #17 (**permalink**) 17/05/2010, 13:07

hola disculpen
es que necesito ayuda unos libros de excel lo que pasa es que me son mas de 3 mil registros y c necesitan cambiar uno datos de ellos pero, para ser exactos uno precios los cuales son de productos y cada producto tiene su clave, lo que paso es k actualizaron los precios ahora son otros y quieren ver la manera de hacerlo automatizado. para no tene k modificar los mas de 3mil registros
tengo 1 archivo con los regisros antiguos y uno con los nuevo precios pero no c como hacer la comparacion y el remplazo del precio
agradeceria su ayuda gracias

Monimo · #18 (**permalink**) 17/05/2010, 16:42

Cita:

Iniciado por rologa

hola disculpen
es que necesito ayuda unos libros de excel lo que pasa es que me son mas de 3 mil registros y c necesitan cambiar uno datos de ellos pero, para ser exactos uno precios los cuales son de productos y cada producto tiene su clave, lo que paso es k actualizaron los precios ahora son otros y quieren ver la manera de hacerlo automatizado. para no tene k modificar los mas de 3mil registros
tengo 1 archivo con los regisros antiguos y uno con los nuevo precios pero no c como hacer la comparacion y el remplazo del precio
agradeceria su ayuda gracias

Abre un nuevo tema ROLOGA

javierrojas77 · #19 (**permalink**) 22/05/2010, 10:43

Hola todos también soy nuevo y nose como plantear 1 tema o una pregunta en el foro, quisiera mas que todo aprender o una guia en esto de VBA en excel ( macros), espero me puedan ayudar