Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

llenando por filas

13/04/2004 - 21:36 por Javier Avila | Informe spam
Ayuda Hacer una pregunta
Hola a todos
Quisiera que me den una mano con este proyecto que tengo para crear un
informe diario de mis egresos/ingresos, hace unos dias les pregunte que
se podia hacer y Fernando Arroyo me dio una mano (gracias Fer!!).
Al parecer mi falta de conocimientos para 'debugguear' no me está
dejando complentar la tarea puesto que cuando implemento esta linea en
'thisworkbook":
Dim lngFilaLibreEnColumnaA As Long
lngFilaLibreEnColumnaA = Worksheets("Comprobante de
Ingreso").Range("A65536").End(xlUp).Row + 1

Me da un error de compilacion.

Quisiera saber como insertar un texto que escriba en un cuadro de
dialogo digamos:

Dim nombre as string
Dim monto as string

Nombre = InputBox("A que nombre el cheque?", "Nombre")
Monto = InputBox("Indique el monto del cheque")


Entonces que esos strings se vayan acomodando en un par de columnas
conforme van apareciendo.
COL_A COL_B
FILA_1 javier avila 20
FILA_2 juan perez 200
FILA_3 carlos juarez 100
...

y asi sucesivamente. Es posible? o me estoy metiendo a camisa de 11
baras? alguien me puede seguir dando la mano? gracias a todos por su
tiempo y les agradezco por adelantado.


Javier Avila
Administrador de Sistemas
VISCARRA
Ópticas & Laboratorios
Tel.: 3322664 Int.: 105


"...LEY DE QUIGLEY. Un coche y un camión que se van a cruzar en una
carretera desierta, se encontrarán siempre en el paso más estrecho."
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Servando
13/04/2004 - 23:04 | Informe spam
Javier:
La siguiente es una rutina super simple, pero que debe
funcionar; esta la debes poner en un modulo.

Copiala y simplemente correla... se parara en el momento
que le des aceptar sin capturar nada.

Sub Captura()
Dim Nombre As String, Monto As String
Nombre = InputBox("A que nombre el cheque?", "Nombre")
Monto = InputBox("Indique monto del cheque", "Cheque")

While Nombre <> ""

Range("A65536").End(xlUp).Offset(1, 0).Value = Nombre
Range("A65536").End(xlUp).Offset(0, 1).Value = Monto
Nombre = InputBox("A que nombre el cheque?", "Nombre")
Monto = InputBox("Indique monto del cheque", "Cheque")
Wend
End Sub

Saludos
Servando Villalon

Hola a todos
Quisiera que me den una mano con este proyecto que tengo


para crear un
informe diario de mis egresos/ingresos, hace unos dias


les pregunte que
se podia hacer y Fernando Arroyo me dio una mano


(gracias Fer!!).
Al parecer mi falta de conocimientos para 'debugguear'


no me está
dejando complentar la tarea puesto que cuando implemento


esta linea en
'thisworkbook":
Dim lngFilaLibreEnColumnaA As Long
lngFilaLibreEnColumnaA = Worksheets("Comprobante


de
Ingreso").Range("A65536").End(xlUp).Row + 1

Me da un error de compilacion.

Quisiera saber como insertar un texto que escriba en un


cuadro de
dialogo digamos:

Dim nombre as string
Dim monto as string

Nombre = InputBox("A que nombre el


cheque?", "Nombre")
Monto = InputBox("Indique el monto del cheque")


Entonces que esos strings se vayan acomodando en un par


de columnas
conforme van apareciendo.
COL_A COL_B
FILA_1 javier avila 20
FILA_2 juan perez 200
FILA_3 carlos juarez 100


y asi sucesivamente. Es posible? o me estoy metiendo a


camisa de 11
baras? alguien me puede seguir dando la mano? gracias a


todos por su
tiempo y les agradezco por adelantado.


Javier Avila
Administrador de Sistemas
VISCARRA
Ópticas & Laboratorios
Tel.: 3322664 Int.: 105


"...LEY DE QUIGLEY. Un coche y un camión que se van a


cruzar en una
carretera desierta, se encontrarán siempre en el paso


más estrecho."


.

Preguntas similares

 

Busqueda sugerida :