Problemita en el código de macro

17/05/2004 - 02:51 por Luis Menéndez | Informe spam

Estimados todos , quisiera que la variable seccion tomara el valor que haya
en la celda cells(fila, columna) para , en función del valor que tome
seccion borrar la fila en la que se encuentra ese valor o no. El deurador se
me para en " seccion = Cells(fila, columna).Value " ¿por que? "
Gracias

Sub Borrar_Secciones()

Dim fila As Integer
Dim columna As Integer
Dim seccion As Integer
columna = 1
fila = 1
Do
seccion = Cells(fila, columna).Value
If seccion = 0 Or seccion = 7 Or seccion = 13 Then Rows(fila, fila).Delete
shift
End If
fifa = fila + 1
Cells(fila, columna).Activate
Loop Until IsEmpty(ActiveCell)

End Sub

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

No me funciona el código para ejecutar una Macro???

Leer las respuestas

#1 Adobes

17/05/2004 - 03:55 | Informe spam

Entiendo que lo que deseas es que se eliminen las filas en
las que el valor de la primera celda (fila,1) sea 0, 7 ó
13.

De ser así prueba con esto:

Dim fila As Integer, columna As Integer
Dim seccion As Integer
columna = 1
fila = 1
Do
seccion = Cells(fila, columna).Value
If seccion = 0 Or seccion = 7 Or seccion = 13 Then
Rows(fila).Delete
fila = fila - 1
End If
fila = fila + 1
Cells(fila, columna).Activate
Loop Until IsEmpty(ActiveCell)

Saludos desde Zaragoza-España

Estimados todos , quisiera que la variable seccion tomara

el valor que haya

en la celda cells(fila, columna) para , en función del

valor que tome

seccion borrar la fila en la que se encuentra ese valor o

no. El deurador se

me para en " seccion = Cells(fila, columna).Value " ¿por

que? "

Gracias

Sub Borrar_Secciones()

Dim fila As Integer
Dim columna As Integer
Dim seccion As Integer
columna = 1
fila = 1
Do
seccion = Cells(fila, columna).Value
If seccion = 0 Or seccion = 7 Or seccion = 13 Then Rows

(fila, fila).Delete

shift
End If
fifa = fila + 1
Cells(fila, columna).Activate
Loop Until IsEmpty(ActiveCell)

End Sub

.

Responder a este mensaje

#2 Manuel Romero

17/05/2004 - 21:03 | Informe spam

Cuando el codigo se ejecuta, hay una hoja de calculo seleccionada?

"Luis Menéndez" escribió en el
mensaje news:

Estimados todos , quisiera que la variable seccion tomara el valor que

haya

en la celda cells(fila, columna) para , en función del valor que tome
seccion borrar la fila en la que se encuentra ese valor o no. El deurador

me para en " seccion = Cells(fila, columna).Value " ¿por que? "
Gracias

Sub Borrar_Secciones()

Dim fila As Integer
Dim columna As Integer
Dim seccion As Integer
columna = 1
fila = 1
Do
seccion = Cells(fila, columna).Value
If seccion = 0 Or seccion = 7 Or seccion = 13 Then Rows(fila, fila).Delete
shift
End If
fifa = fila + 1
Cells(fila, columna).Activate
Loop Until IsEmpty(ActiveCell)

End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida