Spreminjanje formul celotne vrstice v vrednosti

Pomoč pri izdelavi makrov
Odgovori
Imolim
Prispevkov: 8
Pridružen: To Apr 09, 2013 3:58 pm

Spreminjanje formul celotne vrstice v vrednosti

Odgovor Napisal/-a 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
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Spreminjanje formul celotne vrstice v vrednosti

Odgovor Napisal/-a 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
lp,
Matjaž Prtenjak
Administrator
Imolim
Prispevkov: 8
Pridružen: To Apr 09, 2013 3:58 pm

Re: Spreminjanje formul celotne vrstice v vrednosti

Odgovor Napisal/-a Imolim »

Čudovito in enostavno. HVALA
Odgovori