Condividi:        

sovrascrivi cella con altra cella a condizione che

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

sovrascrivi cella con altra cella a condizione che

Postdi mirmidone21 » 11/11/16 14:41

Buonasera a tutti
avrei bisogno di una macro o di una funzione che mi copy il contenuto della cella B2 nella cella A2 quando in questa cella (A2) vi è il testo "creditore"
in pratica, la cella A2 deve essere sovrascritta col contenuto della cella B2 a condizione che nella cella A2 vi sia un determinato valore.
spero di essermi spiegato bene, e vi ringrazio in anticipo.
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48

Sponsor
 

Re: sovrascrivi cella con altra cella a condizione che

Postdi Anthony47 » 11/11/16 14:49

La macro deve contenere la riga
Codice: Seleziona tutto
If UCase(Range("A2")) = "CREDITORE" Then Range("A2").Value = Range("B2").Value

Se e' solo quella l'operazione, metti Sub myCopia() in testa ed End Sub in coda; eventualmente la assegni a un pulsante o le assegni una combinazione da tastiera (tipo Contr-Maiusc-r)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: sovrascrivi cella con altra cella a condizione che

Postdi mirmidone21 » 11/11/16 15:07

ok grazie provo e ti faccio sapere
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48

Re: sovrascrivi cella con altra cella a condizione che

Postdi mirmidone21 » 11/11/16 15:24

FUNZIONA.
ma se devo cambiare il testo, oppure se volessi cercare per parti di testo, tipo per dire la cella contiene"CRED" come faccio?
e come faccio a ripetere questa istruzione per tutte le 25000 righe della colonna Q e della colonna S.

p.s. prima per semplificare ho usato i riferimenti alle celle di colonna A e B, ma ho visto che se cambio colonna non funziona.
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48

Re: sovrascrivi cella con altra cella a condizione che

Postdi mirmidone21 » 11/11/16 15:44

Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48

Re: sovrascrivi cella con altra cella a condizione che

Postdi Anthony47 » 12/11/16 02:21

ma se devo cambiare il testo, oppure se volessi cercare per parti di testo, tipo per dire la cella contiene"CRED" come faccio?
e come faccio a ripetere questa istruzione per tutte le 25000 righe della colonna Q e della colonna S.

Prendo nota che ci sono nuove richieste, devi pazientare...

p.s. prima per semplificare ho usato i riferimenti alle celle di colonna A e B, ma ho visto che se cambio colonna non funziona
Se cambi colonne devi adattare il codice alle colonne; come hai adattato?
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: sovrascrivi cella con altra cella a condizione che

Postdi mirmidone21 » 12/11/16 09:58

allora avrei risolto in questo modo
Codice: Seleziona tutto
Sub copia_cella_a_condizione()
'
' Macro1 Macro
'

'
Dim ur As Long
Dim NRighe As Long
NRighe = Cells(Rows.Count, "A").End(xlUp).Row
For I = 2 To NRighe
If Cells(I, 17) = "creditore cliente irreperibile" Then Cells(I, 17).Value = Cells(I, 19).Value
   'If UCase(Range("Q2")) = "CREDITO" Then Range("Q2").Value = Range("S2").Value


Next I
End Sub


il tutto funziona, mi resta solo da inserire l'istruzione che aggiunga:
If Cells(I, 17) = "creditore cliente irreperibile" e Cells(I, 19) diverso da vuoto Then Cells(I, 17).Value = Cells(I, 19).Value
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48

Re: sovrascrivi cella con altra cella a condizione che

Postdi mirmidone21 » 12/11/16 11:17

grazie Anthony ho risolto tutto grazie ad una tua vecchia discussione
ho inserito questa sintassi
Codice: Seleziona tutto
If Cells(I, 17).Value = "creditore cliente irreperibile" And Cells(I, 19).Value <> "" Then Cells(I, 17).Value = Cells(I, 19).Value


la discussione era questa:
http://www.pc-facile.com/forum/viewtopic.php?t=88156

gradirei solo sapere se è una giusta sintassi, o bisognava fare qualcosa di diverso.
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48


Torna a Applicazioni Office Windows


Topic correlati a "sovrascrivi cella con altra cella a condizione che":


Chi c’è in linea

Visitano il forum: Nessuno e 80 ospiti