cella rossa

[trittico69]

mi servirebbe una formula che dice es:
se "G1" o "H1" o entrambi del foglio1 è di colore rosso allora copia C1-D1-E1-F1del foglio1 in foglio 2
metto qui un esmpio
http://rapidshare.com/files/391475547/Cartel11.xls.html

[tutamimetica]

in I1=COUNTBYCOLOR(G1:H1;3;FALSO)
in A1 del foglio2 =SE(Foglio1!$I1>0;Foglio1!C1;"") copy per trascinamento fino a D1 e poi fin a D200
nella macro:
Function CountByColor(InRange As Range, _
WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Long
'
' This function return the number of cells in InRange with
' a background color, or if OfText is True a font color,
' equal to WhatColorIndex.
'
Dim Rng As Range
Application.Volatile True
For Each Rng In InRange.Cells
If OfText = True Then
CountByColor = CountByColor - _
(Rng.Font.ColorIndex = WhatColorIndex)
Else
CountByColor = CountByColor - _
(Rng.Interior.ColorIndex = WhatColorIndex)
End If
Next Rng
End Function
La macro non è farina del mio sacco. Frutto dei suggerimenti di questo forum.
Ciao Tuta

[trittico69]

tuta ho fatto ma non funziona...mi dici dove sbaglio?
ti allego il file fatto...
http://rapidshare.com/files/391559069/Cartel11.zip.html

[Anthony47]

Devi inserire la macro in Modulo1, non nel modulo macro di Foglio2: da excel, Alt-F11 per andare all' editor delle macro; Menu /Inserisci /Modulo; copi la macro nel frame bianco a dx.

Ciao

[trittico69]

fatto..ma c'è ancora qualcosa che non va...
a volte coloro la cella di rosso, chiudo salvo e riapro, lo zero nella colonna i diventa uno ma non mi copia il nome nel foglio1 a volte lo fa e a volte non lo fa....
poi a volte coloro una cella e mi compaiono due nomi nel foglio1, ti allego il file con quest'ultimo difetto...
http://rapidshare.com/files/391585544/Cartel11.zip.html

[tutamimetica]

Ora dovrebbe andare bene. C'era un problema di copia.
Cmq non importa chiudere il file, puoi ottenere lo stesso risultato copiando dalle righe sopra e/o sotto riga I del foglio1 dove hai fatto le modifiche.
http://rapidshare.com/files/391668838/prova.xls.html
tuta