Visual Basic para Aplicaciones - VBA para Excel

Life is soft - evento anual de software empresarial
 
Vista:

VBA para Excel

Publicado por Carlos (1 intervención) el 10/09/2004 15:41:48
Estoy Creando una aplicacion en Visual Basic para Excel,
y necesito leer los datos de una celda concreta (guardado como 2 variables, la columna y la fila)
el codigo:
Dim Columna As String
Dim Fila As Integer
Dim Celda As String
Dim Resultado As Double

Celda = Columna + Fila
Resultado = Range(Celda).Value2

me da error de ejecucion en la ultima fila ("resultado...Vaule")
que error de codigo estoy haciendo? qual es la solucion?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:VBA para Excel

Publicado por frany (36 intervenciones) el 10/09/2004 22:39:09
Hola que tal , te mando un ejemplo de como sumar las celdas en la columna 2 , y mostrando el resultado al final del ultimo numero.

el comando seria Cells(fila,columna)

suerte

Sub suma()

fila = 1
Columna = 2

'contar cuantos valores tiene la columna
Do
fila = fila + 1
valor = Cells(fila, Columna).Value
If valor = "" Then Exit Do
nvalores = nvalores + 1

Loop

fila = 2
Do While fila < nvalores + 1

suma = suma + Cells(fila, Columna)
fila = fila + 1

Loop

'da el valor de la suma en la fila siguiente a la ultima
Cells(nvalores + 2, Columna) = suma

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VBA para Excel

Publicado por Luis Contreras (1 intervención) el 09/10/2004 18:05:28
Esta es la solución:

Resultado = Worksheets("Hoja1").cells(Fila, Columna).value

Cuando necesites concatenar caracteres como "A" y "3" para hacer "A3"

será Celda = Fila & Columna

si Fila ="A" y columna =3
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VBA para Excel

Publicado por nestor (2 intervenciones) el 08/11/2004 20:42:31
lo que quieres hacer es leer la ubicacion de la celda, para eso tendras que usar un bolean y trabajar con la variable targe.
pero si deseas.
solo asiganr valores y obtener un resultado
esto
sub carlos()
dim x1 as integer
dim x2 as integer
x1=woorsheet(hoja1).cells(4.5)
x2=woorsheet(hoja1).cells(5,5)
cells(6,5)=x1+x2
end
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar