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

473

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

En voi jutella kanssasi
tietenkään, mutta täällä voin sanoa sinulle, että se sinun hiljaisuutesi ja herkkyytesi eivät ole heikkoutta. Ne ovat ih
27.02.2025 22:23Tunteet
57
7340
Trump ja Vance murskasivat ja nolasivat Zelenskyn tiedotusvälineiden edessä Valkoisessa talossa.
Jopa oli uskomaton tilaisuus Valkoisessa talossa. Zelensky jäi täydelliseksi lehdellä soittelijaksi suhteessa Trumpiin j
28.02.2025 20:30Maailman menoa
739
3604
Zelenskyi ei suostunut nöyrtymään Trumpin ja Vancen edessä, siksi meni pieleen
Trumppia täytyy imarrella, silloin homma toimii aina. Tähän Zelenskyi ei suostunut.
01.03.2025 09:45Maailman menoa
372
1988
Mikä on kaivattusi ärsyttävin piirre?
Mun kaivattu on erittäin vastahakoinen puhumaan itsestä. Kääntää puheenaiheen aina muuhun kun hänestä tulee puhetta.
28.02.2025 08:49Ikävä
165
1826
Koska olet rakastellut
Kaivattusi kanssa viimeksi?
27.02.2025 19:42Ikävä
86
1479
Kokoomus haluaa hoitaa flussat yksityisellä, jotta säästettäisiin rahaa ja aikaa
Mies hakeutui Terveystalo Kamppiin flunssaoireiden takia helmikuisena sunnuntai-iltana. Diagnoosiksi kirjattiin influens
27.02.2025 13:00Maailman menoa
84
1401
Miten saisin
Sinut omakseni?
28.02.2025 14:13Ikävä
91
1300
Anteeksi Pekka -vedätys
Apuna Ry:n somessa levinnyt Anteeksi Pakka -kampanja saa aina vaan kummallisempia piirteitä. ”Mä pyydän anteeksi. Mä
27.02.2025 12:51Maailman menoa
63
1257
Rakkaus ei iloitse vääryydestä vaan iloitsee yhdessä TOTUUDEN kanssa.
Tajuatteko, että jotkut ihmiset pitävät siitä, kun toiset kaatuvat? He nauttivat siitä, kun toiset mokaavat tai käyttävä
27.02.2025 17:49Idän uskonnot
262
1251
Kumpi tästä
Teidän tilanteesta teki vaikeaa? Sivusta
27.02.2025 16:22Ikävä
81
1164

11_03_2006 kysytty

Vastaukset

epäonnistui kirjoitti:

kunde kirjoitti:

kyselijä kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

En voi jutella kanssasi

Trump ja Vance murskasivat ja nolasivat Zelenskyn tiedotusvälineiden edessä Valkoisessa talossa.

Zelenskyi ei suostunut nöyrtymään Trumpin ja Vancen edessä, siksi meni pieleen

Mikä on kaivattusi ärsyttävin piirre?

Koska olet rakastellut

Kokoomus haluaa hoitaa flussat yksityisellä, jotta säästettäisiin rahaa ja aikaa

Miten saisin

Anteeksi Pekka -vedätys

Rakkaus ei iloitse vääryydestä vaan iloitsee yhdessä TOTUUDEN kanssa.

Kumpi tästä

Zelenskyi ei suostunut nöyrtymään Trumpin ja Vancen edessä, siksi meni pieleen

MTV: Katri Helena repäisee kunnolla - Aivan uudessa roolissa TV:ssä - Tätä ei arvannut!

Hobby Hall myy Temun kamaa 3x hinnalla

Vera Stanhope tutkii -sarja palaa uusin jaksoin - Mutta faneille tiedossa pettymys

TELIA pakottaa 4G-liittymiä väkisin 5G-liittymiin, vaihtaa ilman lupaa

Anteeksi Pekka -vedätys

Jätetty ja eronnut Jyrki yllättää uuden Ensitreffit alttarilla -kauden tiimoilta: "Mikä olisi..."

Kokoomus haluaa hoitaa flussat yksityisellä, jotta säästettäisiin rahaa ja aikaa

Pitkän linjan demarivaikuttaja Riku Pirinen jäi KIINNI

MTV: Sami Uotila paljastaa Salkkarit-saunakohtauksista -Tämä kikka käytössä: "Päälle vanha kunnon.."