
26/02/2011, 10:31
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 10 meses Puntos: 88 | |
Copiar datos de una hoja a otra dependiendo de otra celda Hola! Silvanha.
Me parece que será más sencillo aplicando un Autofiltro, por ejemplo así: Código PHP: Sub copia_primer_sem_New() Dim rng As Range
ActiveSheet.AutoFilterMode = False Set rng = [b15:c15] If [b16] <> "" Then Set rng = Range("B15:C" & [b15].End(xlDown).Row) With rng .Offset(-1).Resize(1 + .Rows.Count).AutoFilter 1, 1 .Columns(2).Copy Sheets("1ER SEM(MAT) -").[b17].PasteSpecial Paste:=xlPasteValues .Offset(-1).Resize(1 + .Rows.Count).AutoFilter 1, 2 .Columns(2).Copy Sheets("1ER SEM(VES) -").[b17].PasteSpecial Paste:=xlPasteValues End With
ActiveSheet.AutoFilterMode = False End Sub
¿Te puede servir?
Saludos, Cacho. 
Última edición por mrocf; 26/02/2011 a las 11:46 |