Juokseva luku taulukoissa

Sieltätäältä

Moi, saako taulukoiden välille tiettyyn soluun juoksevan numeroinnin.
Esimerkiksi Taul1 solussa A1 on numero 1, kun luon Taul2 niin samassa A1 solussa on 2 jne. Jos tuon saa toimimaan, onnistuuko sama kopioiduissa taulukoissa. Kiitos miljoonasti.

4

445

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ORCL

      Ohessa moduuliin makro. Siinä A1 soluun tulee välilehden juokseva numero. Kun kopioit tai lisäät välilehtiä myöhemmin, niin aja makro sen jälkeen uudestaan ja saat välilehtien numerot päivittymään.

      Sub VälilehtiNumerointi()
      Dim Lkm As Integer
      Dim i As Integer

      Lkm = ActiveWorkbook.Sheets.Count
      For i = 1 To Lkm
      Sheets(i).Range("A1").Value = i ' solu mihin halutaan numerointi, tässä A1
      Next i

      End Sub

    • Kundepuu

      päivittyy automaattisesti

      ThisWorkBook moduuliin...
      Private Sub Workbook_SheetActivate(ByVal Sh As Object)
      Range("A1") = ActiveSheet.Index
      End Sub

      Keep EXCEling
      @Kunde

    • On-niin-helppoa

      A1 soluun
      =TAULUKKO.NUMERO( )

      ------------------------------------------------------------------------------------------------------------
      Linux Mint 17.3 Rosa
      Xfce 64-bit

    • On-niin-helppoa

      A1 soluun
      =TAULUKKO.MÄÄRÄ( )

      ------------------------------------------------------------------------------------------------------------
      Linux Mint 17.3 Rosa
      Xfce 64-bit

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mistä puhuitte viimeksi kun näitte

      Kerro yksi aiheista
      Ikävä
      101
      7433
    2. 80
      4998
    3. Se on hyvästi

      Toivottavasti ei tavata.
      Ikävä
      79
      4849
    4. Olenko saanut sinut koukkuun?

      Hyvä. Rakastan sua.
      Ikävä
      132
      4258
    5. Alavuden sairaala

      Säästääkö Alavuden sairaala sähkössä. Kävin Sunnuntaina vast. otolla. Odotushuone ja käytävä jolla lääkäri otti vastaan
      Ähtäri
      10
      3048
    6. Miksi sä valitsit

      Juuri minut sieltä?
      Ikävä
      52
      2679
    7. Sisäsiittosuus

      Tämän kevään ylioppilaista 90% oli sama sukunimi?
      Suomussalmi
      40
      2576
    8. Kerro nyt rehellisesti fiilikset?

      Rehellinem fiilis
      Suhteet
      48
      2229
    9. Törkeää toimintaa

      Todella törkeitä kaheleita niitä on Ylivieskassakin. https://www.ess.fi/uutissuomalainen/8570818
      Ylivieska
      10
      2211
    10. Suudeltiin unessa viime yönä

      Oltiin jossain rannalla jonkun avolava auton lavalla, jossa oli patja ja peitto. Uni päättyi, kun kömmit viereeni tähtit
      Ikävä
      21
      1840
    Aihe