modificare macro funzionante

Hai un problema con Excel?

Nuova discussione

modificare macro funzionante
di Aghi (utente non iscritto) data: 02/08/2014 08:07:19
Buon Giorno a Tutti
visto che l'apetito vien mangiando....
molto gentilmente mi hanno fatto questa macro che allego.
ora vista la semplicità nel lavoro vorrei esagerare e semplificarmi le cose ulteriormente. premetto che la macro allegata funziona BENISSIMO e mi ha risolto il proplema.
se fosse possibile modificarla e aggiungere le altre variabili. magari con delle spiegazioni così proverei a fare delle modifiche se dovesse occorrere.
non mi aspetto che si possa fare tutto ma quello che si riesce è sepre tempo quadagnato.
un vero grazie di cuore a chi mi ha fatto la prima macro e anche a chi prova a risolvere questo problema.

Sub a()
Dim c As Range
LR = Cells(Rows.Count, "C").End(xlUp).Row
Set Rng = Range("D3:D" & LR)
For r = 3 To LR
  def = Cells(r, "C")
  prev = Cells(r, "D")
  If def = prev Then
    Cells(r, "E") = "ok"
  ElseIf prev = "RIP" Then
    Cells(r, "E") = "RIP in tur"
  ElseIf prev = "SCO" Then
    Cells(r, "E") = "ass d'uff"
  ElseIf prev = "MAL" Then
    Cells(r, "E") = "mal"
  Else
    Set c = Rng.Find(def)
    If Not c Is Nothing Then
      If Cells(c.Row, "C") = prev Then
        Cells(r, "E") = "scambio alla pari"
      Else
        Cells(r, "E") = "scambio d'ufficio"
      End If
    End If
    
  End If
Next
End Sub

Vuoi Approfondire?