VBA Excelissä

Nyt nopeasti, mutta palaan asiaan uudelleen:

> Voisiko se olla jotain valitun alueen solut käydään läpi ja jos arvo
> löytyy niin rivi kopioidaan tiettyyn paikkaa ja tämä toistetaan niin
> monesti kun alue on testattu. Auttakaa jos tiedätte ratkaisun.

Itse laittaisin nuo tiedot lista muotoon ( Tietikanta taulukko ), yhdelle taulukolle, ainakun tietoa syötetään tuohon taulukkoon lista järjestetään haluttuun järjestykseen.

sitten erikois suodatuksella suodatan näkyviin tuosta vain ne halutut tiedot.

Jos haluaisin muussa muodossa tiedot, tekisin oman pohjan toiseen taulukkoon ja makrolla kopoisin halutut tiedot tuolle toiselle taulukolle.

Tässä jokuaika sitten joku kysyi miten syötetään tieto ( Autoista ) suoraan haluttuun muotoon, mutta itse en käyttäisi sellaista mallia, koska jos haluat muita pohjia ja et voi kovin yksinkertaisesti pomia haluttuja tietoja jos tiedot ovat muussa muodossa kuin lista muodossa.

Aloitan uuden projektin ensi viikolla joss on tarkoitus pitää listaa asiakkaista ( yhdele taulukolle ) ja heihin kohdistuviin tapahtumiin ( toiselle taulukolle ). Tuosta pitää esimerkiksi tulostaa jonkun aisakkaan tiedot ja tapahtumat peräkkäin, toden näköisesti tehen pohjan tulostusta varten johon siirrän valitun asiakkaan tiedot ja tapahtumat.

En nyt rupea vääntään tuota makroa, mutta palataan asiaan.

> Jos olet excelissä hyvä tekemään apuohjelmia niin voitaisiin
> jakaa kokemuksia enemmälti.

Juuri siksi ole täällä, itse en niin hyvä ole mutta kokemuksia otan vastaan ja yritän vähän kirjoitella, vaikka tuo kirjallinen ilmaisu aika huonoa ja hidasta onkin.

> Excelillä voi tehdä mitä vain!   

Kyllä ehdottomasti, mutta excelin ongelma on se että asioita voi tehdä niinn monella eri tavalla että tahtoo mennä sekaisin mikä on oikein kuhunkin tilanteeseen, ja kun oppii koko aja uutta niin toiseta päästä jo tahtoo unohtua toisia asioita. Siksi suosittenen että jo suunnittelu vaiheessa luo joitakin sääntöja joita sitten noudattaa niin kauan kuin mahdollista, näin monimutkainenkin projeksti pysyy edes jollakin tavalla kasassa, esim minulla Tiedot listaan omaan taulukkoon, tulostus omaan taulukkonn, sivun ylä laitaan rivit 1-15 mahdolliset toiminta napit ja makrot jne.....

tossapa sulle makro, jolla kikkailemalla voi sitten tehdä mitä vaan, koska se palauttaa Rangen...

nyt hakee 1000 sarakkeista A:D ja kopioi rivit Taul2 sarakkeeseen A ensimmäistä tyhjästä solusta alkaen
Union funktiota joutuu käyttään sen takia, koska luku voi löytyä useammasta sarakkeesta ja tällöin alueet leikkaavat ja antaa virheilmoituksen- tolla siis korjataan tuo...

moduuliin...
Function LaajennettuHaku(Hakuehto As Variant, _
Hakualue As Range, _
Optional Mitä As Variant, _
Optional Miten As Variant, _
Optional Kokosolu As Boolean) As Range

Dim solu As Range
Dim Eka As String
If IsMissing(Mitä) Then Mitä = xlValues
If IsMissing(Miten) Then Miten = xlPart
If IsMissing(Kokosolu) Then Kokosolu = False

With Hakualue
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=Mitä, _
LookAt:=Miten, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=Kokosolu, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set LaajennettuHaku = solu
Eka = solu.Address
Do
Set LaajennettuHaku = Union(LaajennettuHaku, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address Eka
End If
End With

End Function

Sub Testi()
On Error GoTo virhe:
Dim löydetty As Range
Set löydetty = LaajennettuHaku(1000, Columns("A:D"), xlValues, xlPart, False).EntireRow
Union(löydetty, löydetty).Copy Range("Taul2!A65536").End(xlUp).Offset(1, 0).EntireRow
Exit Sub
virhe:
MsgBox "Hakuehdollasi ei löytynyt yhtään tietuetta!"
End Sub

Keep Excelling

ainakin mulla toimii 2003 versiossa tää

Sub Testi()
On Error GoTo virhe:
Dim löydetty As Range
Set löydetty = EtsiJaSiirrä("d", Columns("m:m")).EntireRow
Union(löydetty, löydetty).Copy Range("Sheet2!A65536").End(xlUp).Offset(1, 0).EntireRow
Exit Sub
virhe:
MsgBox "Hakuehdollasi ei löytynyt yhtään tietuetta!"
End Sub


Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
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
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