Riempimento celle



  • Riempimento celle
    di Silvio6613 (utente non iscritto) data: 02/05/2011

    Salve
    il mio problema è il seguente, ho un elenco di dati dove non tutte le righe sono riempite, cioè per ogni riga di dati ho una riga vuota, ora devo riempire una cella di ogni riga vuota con un valore di una cella della riga superiore. lo scopo è quello di riempire una colonna con i dati delle celle di riferimento e in qualche modo devo riportare il dato in un unica colonna.
    ho provato con il se ma non riesco nel senso che riempio colonne diverse, forse non sò spiegarmi.
    comunque io vorrei un automatismo che prenda sempre il dato superiore e lo incolli sotto quando è vuoto e se invece il dato cè che lo mantenga



  • di Locate (utente non iscritto) data: 02/05/2011

    Ciao
    potresti postare un tuo file come esempio di come vorresti che i tuoi dati vengano inseriti
    ess. sul primo foglio i dati da elaborare e sul secondo una sintesi di come vorresti che devono essere, sempre si intende con dati non sensibili

    ciao da locate
    excel 2003


  • Riempimento celle
    di Silvio6613 (utente non iscritto) data: 02/05/2011

    Ciao ti mando un file con i due fogli dove spero si capisca quello che voglio fare.
    io ho provato a usare la funzione se(o ma dove non ci sono valori mi restituisce 0, in pratica ho creato 3 nuove colonne in cui copio i valori, dove non c'è restituisce 0, dove c'è mi da il valore poi in un'altra colonna gli faccio scrivere i valori, il problema è che dove non ci sono valori(righe vuote) restituisce 0.

    provo a postare il file
    grazie



  • di Locate (utente non iscritto) data: 02/05/2011

    Ciao silvio
    guarda il tuo file con inserite due macro per
    fare questo lavoro
    ---------
    una aggiunge i valori della colonna a se mancano
    l'altra toglie le righe che sono nulle, io ho gia' eliminato le prime tre, basta che togli la scritta rossa e fai partire la macro

    ciao da locate
    excel 2003

    ps, se non hai mai usato macro devi abbassare il livello di protezione a queste
    procedura
    apri il foglio excel
    vai su strumenti
    macro
    protezione, e metti a media
    chiudi il file e salva
    riapri e conferma con attiva macro

    ciao



  • di Silvio6613 (utente non iscritto) data: 03/05/2011

    Ciao e grazie per la risposta, però devo chiederti ancora qualche dettaglio, nel senso che se faccio girare le tue macro, a prima vista sembrano funzionare, e probabilmente funzionano per come hai inteso il mio problema, ma in realtà se io faccio girare la macro copia valore l'operazione viene eseguita correttamente a parte l'aggiunta di un valore dopo l'ultima riga che non serve perchè sono a fine file, ma la macro con cui ho problemi è quella che elimina le righe, nel senso che non effettua un controllo per vedere se ci sono dati in altre colonne della stessa riga e di conseguenza elimina tutto. es. ho alcune righe dove la colonna a è vuota ma dalla colonna g fino alla l potrebbero esserci dei dati, con la macro queste righe vengono eliminate, ho notato che alcune di queste righe sui file reali sono unite, perchè esportate così dal programma terzo, spero di essermi fatto comprendere e magari che tu possa ancora aiutarmi
    grazie ancora



  • di Locate (utente non iscritto) data: 03/05/2011

    Ciao
    mi sono accorto adesso della tua risposta
    cosi vista la tua damanda ho modificato la macro in questine con la prima cosa che mi e' passata per la mente
    questa controlla dalla a alla z se in quella riga da eliminare ci sono valori in altre celle e non la elimina
    ti allego il tuo file con al modifica

    ciao da locate
    excel 2003

     
    Sub elimina_riga()
    Dim rigaD, ColN
    Dim r, c
    rigaD = Range("D" & Rows.Count).End(xlUp).Row
    ColN = 0
    For r = rigaD To 1 Step -1
      If Cells(r, 4) = "" Then
        For c = 1 To 30
          If Cells(r, c) <> "" Then ColN = ColN + 1
        Next c
        If ColN = 0 Then
           Cells(r, 4).Select
           Selection.EntireRow.Delete
        End If
      End If
    ColN = 0
    Next r
    End Sub



  • di Silvio6613 (utente non iscritto) data: 11/05/2011

    Ciao
    scusa ma ho avuto problemi e ho visto solo adesso la tua risposta, però non vedo il file allegato.
    grazie



  • di Locate (utente non iscritto) data: 11/05/2011

    Ciao silvio
    il file che ti ho mandato e' sempre quello in tuo possesso
    devi solo sostituire la macro vecchia con quella nuova che vedi nel riquadro giallo

    ciao da locate
    excel 2003

    ps se hai problemi riposta il tuo file che pensero' io a mettere a posto la macro



  • di Locate (utente non iscritto) data: 11/05/2011

    Ciao
    ritrovato il file nel cestino te lo riposto

    ciao da locate
    excel 2003