11_03_2006 kysytty

epäonnistui

2006-11-09 20:05:29

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

506

Äänestä

Vastaukset

epäonnistui
2006-11-10 21:30:08
Saakohan tähän mitään neuvoa??
epäonnistui
2006-11-14 20:38:45
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
2006-11-28 16:17:57
Asia korjantui "SearchFormat:=False" osalta kun otin uudemman excelin käyttöön Excel 2003, mutta siltin se lopettaa erä 2 kohdalla?
- epäonnistui
  2006-11-29 17:56:17
  Nyt toimii tämä niin kuin pitääkin mutta vikana on vuodenvaihtuminen, elikä se ei huoli uutta vuotta ja erien alkamista alusta.
- kunde
  2006-12-03 12:02:41
  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ä
  2006-12-03 13:01:12
  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
  2006-12-05 19:00:48
  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ä
  2006-12-06 17:51:08
  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

Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
11.03.2026 08:31Arvot ja etiikka
41
11754
Sanna Marin vetänyt leukoja 11 kertaa
Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
12.03.2026 17:41Maailman menoa
35
4714
Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
11.03.2026 10:02Maailman menoa
253
2848
Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin
11.03.2026 12:33Maailman menoa
148
2638
Kuvaile kaivattusi
ulkonäkö. Asiattomatkin kommentit saa laittaa. -🏚️
11.03.2026 20:19Ikävä
112
1732
Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?
Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo
12.03.2026 08:56Tv-sarjat
14
1128
40 vuotta töitä paiskinut ja 3 vuotta työttömänä mamuna Suomessa, sama eläke
Jokin mättää. Eläkettä ei pidä maksaa lainkaan mamuille jos työhistoriaa ei ole vähintään 10 vuotta takana.
11.03.2026 08:38Maailman menoa
210
897
Et olisi niin epävarma,
olisit varmempi, ihastuisin suhun enemmän...
11.03.2026 19:09Ikävä
82
850
Kirjoita
… jotakin minkä vain kaivattusi tietää
12.03.2026 20:20Ikävä
76
813
En luota sinuun
en edelleenkään yhtään tiedä oletko lintu vai kala vai kalavale. Ja ilmeisesti haluat pitää sen niin, syitä voi vain arv
11.03.2026 23:04Ikävä
62
796

11_03_2006 kysytty

Vastaukset

epäonnistui kirjoitti:

kunde kirjoitti:

kyselijä kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

Sanna Marin vetänyt leukoja 11 kertaa

Sosiaalidemokratia romahtanut kautta maailman

Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?

Kuvaile kaivattusi

Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

40 vuotta töitä paiskinut ja 3 vuotta työttömänä mamuna Suomessa, sama eläke

Et olisi niin epävarma,

Kirjoita

En luota sinuun

Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

Tiesitkö? Andy McCoy ja Pelle Miljoona saavat taiteilijaeläkettä - Tämän suuruinen eläke on

Sähköautoa vaikea hankkia koska latauspisteet puuttuu

Hoksasitko? L/over-sarjan Jani Volanen on tämän TV-tähden isä!

Tykkäisitkö tällaisesta mökistä? Anni Ihamäki sai tv:ssä massiivisen remontin kesämökille

Katsotko Yle Areenasta sarjoja? Nämä ulkomaiset sarjat alkavat maaliskuussa

Unisex-vessat

Vastuun ottaminen omasta hyvinvoinnista

Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."

Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin