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
181
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
Nainen, tervetuloa
Tule luokseni eka vaikka viikoks tai pariksi. Saisin helliä, kannustaa ja tukea sua ja kokata lempi herkkujasi. Pääsisit264838Kela valvoo lasten tilejä.
Tämä isoveli Kela kyttää jopa lasten yli 200,- euron rahat jotka on melko varmasti lahjaksi saatu. Se vaikuttaa perheen3053685TTK-tähti Saana Akiola paljasti tv-ohjelmassa tapahtuneen ahdistelun
Olisko pitänyt suunnitella ulostulo paremmin? Nyt lehdet soittelevat kaikki 8 läpi ja kuusi sanoo ettei koskenut häntä.362745Olisit ollut varovaisempi
Nyt jos minut hylkäät ja et meidän asiasta minulle mitään ilmoita niin ettet edes anteeksi pyydä, niin tiedä että minä e372669- 1452220
- 552006
Elisa laskuttaa jo sähköpostilaskusta erikseen euron
Paperilaskuista on otettu lisämaksua jo ajat sitten, mutta nyt Elisa ottaa euron siitä että lähettävät sähköisen laskun1221890Oho! Susanna Laine kohtasi epäonnea lomareissulla Italiassa - Avaa tilannetta: "Vähän sahaavaa..."
Ou nou! Tsemppiä kuitenkin loppulomaan Italiassa, Susanna Laine ja mahdollinen seuralainen! Lue lisää ja katso kuvat:91584Ensitreffit alttarilla Jyrki paljastaa hääyön intiimiasioista kameroiden sammuttua: "Fyysinen..."
Ooo-la-laa… Ensitreffit alttarilla -sarjassa alkaa hääparien välillä ns. tunteet kuumenemaan. Lue lisää: https://www.s31502Sinulle, tahtoisin kertoa mitä
ajattelen siitä. Ehkä olen väärässä, mutta minusta kuulostaa jonkin alulta, mutta ei kerro minkä. Se selvinnee myöhemmi261458