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
    111
    Versione Office
    2013
    Utile ricevuti
    0
    Utile 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à
    62
    Messaggi
    904
    Versione Office
    2016
    Utile ricevuti
    308
    Utile dati
    67

    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
    111
    Versione Office
    2013
    Utile ricevuti
    0
    Utile 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. [Risolto] non conteggiare le celle vuote
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 06/02/17, 22:48
  2. [UserForm] Spostare più celle verticali dentro un'unica cella
    Di Andryx nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 02/02/17, 13:59
  3. spostare il contenuto di parentesi quadre in celle
    Di maxcarati nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 14/10/16, 11:10
  4. 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, 16:38
  5. Dati nelle celle vuote
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 02/08/15, 14:01

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
  •