Moderatori: Anthony47, Flash30005
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Worksheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row
CheckArea1 = "B2:C" & UR
If Not Application.Intersect(ActiveCell, Range(CheckArea1)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 3 Or (Selection.Rows.Count + Selection.Columns.Count) < 3 Then Exit Sub
ColF = Target.Column
If ColF = 2 Then
RigF = Target.Row
Range("J" & RigF).Value = Cells(RigF, ColF).Value
End If
End If
End Sub
Anthony47 ha scritto:se vuoi userai poi la formattazione condizionale per andare a colorare di giallo gli importi per cui esiste un incasso.
Ciao.
=B2*(D2>0)+E2*(G2>0)+H2*(J2>0)+K2*(M2>0)
=$D2>0
=B2*(D2>0)+E2*(G2>0)+H2*(J2>0)+K2*(M2>0)
Tutto qui?sono contenta
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 34 ospiti