Condividi:        

aiuto per macro excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

aiuto per macro excel

Postdi paolox » 07/07/09 22:36

in un foglio di lavoro in ogni cella da D4 a W4
ho dei numeri da 1 a 30 (quindi sono 10 celle ed
ho quindi 10 numeri)

nel foglio2 ho 30 numeri in ordine da 1 a 30, in decine,
da AA7 ad AJ7 la prima decina da 1 a 10
da AA8 ad AJ8 la seconda decina da 11 a 20
da AA9 ad AJ9 la terza deina da 21 a 30

vorrei che i numeri che sono nel foglio1 non comparissero nel foglio2
oppure che i numeri presenti nel foglio1 nel foglio2 la cellla si colorasse di rosso

tenendo presente che i numeri del foglio1 li posso cambiare ogni giorno
paolox
Utente Senior
 
Post: 269
Iscritto il: 05/06/04 11:48
Località: lodigiano

Sponsor
 

Re: aiuto per macro excel

Postdi Flash30005 » 07/07/09 23:38

ciao Paolox
Questa macro colora
Codice: Seleziona tutto
Sub Colora()
For I = 4 To 23
    Num1 = Worksheets("Foglio1").Cells(4, I).Value
    For L = 27 To 36
        Num2D1 = Worksheets("Foglio2").Cells(7, L).Value
        If Num1 = Num2D1 Then
            Worksheets("Foglio2").Cells(7, L).Select
            With Selection.Interior
            .ColorIndex = 3
            .Pattern = xlSolid
            End With
            Selection.Font.ColorIndex = 2
        End If
        Num2D2 = Worksheets("Foglio2").Cells(8, L).Value
                If Num1 = Num2D2 Then
                    Worksheets("Foglio2").Cells(8, L).Select
                    With Selection.Interior
                    .ColorIndex = 3
                    .Pattern = xlSolid
                    End With
                    Selection.Font.ColorIndex = 2
                End If
        Num2D3 = Worksheets("Foglio2").Cells(9, L).Value
                If Num1 = Num2D3 Then
                    Worksheets("Foglio2").Cells(9, L).Select
                    With Selection.Interior
                    .ColorIndex = 3
                    .Pattern = xlSolid
                    End With
                    Selection.Font.ColorIndex = 2
                End If
    Next L
Next I
End Sub

se vuoi cancellare invece
Codice: Seleziona tutto
Sub Cancella()
For I = 4 To 23
    Num1 = Worksheets("Foglio1").Cells(4, I).Value
    For L = 27 To 36
        Num2D1 = Worksheets("Foglio2").Cells(7, L).Value
        If Num1 = Num2D1 Then
            Worksheets("Foglio2").Select
            Cells(7, L).Select
            Selection.ClearContents
        End If
        Num2D2 = Worksheets("Foglio2").Cells(8, L).Value
        If Num1 = Num2D2 Then
            Worksheets("Foglio2").Select
            Cells(8, L).Select
            Selection.ClearContents
        End If
        Num2D3 = Worksheets("Foglio2").Cells(9, L).Value
        If Num1 = Num2D3 Then
            Worksheets("Foglio2").Select
            Cells(9, L).Select
            Selection.ClearContents
        End If
    Next L
Next I
End Sub

Il Valore I va dalla colonna D alla colonna W come da te richiesto ma non sono 10 celle, come affermi tu, ma 20; eventualmente correggi la macro

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: aiuto per macro excel

Postdi Anthony47 » 08/07/09 00:35

vorrei che i numeri che sono nel foglio1 non comparissero nel foglio2
oppure che i numeri presenti nel foglio1 nel foglio2 la cellla si colorasse di rosso
Questo pero' lo puoi fare anche con la formattazione condizionale:
-selezioni l' area AA7:AJ9
-imposti la formattazione condizionale con "la formula è" e come formula usi =Conta.se($D$4:$W$4;AA7)>0
-poi imposti il carattere con font bianco (cioe' uguale allo sfondo celle) per rendere quel numero invisibile, o lo sfondo rosso se preferisci questo.

Ciao a tutti.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "aiuto per macro excel":


Chi c’è in linea

Visitano il forum: Nessuno e 83 ospiti