Millä koodilla

Mikä on se koodinpätkä jolla saadaan esim alla olevassa koodissa kohdistin rullaamaan niin että se on aina siinä kohdin missä tupla esiintyy. Eli kun taulukossa on ensimmäiset 5 riviä kiinnitetty ja siellä on nappi johon koodi on liitetty niin miten saadaan alimmat rivit rullaamaan niin että aina se rivi jossa on tupla on esillä ?

Sub oma_poista_tuplat()
Dim lngSel As Long
Range("A:A").Interior.ColorIndex = xlNone
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1).Value) > 1 Then
Cells(i, 1).Interior.ColorIndex = 3
lngSel = MsgBox("Tuplatietoja havaittu...Haluatko poistaa", vbYesNoCancel)
If lngSel = vbCancel Then Exit Sub
If lngSel = vbYes Then
Cells(i, 1).EntireRow.Delete
Else
Cells(i, 1).Interior.ColorIndex = xlNone
End If
End If
Next i
End Sub

14

255

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ...

      ActiveWindow.ScrollRow = i ?

    • Kiitos vastauksestasi. En saa sitä toimimaan tuolla lisäyksellä. Mihin kohti sijoitit sen ?

      • ...

        Oletettavasti ennen riviä lngSel = MsgBox("Tuplatietoja...

        Ei ole tosin Exceliä käytössä.


    • Tulee "Syntax error"

    • Sub oma_poista_tuplat()
      Dim lngSel As Long
      Range("A:A").Interior.ColorIndex = xlNone
      For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
      If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1).Value) > 1 Then
      Cells(i, 1).Interior.ColorIndex = 3
      ActiveWindow.Panes(2).ScrollRow = i
      lngSel = MsgBox("Tuplatietoja havaittu...Haluatko poistaa", vbYesNoCancel)
      If lngSel = vbCancel Then Exit Sub
      If lngSel = vbYes Then
      Cells(i, 1).EntireRow.Delete
      Else
      Cells(i, 1).Interior.ColorIndex = xlNone
      End If
      End If
      Next i
      End Sub

      • Vielä sen verran että kun nyt koodi löytää tuplat se näyttää niistä vain toisen ja sen siinä lukitun rivin alapuolella. Eli en näe mikä se toinen on johon se viittaa. Tämä on tärkeää koska se saattaa löytää tuplan A sarakkeesta mutta tuplien liitetiedot C ja D ja E sarakkeissa ovatkin erilaiset, jolloin poistoa ei suoriteta.

        Malli;

        A
        1
        2 Näille riveille on piirretty makrojen käyttöä varten painikkeet
        3
        4
        5
        -----------------------------------------------------------------------------------
        Tässä kulkee lukittujen rivien raja

        6 Tieto 1
        7 Tieto 1 (koodi näyttää tämän rivillä 6, kun sen pitäisi näyttää rivin 6 tieto
        rivillä 6 )
        8 Tieto2
        9 Tieto 3
        10 Tieto 4
        jne

        Miten saan tuon korjauksen tuohon ?

        Terv

        Jorma


      • jo.mu kirjoitti:

        Vielä sen verran että kun nyt koodi löytää tuplat se näyttää niistä vain toisen ja sen siinä lukitun rivin alapuolella. Eli en näe mikä se toinen on johon se viittaa. Tämä on tärkeää koska se saattaa löytää tuplan A sarakkeesta mutta tuplien liitetiedot C ja D ja E sarakkeissa ovatkin erilaiset, jolloin poistoa ei suoriteta.

        Malli;

        A
        1
        2 Näille riveille on piirretty makrojen käyttöä varten painikkeet
        3
        4
        5
        -----------------------------------------------------------------------------------
        Tässä kulkee lukittujen rivien raja

        6 Tieto 1
        7 Tieto 1 (koodi näyttää tämän rivillä 6, kun sen pitäisi näyttää rivin 6 tieto
        rivillä 6 )
        8 Tieto2
        9 Tieto 3
        10 Tieto 4
        jne

        Miten saan tuon korjauksen tuohon ?

        Terv

        Jorma

        Anteeksi typerä kysymykseni. Lisäsin sinne perään -5 niin sain ne putoamaan lähemmäs rullattavan taulukon keskustaa ja näinhän se onnistui, tietenkin... Tein sen vaan ensin liian hätäisesti ja panin -5 kiinni i niin eihän se toiminut vaan antoi virhettä. No nyt se on täydellinen. Kiitos kaikille keskusteluun osallistujille, jatketaan excelin kanssa.....


    • Kiitos Kunde. Viitsitkö vielä suomentaa tuon ActiveWindow.Panes(2).ScrollRow = i, eli miksi ActiveWindow.ScrollRow = i ei toimi tuossa yhteydessä ? Eli mistä tuo .Panes(2) syntyy ? Kiitollisena "vba kielen ei niin guru vielä"

    • ActiveWindow viittaa aktiiviseen ikkunaan ja kun se jaetaan syntyy Ikkunat(Panes Collection) ja silloin niitä on 2- eli ylempi Pane1 ja alempi Pane2 ja jos viittataan Pane2.rivinro niin se on siis alemman ikkunan rivi ja ylempi olisi sitten Pane1.rivinro.
      pelkästään activewindow on siis oikeesti ylempi ikkuna

      muokkaa vielä niin, että rullaa aina ylemmässä sitä ekaa esiintymää... sitten se on täydellinen ;-)

      • hokasin vasta, että sanoit muilla riveillä on tietoa mitä tsekataan, miksi et sitten tarkista kaikkia kerralla ja ei tartte kysellä...


    • Moi. Se on totta että vois tarkistaa kaikki kerralla ja silloin ei tarvisi kysellä. Mutta kun ongelmana on se että usealla rivillä on vain yksi tieto joka esiintyy tuplana. Tällöin tuota tietoa ei saa poistaa. Se poistetaan vain jos tieto kaikissa sarakkeissa (A, B, C, D, E, F ja G) on yhtenevä, useammalla kuin yhdellä rivillä. Vois tietenkin ajatella että se kävisi kaikki läpi yhdellä kertaa, ja poistaisi vain ne joissa kaikki tieto on yhtenevää riveittäin. Voisitko näyttää tuon koodin ? Onko exceliin mahdollista tehdä sellaista koodia että kun syötän uusille riveille tietoa, tuo koodi toimis taustalla ja jos se löytää juuri samanlaisen joltakin riviltä, se ilmoittaa siitä MsgBoxilla esim (vastaava tieto löytynyt riviltä .... ) ? Tässä oppii samalla aivan huimasti. Kiitos siitä Sinulle. Onko sulle sellaista sähköpostia mihin voin esimerkin laittaa tästä taulukosta ?

    • helpoitenhan toi menee suodattamalla uniikit paikalla ja sitten poistaa piilotetut rivit...
      toka kyssäri: mahdollista on
      ja vika
      [email protected]

    • Lähetin postia

      • paluupostia sait...

        laitan tännekin sen koodin pätkän, koska se on nopea ja cool...

        eli poistaa tuplarivit DAT taulukosta sarakkeista A-G.
        koodi lisää Huuhaa taulukon ja kopioi tiedot sinne DAT taulukosta ja suorittaa erikoissuodatuksen ja kopioi suodatetut tiedot DAT taulukkoon ja poistaa lopuksi Huuhaa taulukon

        Sub Kunden_poista_tuplat()
        Dim nimi As String
        On Error Resume Next
        Application.DisplayAlerts = False
        nimi = Worksheets("Huuhaa").Name
        If Not Err.Number = 0 Then Sheets.Add.Name = "Huuhaa"
        Sheets("Huuhaa").Cells.ClearContents
        On Error GoTo 0
        Sheets("DAT").Activate
        Cells.Copy Sheets("Huuhaa").Range("A1")
        Cells.ClearContents
        Sheets("Huuhaa").Columns("A:G").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A6"), Unique:=True
        Sheets("Huuhaa").Delete
        Application.DisplayAlerts = True
        End Sub

        Keep EXCELing
        @Kunde


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

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      203
      3792
    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      59
      2379
    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      391
      2286
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2193
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      32
      1521
    6. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      513
      1287
    7. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      93
      1261
    8. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      56
      1237
    9. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      68
      1129
    10. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      123
      1108
    Aihe