Moderatori: Anthony47, Flash30005
CONTA.SE(F:F; "L")
=SOMMA.SE(F:F; "L"; G:G) / CONTA.SE(F:F; "L")
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then
Exit Sub
End If
Intervallo = "A1:A5000"
If Not Intersect(Target, Range(Intervallo)) Is Nothing Then
RR = Sheets("Customer Database").Range("A" & Rows.Count).End(xlUp).Row
Trovato = 0
For I = 2 To RR
If Sheets("Customer Database").Cells(I, 1).Text = Target.Text Then
Trovato = 1
Exit For
End If
Next I
If Trovato = 0 Then
Sheets("Customer Database").Cells(RR + 1, 1) = Target
MsgBox "Inserito il codice: " & Target.Text & " - Inserire le informazioni su questo codice"
End If
End If
End Sub
=SE(I36>0; SOMMA.SE(F:F; "L";G:G ) / CONTA.SE(F:F; "L"); 0)
ricky53 ha scritto:Qui nasce il primo problema che è autorizzato a modificare i dati dei "codici" del DB" ???
Torna a Applicazioni Office Windows
image burning errore nel registro Autore: nikita75 |
Forum: Audio/Video e masterizzazione Risposte: 13 |
Registro corrispettivi in excel da completare Autore: libraio |
Forum: Applicazioni Office Windows Risposte: 4 |
Come creare un file reg per il registro di Windows? Autore: vazzas |
Forum: Sistemi Operativi Windows Risposte: 0 |
Visitano il forum: Nessuno e 14 ospiti