Excellben egy cellában szeretnék sorszámot tenni, ami minden nyomtatás alkalmával nő eggyel. Mit rontottam el?

Szia.

Én két gondot látok :

Egyik sazintaktikai a másik megközelitésbeli (bár mondjuk ez nézet kérdése - illetve a megoldandó feladaté)

1. Nem szöveget adsz a B(-as cellához hanem számot (tehát nem +"1" hanem csak simán + 1)

ActiveSheet.Range("B8").Value = ActiveSheet.Range("B8").Value + 1

2. Van az excelben BeforePrint szubrutin (akkor hajtódik végre mielőtt kinyomtatásra kerülne a dokumentum, igy szerintem egyszerűbb :

Private Sub Workbook_BeforePrint(Cancel As Boolean)

_ _ _If Not Cancel Then

_ _ _ _ _ _ActiveSheet.Range("B8").Value = ActiveSheet.Range("B8").Value + 1

_ _ _End If

End Sub

Sok sikert.

Üdv.

Szia.

Nincs AfterPrint esemény az excelben (láttam rá megoldást, de nem tudom, hogy müködik-e) : [link]

Sok sikert.

Üdv.