Apuja kaivataan

Nappo

Pitäisi saada kyseiseen pätkään sellainen toiminto että jos luku (B9) onkin jo kyseisessä taulukossa niin antaa jonkun "herjauksen" eikä siirrä ko. lukua kyseiseen taulukkoon.

Private Sub CommandButton1_Click()
Range("B9").Select
Selection.Copy
Sheets("39").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Sheets("Syöttö").Select
Range("B9").Select
ActiveCell.FormulaR1C1 = ""
Range("B9").Select
End Sub

2

745

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Mievuan-M

      ois siihen yksi vaihtoehto.

      Private Sub CommandButton1_Click()
      Dim huom
      If Sheets("39").Range("e29") = Range("b9") Then
      huom = MsgBox("Luku on jo olemassa", vbOKOnly, "Huom!!")
      End
      End If
      Range("B9").Select
      Selection.Copy
      Sheets("39").Select
      Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
      , Transpose:=False
      Application.CutCopyMode = False
      Selection.Insert Shift:=xlDown
      Sheets("Syöttö").Select
      Range("B9").Select
      ActiveCell.FormulaR1C1 = ""
      Range("B9").Select
      End Sub

      • koodiin

        näyttäis tulleen yksi pieni virhe. Alkuperäinen koodi kopioi taulukosta "Syöttö" solun ("b9") taulukon 39 valittuun soluun ja siirtää luvun sen jälkeen yhden rivin alaspäin ja tyhjentää sen jälkeen ensin mainitun solun.
        Herjauksen saa toimimaan, kun määrittää tuohon iffiin taulukosta 39 valitusta solusta yhden solun alaspäin. Ilmeisesti neuvojalla on ollut valittuna solu ("e28")

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vain vasemmistolaiset rakennemuutokset pelastavat Suomen

      Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot
      Maailman menoa
      40
      3460

    2. Persut huutaa taas: "kato! muslimi!"

      Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe
      Maailman menoa
      13
      2848

    3. Menen nyt koisimaan

      Ja en ehkä palaa tänne. Asia on nyt loppuunkäsitelty ja totuus tuli ilmi
      Ikävä
      28
      2524

    4. Olisiko sinulla

      Jonossa vaihtoehtoja, ehkä
      Ikävä
      42
      1977

    5. Haluaisin rakastaa sinua

      Ja olla sinulle se oikea... Rakastan sinua 💗💗💗
      Ikävä
      16
      1891

    6. onko kaivattusi

      vaarallinen? :D
      Ikävä
      51
      1873

    7. Pieni galluppi

      Mitäs lahjaa odotat joulupukilta.
      Ikävä
      53
      1819

    8. Oletko uhriutuja?

      vaikka itse olet rääkännyt toista ja aiheuttanut ties mitä toiselle.
      Tunteet
      55
      1553

    9. KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!

      Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola
      Suomalaiset julkkikset
      10
      1488

    10. Kenet molemmat

      Sä haluat mies?
      Ikävä
      13
      1194
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt