Macro que passa coluna a valor

Bom dia,

Preciso da vossa ajuda,

Tenho uma macro no excel, que me passa uma coluna inteira para valor se determinada célula é igual a uma data:

Sub AleVBA_834V3()
Dim iCell As Range

For Each iCell In ActiveSheet.Range("P10:EE66")
   If iCell.Value = Range("d5").Value Then
       iCell.Offset(1, 0).Select
       ActiveCell.EntireColumn.Copy
       ActiveCell.EntireColumn.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
   End If
Next iCell
Application.CutCopyMode = False
End Sub


O que eu pretendo é que não seja a coluna toda a passar para valor, mas apenas as células até à linha 68 de determinada coluna, que varia de acordo com a regra que se encontra na macro em cima.

Obrigado

CJCM

Bom dia!!

Eu não entendi muito bem, porque não muda a

Código:

For Each iCell In ActiveSheet.Range("P10:EE66")

para

Código:

For Each iCell In ActiveSheet.Range("P10:EE68")

Att

O problema acho que não é ai, mas sim em:

ActiveCell.EntireColumn.Copy
ActiveCell.EntireColumn.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

Esta parte do comando diz para passar a valor a coluna toda, sem limite do nº da linha.

Bom dia!

E como seria o critério para que não altere toda a coluna?

Att

O critério é o mesmo If iCell.Value = Range("d5").Value Then, no entanto a coluna onde esta condição se verifica só deve ficar em valor até à linha 68 e não toda a coluna. Espero ter-me feito entender.

Obrigado

CJCM

Bom dia!!

Eu preciso saber como é os dados do seu arquivo!

Exemplo:
Em "P10:EE66" tem formulas?

Em "D5" é valor

Tem como postar seu arquivo modelo???????????

Att

Em anexo um exemplo.

A macro deve passar para value as células da coluna cujo valor da linha 3 é igual ao valor da célula F1. No exemplo como é dia 20-07-2014, as células G4:G17 deveriam passar a valor e não a coluna G.



http://we.tl/rTbJtWwYbo

Obrigado

CJCM

Bom dia!!

Tente isso!

Código:

Sub AleVBA_872()
Dim iCell As Range
    For Each iCell In ActiveSheet.Range("C3:J3")
        If iCell.Value = Range("F1").Value Then
            iCell.Offset(1).Resize(7).Value = iCell.Offset(1).Resize(7).Value
            iCell.Offset(10).Resize(5).Value = iCell.Offset(10).Resize(5).Value
        End If
    Next iCell
Application.CutCopyMode = False
End Sub

Att

Boa tarde,

Já resultou! Muito obrigado.

CJCM

Boa arde!!

Eu fico feliz que resolveu!!

Att