rivin arvon kopioiminen käskettyyn kohtaan

Firloss

Syötän arvon 111 kohtaan D8, tämän pitäisi kopioida kohdasta G8 arvo kohtaan Q8. jos D8 arvo on 121, pitäisi kopioida kohdasta G8 saatu arvo kohtaan Q9 jne.
Siis, jos rivillä oleva syöte sarakkeessa D on jotain, kopioi samalta riviltä sarake G arvo uuteen kohtaan Q ( joka on määritetty 111=Q8 121=Q9 131=Q10 jne.)

Oliko riittävän sekavasti selitetty?

(G sarakkeen arvot muodostuvat toisen laskennan pohjalta, homma on siis yksinkertaistettuna, annan riville arvon jolloin kopioidaan samalta riviltä sarake, rivin arvolle määritettyyn kohtaan taulukossa.)

4

255

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Tämmöinen

      Tämä ko. sivun moduliin:

      Private Sub Worksheet_Change(ByVal Target As Range)
          If Target.Column = 4 Then
              Cells(7 Mid(Target.Text, 2, 1), "Q") = Cells(Target.Row, "G")
          End If
      End Sub

      • Firloss

        Periaatteessa toimii, mutta jos arvon poistaa D sarakkeesta niin herjaa
        "Run-time error '13'" Type mismatch

      • Tämmöinen
        Firloss kirjoitti:

        Periaatteessa toimii, mutta jos arvon poistaa D sarakkeesta niin herjaa
        "Run-time error '13'" Type mismatch

        Tarkistusehtoja voi lisätä tarpeen mukaan. Esim. seuraava hyväksyy vain kolme merkkiä pitkän numeromuotoisen syötteen, jonka ensimmäinen ja viimeinen merkki on "1". Väärä syöte ilmaistaan keltaisella värillä. Tapahtumienkäsittely voidaan keskeyttää makron suorituksen ajaksi, jottei sitä kutsuta turhaan Q-sarakkeen arvon muuttuesssa.

        Private Sub Worksheet_Change(ByVal Target As Range)
            Application.EnableEvents = False
            If Target.Column = 4 Then
                If Len(Target) = 3 And WorksheetFunction.IsNumber(Target) And _
                     Left(Target, 1) = "1" And Right(Target, 1) = "1" Then
                    Cells(7 Mid(Target.Text, 2, 1), "Q") = Cells(Target.Row, "G")
                    Target.Interior.Pattern = xlNone
                Else
                    Target.Interior.Color = RGB(255, 255, 0)
                End If
            End If
            Application.EnableEvents = True
        End Sub

    • Kundepuu

      hieman sekava selostus ekassa selostuksessa syötetään arvoja soluun D8 ja haetaan arvo G8 riippuen solun D8 arvoista soluihin Q8, Q9, Q10...
      tokassa selostuksessa taasen eri riveille ja haetaan vastaavan rivin arvo ja siirrretään rivin D arvo n mukaisesti Q sarakkeeseen...


      nyt koodissa arvoja syötetään soluun D8 ja siirtää tiedon G8 solun D8 perusteella Q -sarakkeeseen oikealle paikallle ja hyväksyy luvut 111- 991
      tämmöisen koodi ei toimi kuin 111-191 ...


      ko taulukon moduuliin...
      Option Explicit

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim Siirtymä As Long
      On Error Resume Next
      Application.EnableEvents = False
      ' vain soluun D8 syötetty arvo, muuta jos sarake
      If Not Intersect(Target, Range("D8")) Is Nothing Then
      If Len(Target) = 3 And Right(Target, 1) = 1 And Target > 110 Then
      ' hipsaa, jos ei tartte tyhjentää arvoja alueelta ja muuta alue sopivaksi
      Range("Q8:Q100") = ""
      'toimii luvuilla 101-991, pitää fiksata , josi sompi lukualue tarvitaan
      Siirtymä = Left(Range("D8"), 2) - 10
      Range("Q7").Offset(Siirtymä, 0) = Range("G8")
      End If
      End if
      Application.EnableEvents = True
      End Sub

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Olen tosi outo....

      Päättelen palstajuttujen perusteella mitä mieltä minun kaipauksen kohde minusta on. Joskus kuvittelen tänne selkeitä tap
      Ikävä
      15
      2111

    2. Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornosta

      https://www.kymensanomat.fi/paikalliset/8081054 Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornon hallussapi
      Kotka
      83
      2046

    3. Oletko sä luovuttanut

      Mun suhteeni
      Ikävä
      101
      1367

    4. Hommaatko kinkkua jouluksi?

      Itse tein pakastimeen n. 3Kg:n murekkeen sienillä ja juustokuorrutuksella. Voihan se olla, että jonkun pienen, valmiin k
      Sinkut
      141
      1161

    5. Vanhalle ukon rähjälle

      Satutit mua niin paljon kun erottiin. Oletko todella niin itsekäs että kuvittelet että huolisin sut kaiken tapahtuneen
      Ikävä
      10
      1146

    6. Maisa on SALAKUVATTU huumepoliisinsa kanssa!

      https://www.seiska.fi/vain-seiskassa/ensimmainen-yhteiskuva-maisa-torpan-ja-poliisikullan-lahiorakkaus-roihuaa/1525663
      Kotimaiset julkkisjuorut
      79
      1112

    7. Omalääkäri hallituksen utopia?

      Suurissa kaupungeissa ja etelässä moinen onnistunee. Suuressa osassa Suomea on taas paljon keikkalääkäreitä. Mitenkäs ha
      Maailman menoa
      170
      842

    8. Mitä sanoisit

      Ihastukselle, jos näkisitte?
      Tunteet
      61
      818

    9. Onko se ikä

      Alkanut haitata?
      Ikävä
      59
      751

    10. Aatteleppa ite!

      Jos ei oltaisikaan nyt NATOssa, olisimme puolueettomana sivustakatsojia ja elelisimme tyytyväisenä rauhassa maassamme.
      Maailman menoa
      249
      726
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt