Foros del Web » Soporte técnico » Ofimática »

Macros en Excel: .Range(Cells

Estas en el tema de Macros en Excel: .Range(Cells en el foro de Ofimática en Foros del Web. Holas soy nuevo en el tema de macros.. estoy haciendo un macro que me mueva filas de una hoja a otras. dependera del valor de ...
  #1 (permalink)  
Antiguo 10/08/2012, 01:12
 
Fecha de Ingreso: enero-2008
Ubicación: Perú
Mensajes: 40
Antigüedad: 13 años, 2 meses
Puntos: 0
Pregunta Macros en Excel: .Range(Cells

Holas soy nuevo en el tema de macros.. estoy haciendo un macro que me mueva filas de una hoja a otras.
dependera del valor de una celda para que cada fila vaya a una hoja determinada.


Pero me tira error la siguiente linea:

mis hojas son: principal, interesados, nointeresados, seguimiento, noesta
Código:
 principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=interesados.Range(Cells(celda, 1))
Al parecer si uso Range con Cells me tira error, si uso Range solo todo esta ok.. pero lo malo es que necesito usar range con cells para ubicarme en determinadas celdas.. alguien me puede decir que estoy haciendo mal? llevo varias horas y por mas que busco referencias no encuentro.. Es mas eh seguido la ayuda del excel y no veo error. Help

Adjunto mi codigo completo hasta ahora

Código:
Sub filtrarbaseventas()
Dim celda  As Long
Dim celdamax As Long



celdamax = principal.UsedRange.Rows.Count

For celda = 1 To celdamax

  Select Case principal.Cells(celda, 2).Value
     
     Case "interesado"
          principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=interesados.Range(Cells(celda, 1))
          
          
    
     Case "No interesado"
           
           principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=nointeresado.Range(Cells(celda, 1))
           
           
          
          
     Case "Seguimiento"
          principal.Range(Cells(celda, 1), Cells(celda, 13)).Cut Destination:=seguimiento.Range(Cells(celda, 1))
          
          
     Case "No esta"
          principal.Range(Cells(celda, 1), Cells(celda, 13)).Cut Destination:=noesta.Range(Cells(celda, 1))
          
      Case Else
      
  
  End Select
  
Next celda




End Sub
  #2 (permalink)  
Antiguo 12/08/2012, 09:30
Avatar de lufe  
Fecha de Ingreso: mayo-2009
Mensajes: 294
Antigüedad: 11 años, 10 meses
Puntos: 15
Respuesta: Macros en Excel: .Range(Cells

Puedes poner tu archivo de Excel para bajar?

aunque sea borrando los datos críticos si tienen nombre o lo que fuera?

Etiquetas: excel, macro, macros
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:16.