Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

cambio data in una cella elimina dato in altra cella

  1. #1
    ZUBJFELICE non è in linea Scolaretto
    Buongiorno a tutti voi!
    Ho un foglio dove inserisco le date di sterilizzazione di dispositivi medici,oltre alla data, devo cambiare anche il codice,
    che identifica l'autoclave, il ciclo,l'operatore.Dato che più volte viene dimenticato di cambiarlo dopo aver cambiato la data,dovrei da vba al cambiamento della data cancellare il dato ref. autoclave,con messaggio inserisci ref.
    Le date sono da B2 a B220 il ref.autoclave da G2:G220.
    Grazie della sempre Vostra disponibilità
    ℹ️ Leggi di più su ZUBJFELICE ...

  2. #2
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    Ciao
    potresti sfruttare l'evento change del foglio mirato al range B2:B220 e, sempre da codice, tramite una input box chiedere il valore da immettere nella relativa cella della colonna G.
    Private Sub Worksheet_Change(ByVal Target As Range)
    If not intersect (target.......) is nothing then
    dato=inputbox(............)
    ecc....
    End Sub
    
    Prova a tirare giù qualcosa e poi la vediamo insieme.

    saluti

  3. #3
    ZUBJFELICE non è in linea Scolaretto
    Grazie, ci provo.
    ℹ️ Leggi di più su ZUBJFELICE ...

  4. #4
    ZUBJFELICE non è in linea Scolaretto
    Ma qui casca l'asino!!
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:B220")) Is Nothing Then
    codice = InputBox("Inserisci codice :", "Devi cambiare il Ref.Autoclave")
    End If
    End Sub
    A questo punto, che istruzione devo usare, ok inserisci il dato nella cella G 2 dopo aver cambiato la data in A 2 ,
    in G 3,G 4 ecc sino a G 220 ?
    Grazie della pazienza
    ℹ️ Leggi di più su ZUBJFELICE ...

  5. #5
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    Ciao
    se segui in debug, ti accorgi che tra i parametri della variabile "Target" hai anche la riga (Target.row), di conseguenza cells(Target.row,7) sarà la cella della colla G da variare.

    saluti

  6. #6
    ZUBJFELICE non è in linea Scolaretto
    Grazie, ma al momento non ne vengo fuori.
    Barcollo ma non mollo, dopo lavoro ci riprovo.
    ℹ️ Leggi di più su ZUBJFELICE ...

  7. #7
    ZUBJFELICE non è in linea Scolaretto
    Risolto

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A2:B220")) Is Nothing Then
    codice = InputBox("Inserisci codice :", "Devi cambiare il Ref.Autoclave")
    Cells(Target.Row, 7).Value = codice
    End If
    Application.EnableEvents = True
    End Sub

    Grazie
    ℹ️ Leggi di più su ZUBJFELICE ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 7
    Ultimo Post: 21-10-2017, 16:12
  2. Risposte: 4
    Ultimo Post: 05-11-2013, 17:45
  3. Risposte: 18
    Ultimo Post: 19-08-2011, 21:56
  4. Sostituire una data da una cella all' altra
    Da trump61 nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 23-10-2009, 16:32
  5. Risposte: 7
    Ultimo Post: 05-06-2008, 21:44