Excelin command button apua

Discussion in 'Vapaata keskustelua' started by Ihanpihalla, May 7, 2018.

  1. Ihanpihalla

    Ihanpihalla Member

    Joined:
    Aug 31, 2012
    Messages:
    10
    Likes Received:
    0
    Trophy Points:
    11
    Apua tarvisin viisaammilta kun pitäisi tehdä taulukkoon command button seuraavaa toimintoa varten.
    Eli ku nappia painaa pitäisi se saada lisäämään joka kerta uudelle riville A sarakkeeseen päivämäärä ja aika ja samalle riville B sarakkeeseen luku 1. Ja seuraavalla painalluksella samat seuraavalle riville.
    Napin luonti onnistui ja sain sen tekemään päivämäärän A sarakkeeseen mutta B sarakkeen 1 en saa enää laitettua enkä myöskään saa tehtyä että lisäisi seuraavan painalluksen tiedot seuraavalle riville.
     
  2. paavonen

    paavonen Member

    Joined:
    Feb 26, 2014
    Messages:
    5
    Likes Received:
    1
    Trophy Points:
    11
    Koodiksi esim. tällainen:
    Private Sub CommandButton1_Click()
    a = 1
    Cells(1, 1).Activate
    seur:
    rr = Cells(a, 1): If rr Then a = a + 1: GoTo seur

    Cells(a, 1) = Now
    Cells(a, 2) = 1
    End Sub
     

Share This Page