Spreminjanje formul celotne vrstice v vrednosti

[Imolim]

Pozdravljeni, v veliki zbirki podatkov in formul bi rad v določeni vrstici, ki ustrezajo pogoju spremenil vse formule v vrednosti.

Recimo v določeni koloni bi se makro sprehodil navzdol in poiskal besedo "Zaključeno".

Kjer bi jo našel bi celotno vrstico (oziroma v mojem primeru od kolone A do BB ) spremenil v vrednosti.
Sem že imel spisan makro, ki je označil celotno vrstico jo kopiral in prilepil vrednosti, pa je bil počasen.

LP Izidor

[admin]

Ta tematika ne sodi v področje 'Excel', temveč 'VBA', zato sem tematiko premaknil

Prilagam primer makra, ki v koloni L (zaporedna številka 12) išče besedo 'Zaključeno' in če jo najde, spremeni formule v vrednosti

Koda: Izberi vse

Sub Formule_v_vrednosti()
  Dim r As Integer
  
  r = 1
  While (Cells(r, 12) <> "")
    If Cells(r, 12) = "Zaključeno" Then
      Dim rng As Range
      
      For Each rng In Range(Range("a" & r), Range("BB" & r))
        If rng.HasFormula Then
            rng.Formula = rng.Value
        End If
      Next
    End If
    
    r = r + 1
  Wend
End Sub

[Imolim]

Čudovito in enostavno. HVALA