Vpis formule
Vpis formule
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.
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.
Iztok
Pozdravljen
V celico stolpca M vpišite pogoj (priloženo f.). F. skopirajte vzdolž tabele.
Lp
V celico stolpca M vpišite pogoj (priloženo f.). F. skopirajte vzdolž tabele.
Koda: Izberi vse
=IF(C4<>"";(C4+E4);"")
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:
Lp
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]),"""")"
Toliko da končamo to kalvarijo :
Spodaj imate makro, ki ste si ga zaželeli v prvem sporočilu:
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator