11_03_2006 kysytty

epäonnistui

Sain tämän makron Kundelta ja silloin se tuntui toimivan pienellä muutoksella poistin silloin kohdan "SearchFormat:=False" koska makro herjasi siitä, mutta nyt ilmeni uusi ongelma se ei kopioi kuin erä 2 asti jonka jälkeen ei enää kopiointi toimi.
Tuli nyt vasta eteen kun vuoden vaihde lähestyy ja ajattelin ottaa makron käyttöön.

Sub Kopioi()
Dim Vika As Integer
Dim Haettava As Range
Dim Haettava2 As Range
Dim Hakualue As Range
Dim Löydetty As Range
Dim EkaSolu As String
Sheets("Syöttö").Activate
Set Haettava = Range("M9")
Set Haettava2 = Range("O6")
Sheets("Data").Activate
Vika = Range("B65536").End(xlUp).Row

Set Hakualue = Range("B1:B" & Vika)
Range("B1").Select
Set Löydetty = Hakualue.Find(What:=Haettava, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not Löydetty Is Nothing Then
EkaSolu = Löydetty.Address
If Löydetty.Offset(0, 3) = Haettava2 Then
MsgBox "Tiedot on jo olemassa", vbInformation
Exit Sub
Else
Do
Set Löydetty = Hakualue.FindNext(Löydetty)
If Löydetty.Offset(0, 3) = Haettava2 Then
MsgBox "Tiedot on jo olemassa", vbInformation
Exit Sub
End If
Loop While Not Löydetty Is Nothing And Löydetty.Address EkaSolu
Range("B" & Vika 1) = Haettava
Range("B" & Vika 1).Offset(0, 3) = Haettava2
End If
End If
End Sub

8

499

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • epäonnistui

      Saakohan tähän mitään neuvoa??

    • epäonnistui

      Vai onko minussa vika? =)
      Olisi mukavaa tietää miksi jouduin poistamaan SearchFormat:=False ja aluksi se tuntui toimivan ainakin erä 2 asti en ole varma koetinko silloin suurempaa erää.

    • epäonnistui

      Asia korjantui "SearchFormat:=False" osalta kun otin uudemman excelin käyttöön Excel 2003, mutta siltin se lopettaa erä 2 kohdalla?

      • epäonnistui

        Nyt toimii tämä niin kuin pitääkin mutta vikana on vuodenvaihtuminen, elikä se ei huoli uutta vuotta ja erien alkamista alusta.

      • kunde
        epäonnistui kirjoitti:

        Nyt toimii tämä niin kuin pitääkin mutta vikana on vuodenvaihtuminen, elikä se ei huoli uutta vuotta ja erien alkamista alusta.

        sorry, etten ollut huomannut aikaisemmin kyselyäsi...
        tässä korjattu versio ;-)
        Sub Kopioi()
        Dim Vika As Integer
        Dim Haettava As Range
        Dim Haettava2 As Range
        Dim Hakualue As Range
        Dim Löydetty As Range
        Dim EkaSolu As String
        Sheets("Syöttö").Activate
        Set Haettava = Range("M9")
        Set Haettava2 = Range("O6")
        Sheets("Data").Activate
        Vika = Range("B65536").End(xlUp).Row

        Set Hakualue = Range("B1:B" & Vika)
        Range("B1").Select
        Set Löydetty = Hakualue.Find(What:=Haettava, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False)
        If Not Löydetty Is Nothing Then
        EkaSolu = Löydetty.Address
        If Löydetty.Offset(0, 3) = Haettava2 Then
        MsgBox "Tiedot on jo olemassa", vbInformation
        Exit Sub
        Else
        Do
        Set Löydetty = Hakualue.FindNext(Löydetty)
        If Löydetty.Offset(0, 3) = Haettava2 Then
        MsgBox "Tiedot on jo olemassa", vbInformation
        Exit Sub
        End If
        Loop While Not Löydetty Is Nothing And Löydetty.Address EkaSolu
        Range("B" & Vika 1) = Haettava
        Range("B" & Vika 1).Offset(0, 3) = Haettava2
        End If
        Else
        Range("B" & Vika 1) = Haettava
        Range("B" & Vika 1).Offset(0, 3) = Haettava2
        End If
        End Sub

      • kyselijä
        kunde kirjoitti:

        sorry, etten ollut huomannut aikaisemmin kyselyäsi...
        tässä korjattu versio ;-)
        Sub Kopioi()
        Dim Vika As Integer
        Dim Haettava As Range
        Dim Haettava2 As Range
        Dim Hakualue As Range
        Dim Löydetty As Range
        Dim EkaSolu As String
        Sheets("Syöttö").Activate
        Set Haettava = Range("M9")
        Set Haettava2 = Range("O6")
        Sheets("Data").Activate
        Vika = Range("B65536").End(xlUp).Row

        Set Hakualue = Range("B1:B" & Vika)
        Range("B1").Select
        Set Löydetty = Hakualue.Find(What:=Haettava, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False)
        If Not Löydetty Is Nothing Then
        EkaSolu = Löydetty.Address
        If Löydetty.Offset(0, 3) = Haettava2 Then
        MsgBox "Tiedot on jo olemassa", vbInformation
        Exit Sub
        Else
        Do
        Set Löydetty = Hakualue.FindNext(Löydetty)
        If Löydetty.Offset(0, 3) = Haettava2 Then
        MsgBox "Tiedot on jo olemassa", vbInformation
        Exit Sub
        End If
        Loop While Not Löydetty Is Nothing And Löydetty.Address EkaSolu
        Range("B" & Vika 1) = Haettava
        Range("B" & Vika 1).Offset(0, 3) = Haettava2
        End If
        Else
        Range("B" & Vika 1) = Haettava
        Range("B" & Vika 1).Offset(0, 3) = Haettava2
        End If
        End Sub

        Minulla on siinä syöttö taulussa enemmänkin tietoa miten nämä saadaan makroon?

        Function tallennatiedot(paikka)
        Set Data = Sheets("Data").Range("A2")
        Set Data = Data.Offset(paikka, 0)
        Sheets("Data").Rows(paikka 2).ClearContents' pistetaan tietoa
        With ActiveSheet
        Data.Offset(0, 1) = .Range("O6") ' Erä
        Data.Offset(0, 2) = .Range("M9") ' Vuosi
        Data.Offset(0, 3) = .Range("D9")
        Data.Offset(0, 4) = .Range("I9")
        Data.Offset(0, 5) = .Range("A13")
        Data.Offset(0, 6) = .Range("I13")
        Data.Offset(0, 7) = .Range("L16")
        Data.Offset(0, 8) = .Range("L17")
        Data.Offset(0, 9) = .Range("M16")
        jne.....

      • kunde
        kyselijä kirjoitti:

        Minulla on siinä syöttö taulussa enemmänkin tietoa miten nämä saadaan makroon?

        Function tallennatiedot(paikka)
        Set Data = Sheets("Data").Range("A2")
        Set Data = Data.Offset(paikka, 0)
        Sheets("Data").Rows(paikka 2).ClearContents' pistetaan tietoa
        With ActiveSheet
        Data.Offset(0, 1) = .Range("O6") ' Erä
        Data.Offset(0, 2) = .Range("M9") ' Vuosi
        Data.Offset(0, 3) = .Range("D9")
        Data.Offset(0, 4) = .Range("I9")
        Data.Offset(0, 5) = .Range("A13")
        Data.Offset(0, 6) = .Range("I13")
        Data.Offset(0, 7) = .Range("L16")
        Data.Offset(0, 8) = .Range("L17")
        Data.Offset(0, 9) = .Range("M16")
        jne.....

        Nythän koodi hakee B sarakkeesta vuosilukua ja erää ja jos ei löydy niin tekee uuden rivin.
        eli
        Range("B" & Vika 1) = Haettava ’M9 ja se tulee B sarakkeeseen
        Range("B" & Vika 1).Offset(0, 3) = Haettava2 ’O6 ja se tulee E sarakkeeseen
        Range("B" & Vika 1).Offset(0, 4) = Sheets("Syöttö").Range("D9") ja se tulee E sarakkeeseen
        jne...

        offset on 0 pohjainen joten
        Range("B" & Vika 1).Offset(0, 0) on sama solu kuin Range("B" & Vika 1)
        Range("B10").Offset(1, 3)=E11
        jne...

      • kyselijä
        kunde kirjoitti:

        Nythän koodi hakee B sarakkeesta vuosilukua ja erää ja jos ei löydy niin tekee uuden rivin.
        eli
        Range("B" & Vika 1) = Haettava ’M9 ja se tulee B sarakkeeseen
        Range("B" & Vika 1).Offset(0, 3) = Haettava2 ’O6 ja se tulee E sarakkeeseen
        Range("B" & Vika 1).Offset(0, 4) = Sheets("Syöttö").Range("D9") ja se tulee E sarakkeeseen
        jne...

        offset on 0 pohjainen joten
        Range("B" & Vika 1).Offset(0, 0) on sama solu kuin Range("B" & Vika 1)
        Range("B10").Offset(1, 3)=E11
        jne...

        Elikä joudunko minä kirjoittamaan kaikki kopioitavat kohteet kolmeen kertaan tähän makroon?
        Enkö voi kutsua kohteita makrossa?
        Tämäkään ei vielä toimi elikä kun on sama erä samalle vuodelle sen kuuluu kysyä tallennetaanko päälle ja jos vastaa kyllä niin se tekee tallennuksen mutta mun kokeiluni tekee vain silloin kun se on viimeinen tallennus elikä ”vika”.
        Miten korjaan?

        Älkää hermostuko mulle mutta olen vielä taitamaton ja siksi jään ellei jakseta neuvoa.

        Minä olen muuttanut alkuperäisen kyselyni jälkeen noita kohteita M9 ja O6.

        Sub Kopioi()
        Dim Vika As Integer
        Dim Haettava2 As Range
        Dim Haettava As Range
        Dim Hakualue As Range
        Dim Löydetty As Range
        Dim EkaSolu As String
        Sheets("Syöttö").Activate
        Set Haettava2 = Range("M9")
        Set Haettava = Range("O6")
        Sheets("Data").Activate
        Vika = Range("B65536").End(xlUp).Row

        Set Hakualue = Range("B1:B" & Vika)
        Range("B1").Select
        Set Löydetty = Hakualue.Find(What:=Haettava, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False) ',SearchFormat:=False)
        If Not Löydetty Is Nothing Then
        EkaSolu = Löydetty.Address
        If Löydetty.Offset(0, 3) = Haettava2 Then
        MsgBox "Tiedot on jo olemassa", vbInformation
        Exit Sub
        Else
        Do
        Set Löydetty = Hakualue.FindNext(Löydetty)
        If Löydetty.Offset(0, 1) = Haettava2 Then
        Msg = "Erä on jo olemassa! " & "Haluatko tallentaa vanhan päälle!"
        response = MsgBox(Msg, vbYesNo)
        If response = vbYes Then Range("B" & Vika).Offset(0, 2) = Sheets("Syöttö").Range("D9")
        Range("B" & Vika).Offset(0, 4) = Sheets("Syöttö").Range("A13")
        Range("B" & Vika).Offset(0, 5) = Sheets("Syöttö").Range("L16")
        Exit Sub
        End If
        Loop While Not Löydetty Is Nothing And Löydetty.Address EkaSolu
        Range("B" & Vika 1) = Haettava
        Range("B" & Vika 1).Offset(0, 1) = Haettava2
        Range("B" & Vika 1).Offset(0, 2) = Sheets("Syöttö").Range("D9")
        Range("B" & Vika 1).Offset(0, 4) = Sheets("Syöttö").Range("A13")
        Range("B" & Vika 1).Offset(0, 5) = Sheets("Syöttö").Range("L16")
        End If
        Else
        Range("B" & Vika 1) = Haettava
        Range("B" & Vika 1).Offset(0, 1) = Haettava2
        Range("B" & Vika 1).Offset(0, 2) = Sheets("Syöttö").Range("D9")
        Range("B" & Vika 1).Offset(0, 4) = Sheets("Syöttö").Range("A13")
        Range("B" & Vika 1).Offset(0, 5) = Sheets("Syöttö").Range("L16")

        End If
        End Sub

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vilma Nissinen pyytää anteeksi rasistisia lausuntojaan

      Nöyrtyi kuten persut yleensäkin. On kyllä noloa tuollainen vätystely, kun ei ole miestä seisoa omien lausuntojensa takan
      Maailman menoa
      210
      3285

    2. Riikka Purra: "Kokoomus haluaa leikata pienituloisten etuuksista - Se ei meille käy"

      Näin vakuutti persujen Purra edellisten eduskunta vaalien alla,. https://www.ku.fi/artikkeli/4910942-kun-uudessa-videos
      Maailman menoa
      62
      2024

    3. Sandels tölkin hinta nousi 1,29 eurosta 1,32 euroon

      Mitähän järkeä valtiolla on verottaa tuotakin elintarviketta niin kovasti, että on järkevämpää käydä hakemassa ulkomailt
      Köyhyys
      38
      1641

    4. Lindtmanin pääministeriys lähenee päivä päivältä

      Suomen kansan kissanpäivät alkavat siitä hetkestä, kun presidentti Stubb on tehnyt nimityksen. Ainoastaan ylin tulodesi
      Maailman menoa
      65
      1593

    5. Oon kyllä välillä ollut susta

      Nainen huolissani, en oo niin sydämetön mitä tunnut ajattelevan
      Ikävä
      105
      1337

    6. Tuntuuko sinusta mies

      että olet jossain, mutta sydämessäsi haluat olla muualla. Suunnittelet kaikkea kivaa ja olet innolla mukana, mutta silti
      Ikävä
      22
      1235

    7. Rakastan sitä

      kun uppoat selittämään jotain. Etsit oikeaa tapaa sanoa jotain, jonka olet jo etukäteen miettinyt, sekoat vähän sanoissa
      Ikävä
      50
      1033

    8. Ikävä uutinen uudesta Unelmia Italiassa kaudesta - Iso pettymys tv-katsojille!

      Unelmia Italiassa -sarja kertoo Ellen Jokikunnaksen perheen elämästä Suomessa ja Italiassa. Nyt Ellen on kertonut tuleva
      Tv-sarjat
      6
      1020

    9. Jokaisella tytöllä on supervoimansa

      Millaisia ajatuksia artikkeli herättää? Mainos: Dove | ”Itsetuntoni oli ihan romuttunut” – Peppina Rosén haastaa tavan
      Sinkut
      196
      974

    10. Mitä tapahtuisi....

      Meidän välillä jos törmäisimme yöelämässä ilman häiriötekijöitä ja olisimme hieman huppelissa? Päättyisikö ilta kenties
      Ikävä
      61
      947
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt