sovrascrivi cella con altra cella a condizione che

[mirmidone21]

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.

[Anthony47]

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

[mirmidone21]

ok grazie provo e ti faccio sapere

[mirmidone21]

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.

[mirmidone21]

allego file di esempio
https://drive.google.com/file/d/0B2rmVFc8x3cUM2lRTEExbVcyYUk/view?usp=sharing

[Anthony47]

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?

[mirmidone21]

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

[mirmidone21]

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.