Moro,
Vähän on mennyt ruosteeseen excelin hallinta, koska viime kerrasta on aikaa. Ja vähän olisi pulman poikasta mikä pitäisi koittaa ratkaista. Tiedä sitten onko etes tuollainen mahdollista excelissä.
Mutta asiaan:
Minulla on yhdessä taulukon välilehdessä 3 sarakkeessa tietoja. Tuosta A sarakkeesta täytyisi sitten vertailla tietoja. Joudun käymään tavaroita läpi ja niissä on tietty viivakoodi joka viittaa tuohon A sarakkeen tietoihin. Kun ampuisin tuon viivakoodin johonkin soluun niin tarkoitus olisi, että jos tuo sama tieto löytyisi A sarakkeesta se värjäytyisi vihreäksi ja kopioisi sitten sen koko rivin toiselle välilehdelle.
Ei kuulosta kovin vaikealta, mutta ei vaan jostain syystä selviä nyt itselle miksi ei onnistu. Vai onkohan etes tuollainen mahdollista toteuttaa suoraan excelissä?
-Jukka
Rivin siirto toiselle välilehdelle
2
359
Vastaukset
- Tämmöinen
Tuon välilehden moduliin seuraavat:
Sub talleta(r As Integer)
With Worksheets("Sheet2") ' toinen välilehti
v = .UsedRange.Rows.Count 1
.Cells(v, 1) = Cells(r, 1)
.Cells(v, 2) = Cells(r, 2)
.Cells(v, 3) = Cells(r, 3)
End With
Range(Cells(r, 1), Cells(r, 3)).Interior.Color = RGB(0, 255, 0)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Set haettava = Range("B1") ' viivakoodi syötetään tähän soluun
If Not Intersect(Target, haettava) Is Nothing Then
r = 4 ' ensimmäinen tietorivi
Do
If Cells(r, 1).Text = haettava.Text Then
If Cells(r, 1).Interior.Color = RGB(0, 255, 0) Then Exit Sub ' jo talletettu
If MsgBox(Cells(r, 1).Text & vbCrLf & Cells(r, 2).Text & _
vbCrLf & Cells(r, 3).Text & vbCrLf & vbCrLf & "OK?", _
vbYesNo, "Löytyi:") = vbYes Then talleta (r)
Exit Sub
ElseIf Cells(r, 1).Text = "" Then
Exit Sub
End If
r = r 1
Loop
End If
End Sub Todella hieno koodin pätkä. Juurikin tuollaista hain. Todella paljon kiitosta. Nyt homma onnistuu paljon joutusammin
-Jukka
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Säästäminen on typerää, muistakaa äänestää demareita
Säästäminen on typerää, koska aiheuttaa vain talouden taantumista ja lopulta tappaa potilaan. Demareiden tapa on satsat1057846Olli Rehn: Eläkkeistä pitää leikata. Nyt tuli Lindtmanille kauhun paikka
jos johtaa seuraavaa hallitusta. Purra: eläkkeisiin ei kosketa. Eikä tällä hallituskaudella varmasti kosketa, mutta seur4186984SDP:n budjetin peruskivi: "Rahaa nimittäin on!"
Demarien talouspolitiikan ydin on usein tiivistetty klassiseen meemiin: rahaa on, kunhan se on jonkun muun rahaa. Vuoden1685254Poliisien suosikkipuolueet ylivoimaisesti: Kokoomus ja persut
samoin on armeijan henkilöstön kanssa. Sen sijaan sekä vihreät, vasliitto ja SDP ovat hyljeksittyjä puolueita poliisien1034175Sdp, Vihreät ja vasemmistoliitto muuttumassa naisten puolueiksi?
Sdp 64 % naisia, vihreät 70 % naisia ja vasemmistoliitto 60 % naisia. Ilmankos ne puolueet ajaa autoilevien kantasuomal954086Kun täällä kysytään aina vaan naisilta
Niin nyt kysytään miehiltä. Mies, voisitko ottaa kumppaniksesi naisen joka nostaa enemmän penkistä kuin sinä? Tienaa en734082Hatunnosto! Mari Hynynen (os. Perankoski) ja Jouni Hynynen auttavat vähäosaisia upealla tavalla!
Hatunnosto! Mari ja Jouni Hynynen ovat Vailla vakinaista asuntoa ry:n uudet kummit. Hynysiä motivoi halu lisätä ymmärr103822Tiesitkö? Tämä suomalainen keksi Elämäni biisi -sarjan - Viinin lipittely mainittu!
Tiesitkö? Elämäni biisi on suomalainen formaatti ja sen takana on Petja Peltomaa. Hänen kynästä ovat lähtöisin myös mm.03510Epäonnistunut "Tuppurais-operaatio" kaatoi Purran hallituksen
Persut yrittivät viimemetreillä häivyttää omaa täydellistä epäonnistumistaan syyttämällä opposition edustajaa nimettömil132370Ostaisitko sinä rempattavan asunnon Italiasta tai jostain muualta ulkomailta, mistä?
Ella Kanninen on tehnyt Italiassa asuntokaupat. Hän kertoo Instagramissa kierrelleensä viime kesänä Toscanassa katselema161949