Új hozzászólás Aktív témák

• #15946 Delila_1 veterán codec #15945

  Új Válasz 2013-01-02 16:47:46 #15946

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz codec #15945 üzenetére

  Private Sub Workbook_Open()
  Sheets("Munka1").Range("A1") = Sheets("Munka1").Range("A1") + 1
  End Sub

  A VB szerkesztőben a ThisWorkbook laphoz írd be.

  Szerk.: írd át a Munka1-et és az A1-et a saját igényednek megfelelően.

Új hozzászólás Aktív témák