Incollare celle " visibile"

[Ubuntus]

ciao
nelle colonne I,J,K,L ci sono o valori o "N/d",(frutto di un cerca vert) in queste colonne sulla stessa riga non posso avere piu di un campo con valore, vorrei riportare e sostituire le celle contenenti i valori sulla colonna A,
la colonna A dispone di nome di articoli

come potrei fare con una macro ?

al momento lo faccio manualmente con due colonne di appoggio con
=+SE(I2<>"";I2;SE(J2<>"";J2;SE(K2<>"";K2;SE(L2<>"";L2;""))))
=+SE(C2="";A2;C2)
perché incollare su celle discontinue excel 2007 non permette di farlo

grazie

[alfrimpa]

Ciao Ubuntus

Allega un file di esempio con i dati, spiegazione e risultato desiderato inserito a mano.

[Anthony47]

Mi aggrego alla richiesta di avere un file esemplificativo, magari si riesce a capire meglio dove vanno quelle formule e di conseguenza che cosa vorresti ottenere.
Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao

[Ubuntus]

ciao

in giallo ed arancione le colonne fatte a mano,

In arancione è la colonna finale che andrà a sostituire i valori nella colonna A

https://we.tl/QbfhMN0Ps2

[alfrimpa]

Io non ho capito qual è il risultato che con la macro vorresti ottenere sulla base dei dati presenti sul foglio1

[Ubuntus]

Vorrei il risultato della colonna arancione, essendo fatta senza macro dopo andavo a sostuire la colonna A

[Anthony47]

Il mio suggerimento e' che separi le celle di input dalle celle calcolate in modo da avere la piena tracciabilita' dei tuoi risultati.

Dallo scarno esempio (1 riga di dati) mi pare che vorresti una colonna che contenga il contenuto di colonna A (se I:L risulta vuoto) oppure il contenuto della prima cella occupata in I:L; potresti ottenere questo usando es in B2 questa formula

Codice: Seleziona tutto

=SE(I2<>"";I2;SE(J2<>"";J2;SE(K2<>"";K2;SE(L2<>"";L2;A2))))

In questa soluzione la colonna C non sara' piu' necessaria; se (lavorando col file che hai pubblicato) prima inserisci la formula in B2 e poi elimini la colonna C la formula si "aggiusta" automaticamente.

Se vuoi farlo via macro con sostituzione eventuale del contenuto di colonna A in funzione del contenuto di I:L (cosa che io sconsiglio perche' alla fine non sai quali erano i dati di partenza), allora puoi usare questa macro:

Codice: Seleziona tutto

Sub sconfondi()
Dim Contr As String, I As Long, rContr As Range, myC As Range

Contr = "I:L"           '<<< Le colonne in cui guardare
'
Set rContr = Application.Intersect(Range(Contr), Range("1:1"))
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
'    If Application.WorksheetFunction.CountA(rContr.Offset(I - 1, 0)) > 0 Then
        For Each myC In rContr.Offset(I - 1, 0)
            If myC.Value <> "" Then
                Cells(I, 1) = myC.Value
                Exit For
            End If
        Next myC
'    End If
Next I
End Sub


Ciao