Visual Basic para Aplicaciones - Escribir un valor en una celda

Life is soft - evento anual de software empresarial
 
Vista:

Escribir un valor en una celda

Publicado por Alejandro A. Llerandi (13 intervenciones) el 26/07/2005 04:18:17
Hola, necesito, por medio de macros, escribir valores en celdas. ¿Cómo sería el código para hacerlo?
Desde ya muchas gracias.
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:Escribir un valor en una celda

Publicado por bekyna (44 intervenciones) el 26/07/2005 20:05:24
mira para lo que necesitas hay varias formas, te doy un ejemplo de una

Sub eliminar_99C()
TReglonFin = InputBox("Reglon Final")
For j = 1 To TReglonFin
celda = "C" & CStr(j + 1)
resultado = Range(celda).Value
If resultado = -99 Or resultado = -99.99 Then
dato = ""
Range(celda).Value = dato && asigno el valor a la celda.
End If
Next j
End Sub
otra forma

Worksheets("Resultado_Promedios").Activate &&me refiero a la hoja Resultados...
Range("A2").Select &&escojo mi celda
ActiveCell.Value = "1" &&pongo el valor

Puedes utilizar valores como este caso “1” definidos o asignarle variables como en el caso de arriba o asi
Range("A2").Select &&escojo mi celda
ActiveCell.Value = dato &&pongo el valor

si tienes dudas te puedo enviar un ejemplo
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:Escribir un valor en una celda

Publicado por bekyna (44 intervenciones) el 26/07/2005 20:05:25
mira para lo que necesitas hay varias formas, te doy un ejemplo de una

Sub eliminar_99C()
TReglonFin = InputBox("Reglon Final")
For j = 1 To TReglonFin
celda = "C" & CStr(j + 1)
resultado = Range(celda).Value
If resultado = -99 Or resultado = -99.99 Then
dato = ""
Range(celda).Value = dato && asigno el valor a la celda.
End If
Next j
End Sub
otra forma

Worksheets("Resultado_Promedios").Activate &&me refiero a la hoja Resultados...
Range("A2").Select &&escojo mi celda
ActiveCell.Value = "1" &&pongo el valor

Puedes utilizar valores como este caso “1” definidos o asignarle variables como en el caso de arriba o asi
Range("A2").Select &&escojo mi celda
ActiveCell.Value = dato &&pongo el valor

si tienes dudas te puedo enviar un ejemplo
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