Risultati da 1 a 3 di 3

Discussione: Spostare valori su celle vuote



  1. #1
    L'avatar di Samuela
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    padova
    Messaggi
    69
    Versione Office
    2013
    Mi Piace ricevuti
    0
    Mi Piace dati
    0

    Spostare valori su celle vuote

    Ciao a tutti,

    dovrei creare una formula che mi sposti alcuni valori sulle celle a fianco vuote come nel file allegato.

    Nella colonna A ho dei prezzi e fra un prezzo e l'altro alcune celle vuote.
    Nella colonna B ho i prezzi che andrebbero inseriti nelle celle vuote della colonna A.

    Grazie mille !
    File Allegati File Allegati

  2. #2
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    61
    Messaggi
    661
    Versione Office
    2016
    Mi Piace ricevuti
    224
    Mi Piace dati
    45

    Re: Spostare valori su celle vuote

    Ciao
    con le formule avresti bisogno di una terza colonna

    prova questa macro

    Codice: 
    Option Explicit
    Sub Incolonnare()
    Dim uRg As Long, i As Long
        uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        i = 1
        For i = 1 To 1000
            If Cells(i, 1) = "" And Cells(i, 2) <> "" Then
            Cells(i, 1) = Cells(i, 2)
            Cells(i, 2) = ""
            End If
          
      Next
    End Sub
    la inserisci su un modulo
    e la colleghi ad un pulsante

  3. #3
    L'avatar di Samuela
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    padova
    Messaggi
    69
    Versione Office
    2013
    Mi Piace ricevuti
    0
    Mi Piace dati
    0

    Re: Spostare valori su celle vuote

    Ciao, provata funziona benissimo. Grazie

    Citazione Originariamente Scritto da Gianfranco55 Visualizza Messaggio
    Ciao
    con le formule avresti bisogno di una terza colonna

    prova questa macro

    Codice: 
    Option Explicit
    Sub Incolonnare()
    Dim uRg As Long, i As Long
        uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        i = 1
        For i = 1 To 1000
            If Cells(i, 1) = "" And Cells(i, 2) <> "" Then
            Cells(i, 1) = Cells(i, 2)
            Cells(i, 2) = ""
            End If
          
      Next
    End Sub
    la inserisci su un modulo
    e la colleghi ad un pulsante

Discussioni Simili

  1. spostare il contenuto di parentesi quadre in celle
    Di maxcarati nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 14/10/16, 12:10
  2. Spostare Celle in base al valore di una cella stessa
    Di ShLomo nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 22/07/16, 17:38
  3. Ordinamento Numeri Con celle vuote
    Di Bright nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 07/07/16, 20:09
  4. Dati nelle celle vuote
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 02/08/15, 15:01
  5. Celle vuote se valore cella = 0
    Di Ste nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 19/07/15, 19:37

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •