Ultimo dato zero



  • Ultimo dato zero
    di griorgio46 data: 21/07/2016 19:20:02

    Salve,

    se possibile una macrolina, allego anche il file
    e do una spiegazione di ciò che cortesemente vorrei.

    Se la colonna I come ultimo dato presenta valori > 0 annullare l'operazione;
    se la colonna I come ultimo dato presenta valore 0 salta di una cella a SINISTRA
    e copia i valori di 3 celle a SINISTRA stessa riga(cioè E-F-G) e incolla non le
    formule ma i valori delle formule in Colonna AB tenendo presente di incollarli
    nelle celle vuote della colonna.

    Ringrazio se possibile un intervento.




  • di patel data: 21/07/2016 20:44:20

    come si fa a e copia i valori di 3 celle (cioè E-F-G) in 2 colonne AB ?
    urge un esempio con i dati ed il risultato desiderato






  • di griorgio46 data: 21/07/2016 20:50:38

    Salve Patel

    mi è sfuggito di previsare:
    o i 3 numeri in una cella della colonna AB
    oppure usare altre celle dove incollare
    AB2-AC2-AD2

    Grazie penso sia più chiaro



  • di griogio (utente non iscritto) data: 22/07/2016 20:34:37

    Ciao Patel

    mi avevi dato uno spiraglio per la soluzione visto chemi
    avevi chiesto chiarimenti.
    Non ti è ancora chiaro?
    Eppure è molto semplice la spiegazione.

    Ma se può dare una mano anche un'altro mi farebbe piacere.

    Ciao



  • di cromagno data: 22/07/2016 20:53:11

    Ciao a tutti,

    @griorgio (o qualunque nickname tu abbia scelto alla fine)

    cit.
    "Eppure è molto semplice la spiegazione."


    Beh, sarà semplice per te che conosci lo scopo del file (non credo sia un caso che nessuno abbia ancora risposto) , per un osservatore esterno sono solo dei numeri su un foglio senza intestazioni di riga/colonna.

    Se vuoi che la spiegazione sia chiara, nel foglio allegato metti sia la situazione iniziale che il risultato che vuoi ottenere (scritto manualmente), perchè è solo su quello che ci possiamo basare.



  • di griorgio (utente non iscritto) data: 22/07/2016 21:30:36

    Salve Cromagno,

    ho riproposto il file e scritto quanto deve avvenire.
    Forse una spiegazione più dettagliata chiarirebbe
    quanto vorrei.
    1)riguarda la colonna i (I);
    2)qual'è l'ultimo dato della colonna i? se è diverso da zero nessun intervento
    cioè se clicco sul tasto macro e non è zero non deve avvenire nessuna operazione;
    se al conctrario l'ultimo dato di colonna i = 0 copiare i dati di a sinistra di celle
    E-F-G e riportarli in colonna AB in una cella appena vuota.
    Tenere conto che i 3 dati di E-F-G sono formule per cui copiare solo i valori e non le formule
    Questo è tutto

    Ciao



  • di cromagno data: 23/07/2016 00:27:04

    Ciao,

    prova con il codice sotto....

    Ti riallego il file ("Zero Ultimo Dato - excelvba").
     
    Option Explicit
    
    Sub Controllo()
    Dim uRiga As Long, Valori As String, rigaAB As Long
    
    uRiga = Range("I" & Rows.Count).End(xlUp).Row
    rigaAB = IIf(Range("AB1").Value = "", 1, Range("AB" & Rows.Count).End(xlUp).Row + 1)
    
    If Range("I" & uRiga).Value = 0 Then
        Valori = Range("E" & uRiga).Value & " " & Range("F" & uRiga).Value & _
        " " & Range("G" & uRiga).Value
        Range("AB" & rigaAB).Value = Valori
        MsgBox "Valori aggiunti!"
    End If
    End Sub



  • di griorgio (utente non iscritto) data: 23/07/2016 08:24:29

    Salve e buona giornata.


    Perfetto ciò che volevo anzi voglio.

    ti ingrazio e non lo dire a nessuno volevo dire
    giorgio e non griorgio.
    Pensa che a pronunciarlo mi suona strano anche a me
    ero distratto e nlla conferma evidentemente dormivo.

    Ciao e grazie