Tämä pitäisi ratkaista:
Excel-taulukossa ( nimeltään vaikka "valmiit") sarakkeessa A on rivin yksilöivä tieto ja Excel-taulukossa (nimeltään vaikka pohjatieto) on myös sarakkeessa A sama tunniste kuin "valmiit" taulukossa.
Mitä pitäisi tapahtua:
Makro tutkii "valmiit" sarakkeen A ja jos sama tieto löytyy "pohjatieto" sarakkeesta A niin kopioidaan "pohjatieto" taulukosta ko. rivin tieto sarakkeesta D "valmiit" taulukon sarakkeeseen E. Makron pitäisi tehdä luuppia niin kauan kuin taulukossa valmiit riittää rivejä.
Makro-ongelma tiedon haussa
2
387
Vastaukset
pikkasen hakua peliin foorumilla ja kymmenkunta samantapaista casea ja mun vastaukset niihin löytyy...
muutaman rivin muokkauksella
taukoiden nimet nyt pohja ja valmiit ja haetaan A sarakkeesta vastineita
moduuliin...
Sub Siirrä()
Dim Löydetty As Range
Dim Solu As Range
Dim vika As Long
On Error Resume Next
Application.ScreenUpdating = False
Worksheets("valmiit").Activate
vika = Range("A65536").End(xlUp).Row
For Each Solu In Range("A1:A" & vika)
Solu.Offset(0, 4) = EtsiJaSiirrä(Solu, Range("pohja!A:A"))
Next Solu
Application.ScreenUpdating = True
End Sub
Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
Dim Solu As Range
Dim EkaOsoite As String
With HakuAlue
Set Solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not Solu Is Nothing Then
Set EtsiJaSiirrä = Solu.Offset(0, 3)
EkaOsoite = Solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, Solu)
Set Solu = .FindNext(Solu)
Loop While Not Solu Is Nothing And Solu.Address EkaOsoite
End If
End With
End Function- Pihalla VBA:sta
avusta. Helpottaa elämää huomattavasti.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1581941
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311754Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021527Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171223- 711218
- 681181
- 220978
- 70805
- 45740
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194723