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

491

Ää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

SDP jo 100 % suositumpi kuin persut
Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst
15.10.2025 06:46Maailman menoa
300
14716
Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia
tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,
15.10.2025 10:00Maailman menoa
184
4338
PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas
https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija
15.10.2025 08:46Maailman menoa
140
3931
Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu
Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun
15.10.2025 08:40Maailman menoa
459
1933
Kovia syytöksiä Stefan Thermaninsta.
Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt
15.10.2025 06:03Kotimaiset julkkisjuorut
187
1928
En minä kyllä enää odota sinua
Olet siellä sen harmaan kanssa. Niin, annoit minun nähdä lämpimät tunteesi siitä huolimatta. Se merkitsi kyllä paljon. O
16.10.2025 18:18Ikävä
35
1796
Jos joku luulee että kaikki käy
Sanon vain tämän. Minun kanssani ei neuvotella. Minun kanssani eletään tasavertaisesti. Jos se on liikaa, niin ovi rinn
16.10.2025 02:58Ikävä
52
1405
Joka kolmas työtön on työkyvytön
Viime vuonna työnhakuvelvoitteen ulkopuolella oli noin kolmannes työttömistä työnhakijoista. Huhheijaa, mihin suomalais
16.10.2025 10:58Maailman menoa
153
1267
Taas pedofiliatuomio Haapaveelle
Vastenmielisiä ja vakavia rikostapauksia pikkupaikkakunnan alueellekin näyttää riittävän. Tämän alan rikoksien tuomiot
17.10.2025 12:14Haapavesi
35
1261
Sakin hivutus - ilmiö
Miten tuollainen tuollainen ilmiö kuin ”sakin hivutus” syntyy? Mitä syitä ilmiön syntymiseen tarvitaan? Onko sakissa jok
16.10.2025 13:4080 plus
67
1190

11_03_2006 kysytty

Vastaukset

epäonnistui kirjoitti:

kunde kirjoitti:

kyselijä kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

SDP jo 100 % suositumpi kuin persut

Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia

PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas

Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu

Kovia syytöksiä Stefan Thermaninsta.

En minä kyllä enää odota sinua

Jos joku luulee että kaikki käy

Joka kolmas työtön on työkyvytön

Taas pedofiliatuomio Haapaveelle

Sakin hivutus - ilmiö

GALLUP: Kenet haluaisit nähdä Elämäni biisi -ohjelmassa kertomassa elämänsä biisin?

Tiesitkö? Johannes Brotheruksen ex-isäpuoli on kuin onkin Mikko Kuustonen - Tästä on kyse!

Sanotaan, että ihminen on "laumaeläin ". Miksi ihminen tarvitsee "laumaa" ?

Muistatko tämän? Näin Ensitreffit-Arttu aiheutti päänvaivaa maajussi-Stiinalle tosi-tv:ssä

TTK:ssa peli on raakaa! Kristiina Mäkelän sairastuminen pistää näin kapuloita rattaisiin

Joka kolmas työtön on työkyvytön

Liikaa tuttuja kasvoja? Suuri seikkailu -kisaajat ovat tässä - Mukana Diili-voittaja, Bile-Dani...

Kovia syytöksiä Stefan Thermaninsta.

Maajussi-Ville herättää kysymyksiä - Etsiikö oikeasti rakkautta vai mainostaako oliiviöljyä?

Onko kalju mies mielestäsi komea?