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

687

Ää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. Martinan aussikulta, missä?

      Mihin katosi Martina Aitolehden aussikulta kyselee Seiska!
      Kotimaiset julkkisjuorut
      432
      2631

    2. Helena Koivu menettänyt lapsensa. Onko Mikko Koivulla oma laki?

      Voiko olla totta että äidiltä viedään lapset ja ei mitään syytä ole edes kerrottu äidille itselleen.?
      Kotimaiset julkkisjuorut
      189
      1777

    3. Haluaisin sun kanssa yhteisen

      Elämän. Haluun sut.
      Ikävä
      57
      1766

    4. Pikkunaiselle terkkuja

      Olet parasta koko maailmassa! Kaikkein ihmeellisin. Olisitpa täällä. 🧡 harmaasusi
      Ikävä
      302
      1347

    5. Arto Satonen ja kokoomus 2020: Poliittiset virkanimitykset ovat koruptiota

      2025: Kokoomus on junttaamassa Arto Satosta Kelan johtoon ohi pätevämpien hakijoiden. https://www.hs.fi/politiikka/art-
      Maailman menoa
      153
      1151

    6. Voisiko olla jopa niin

      Että kumpikin vähän pelkää totaalista heittäytymistä, koska tiedetään että se olisi menoa sen jälkeen. Samaan aikaan hal
      Ikävä
      70
      1059

    7. Pystyisitkö ottamaan kaivattuasi

      Elämääsi miten pian
      Ikävä
      87
      1020

    8. Varkaita kuhmossa

      Miksi kuhmolaiset ei tee mitään varkaille ja huumehörhöille, teloittaa pitäisi kaikki.
      Kuhmo
      33
      1003

    9. Saara Aalto ja Teemu Roivainen paljastivat yllätysuutisen: "Rakkaus kietoi meidän kohtalomme..."

      Oho! Ex-pari on palannut yhteen musiikin merkeissä. He tekevät Rakkaustarina-nimeä kantavan 20-vuotisjuhlakiertueen syks
      Suomalaiset julkkikset
      12
      977

    10. K&T: Harvinainen haastattelu: Susanna Laine avaa suhdetta Petri Nygårdiin: "Olin sinkku vuosia..."

      Susanna Laine ei ole kertonut suhteestaan Petri Nygårdiin (Petri Laurila) julkisuudessa juurikaan. Aktiivisesti sosiaali
      Suomalaiset julkkikset
      9
      939
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt