Pako96
00mercoledì 1 giugno 2016 16:50
Salvve,
avrei una delle tante richieste..mi spiace lo ammetto vi uso...ma siete tutti preparati ed io...faccio pena con le macro.
allora problema
inserisco data nominativo importo e quantì'altro alla fine del rigo quando incasso inserisco la dicitura ok
vorrei che alla destra della dicitura ok comparisse e rimanesse cristallizzata la data dell'inserimento dicitura ok.
il foglio si chiama TOTALE
gli ok vanno messi da h3:h1000
le date dovrebbero comparire da i3:i1000
Grazie di tutto
p.s. excel 2007
by sal
00mercoledì 1 giugno 2016 17:05
Data Fissa
Ciao Pako, scritta al volo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, c
If Not Intersect(Target, [h3:h1000]) Is Nothing Then
Application.EnableEvents = False
r = Target.Row
c = Target.Column
If Target = "OK" Then Cells(r, c + 1) = Date
Application.EnableEvents = True
End If
End Sub questa la inserisci nel modulo del foglio
Ciao By Sal
![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif)
alfrimpa
00mercoledì 1 giugno 2016 17:05
Edit.... Vista risposta di bySal
Pako96
00mercoledì 1 giugno 2016 17:06
WOW rapidi..
cosa è il modulo del foglio?
Grazie
Un macro?
Pako96
00mercoledì 1 giugno 2016 17:09
non funge...sob
FILE SEMPLICE
CODICE - DATA FATT - NOME AZ - IMPORTO - NOME SOC - OK - DATA IMMISSIONE DELLA DICITURA OK
NNON FUNZIONA METTENDO LA MACRO
AVEVO IL CAPS ATTIVO SCUSATE NN FATEMI RISCRIVERE TUTTO....
rollis13
00mercoledì 1 giugno 2016 19:43
Per accedere direttamente al modulo vba del foglio clicca in basso sulla linguetta TOTALE e scegli "Visualizza Codice" e nel riquadro che compare incolla la macro proposta.
Fai attenzione, nella colonna H devi scrivere OK in maiuscolo altrimenti bisogna rivedere la macro. Allarga la colonna I altrimenti non vedi la data.
Pako96
00venerdì 10 giugno 2016 13:58
Ciao grazie per la risposta...per giunta immediata.
Io dimentico sempre la password e me la devo far reinviare.
Ovviamente funziona...o per meglio dire funzionava...
Perfettamente...
Ora all'improvviso ha smesso?
non dipende dalla cella sono alla 260 di 1000 messe in formula.
Ora anche se levo una data di un OK e rimetto l'OK...on rimette la data...e prima lo faceva...sapete dirmi il perchè?
grazie
Pako96
00venerdì 10 giugno 2016 14:15
HA FATTO AGGIORNAMENTO IL PC IERI SERA...NON SO COSA ABBIA AGGIORNATO...
SCUSATE CAPS...
raffaele1953
00venerdì 10 giugno 2016 18:45
Mi sono permesso di modificare il codice di By Sal, per evitare l'errore quando si usa copia/incolla di più celle
Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Not Intersect(Target, [h3:h1000]) Is Nothing Then
Dim r, c
Application.EnableEvents = False
r = Target.Row
c = Target.Column
On Error Resume Next
If Target = "OK" Then Cells(r, c + 1) = Date
Application.EnableEvents = True
End If
End Sub
Pako96
00martedì 14 giugno 2016 12:48
Funxziona perfettamente grazie ...anche quello di prima funzionava ...problema mio pc..