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

762

Ää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. Lindtman I vasemmistohallitus aloittaa viimein Suomen kuntoon laittamisen

      Tässä nyt on 3 vuotta seurattu irvokasta kärsimysnäytelmää nimeltään "valtion budjetin tasapainotus by äärioikeisto", ja
      Maailman menoa
      232
      3017

    2. Missä viipyy persujen lupaama euron bensa?

      En edes muista milloin bensapumpussa olisi ollut ykkösellä alkava litrahinta. Missä siis viipyy persujen lupaama euron b
      Maailman menoa
      197
      2646

    3. Kirje, PellePelottomalle.

      Tärkeää olisi luoda ystävyys, että se, jota rakastaa, on samalla paras ystävä ja luotettavin, jolle voi ja uskaltaa luot
      Ikävä
      112
      1263

    4. Voi teitä naisia

      Suudeltiin ja nukuttiin toisissamme kiinni mutta pillua ei tullu, ei edes aamulla. t.38vmies
      Sinkut
      141
      1218

    5. Meni kyllä aika solmuun

      Meidän tutustuminen 😐
      Ikävä
      72
      1126

    6. Martinan hevoset.

      Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait
      Kotimaiset julkkisjuorut
      300
      1121

    7. Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa

      Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka
      Maailman menoa
      372
      1091

    8. Lapsien pakko kasteesta on luovuttava.

      Eikö olisi parempi siirtää kaste rituaali rippikouluun,kun 15v.tietävät jo itse haluaavatko tulla kastetuksi juutalais-k
      Kaste
      583
      1065

    9. Mistä löytyy naisseuraa sinkkumiehelle?

      Kertokaapas kokeneemmat mistä löytyis naisseuraa sinkulle. Ihan ois eukko nyt tosissaan hakusessa. Tanssipaikat kun on a
      Kuhmo
      21
      1015

    10. Omakotitalossa väkivaltaa ounasrinteellä

      Kertoo iltalehdet Mitä lienee Tapahtui. Verinen ihminen kannettu lanssiin
      Rovaniemi
      8
      883
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt