Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.

copia se maggiore



  • copia se maggiore
    di Traniwebdesign data: 12/06/2016 11:02:12

    ciao a tutti.
    iN EXCEL HO 2 COLONNE..colonna A e colonna B
    Io vorrei copiare la quantita di una cella ( a1 per esempio ) in b1, se e solo se A1 >5 .
    ho 15000 valori nella colonna A, e non posso fare un filtro con AND.
    potete aiutarmi ?
    Grazie a tutti.



  • di alfrimpa data: 12/06/2016 11:17:33

    Ciao

    Prova con la macro qui sotto.

    Oppure con una formula in B1

    =SE(A1>5;A1;"") da ricopiare sin dove serve.

    Alfredo 
     
    Sub copia()
Dim rng as Range
Dim cel as range
Set rng = Range("A1:A12000")
For each cel in rng
If cel.value > 5 then
cel.offset(0, 1) = cel.value
End if
Next cel
End sub






  • di patel data: 12/06/2016 13:21:45

    oppure
     
    Sub copia()
drow =1
For each cel in Range("A1:A15000")
  If cel.value > 5 then
    cells(drow,2) = cel.value
    drow = drow + 1
  End if
Next cel
End sub



 


by Globosoft © 2018 Regole di utilizzo | Contatti | Privacy Policy