- Codice: Seleziona tutto
=SE(B3>0;SOMMA(E3:IV3);1)>1
Ciao.
Moderatori: Anthony47, Flash30005
=SE(B3>0;SOMMA(E3:IV3);1)>1
totopc ha scritto:http://rapidshare.com/files/395119959/AIUTO.xls.html
Sub Selezdata()
UC = Worksheets("Pianificazione").Range("IV3").End(xlToLeft).Column
For CC = 11 To UC
If Range("C1").Value = Cells(3, CC).Value Then
Cells(3, CC).Select
GoTo esci
End If
Next CC
esci:
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) '<<<<< esistente
ActiveSheet.Unprotect '<<<< esistente
If Target.Address = "$C$1" Then Call Selezdata '<<< aggiungere riga
If Intersect(Target, Union(Range("AreaVal"), Range("AreaPagam"), Range("AreaSplit"))) Is Nothing Then Exit Sub '<<< esistente
Torna a Applicazioni Office Windows
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| 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: 7 |
Visitano il forum: Nessuno e 28 ospiti