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

701

Ää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. Tukalaa kuumuutta

      Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh
      Ikävä
      43
      3017

    2. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      61
      2961

    3. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      42
      2367

    4. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      31
      1863

    5. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      25
      1719

    6. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      72
      1684

    7. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1586

    8. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      77
      1275

    9. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      38
      1252

    10. Lähtikö korvat

      puhtaaksi vaikusta?
      Tuusniemi
      79
      1080
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt