Vpis formule

[Iztok75]

Pozdravljeni,

nevem kako se naj lotim izdelave makra.

Imam tabelo s podatki (cca. 2000 vrstic) in na koncu tabele (stolpec M), bi v celice rad vpisal formulo (recimo da mi sešteje celico iz stolpca C in celico iz stolpca E). To pa naj bi vpisoval samo tam (celica v stolpcu M), kjer je v C tudi vrednost, drugače pa bi pustil prazno polje.

[Stenly]

Pozdravljen

V celico stolpca M vpišite pogoj (priloženo f.). F. skopirajte vzdolž tabele.

Koda: Izberi vse

=IF(C4<>"";(C4+E4);"")

Lp

[Iztok75]

Hvala za trud Stenly, ampak jaz bi želel makro, ki bi mi to naredil.

[admin]

Pozdravljeni,

Zakaj pa potrebujete makro, formula je hitrejša in prenosljiva... makri v splošnem noso, saj jih lahko uporabnik izključi.

[Iztok75]

Re:Pozdravljen,

imam 5 stolpcev in 13 listov v katere bi moral vpisat formule. Zvezek bom pa moral oblikovat 2 krat na teden in "mi ni" , torej iščem linijo manjšega upora.

Thanx,

[Stenly]

Res se mi zdi makro nesmiselen, a vi že veste, za kaj ga potrebujete.
lahko se pa sami malo znajdete. Vaš makro lahko dobite povsem enostavno: pričnete s snemanjem makra, vpišete funkcijo, in končate snemanje. Dobili boste nekaj takega:

Koda: Izberi vse

    Range("M4").Select
    Selection.FormulaR1C1 = "=IF(RC[-10]<>"""",(RC[-10]+RC[-8]),"""")"

Lp

[Iztok75]

Zelo cenim vašo pomoč, ampak jaz želim, da mi vpiše formulo samo takrat, ko je v celici v stolpcu C vrednost, drugače ne.

Še enkrat hvala,

[admin]

Toliko da končamo to kalvarijo :

Spodaj imate makro, ki ste si ga zaželeli v prvem sporočilu:

Koda: Izberi vse

Sub VnesiFormuloVCelicoM()
    Dim vrstica As Long
    
    ' za prvih 2000 vrstic
    For vrstica = 1 To 2000
        If (Not IsEmpty(Cells(vrstica, 3))) Then
          Cells(vrstica, 13).FormulaR1C1 = "=IF(RC[-10]<>"""",(RC[-10]+RC[-8]),"""")"
        End If
    Next
End Sub

[Iztok75]

Muchos gracias OBEMA!