kahden excel taulukon vertailu
ongelma: kaksi excel taulukkoa A ja B. Taulukossa A on ensimmäisessä sarakkeessa auton rekisterinumero ja muissa nimi,osoite ym tietoa. Taulukossa B on myös sarake, esim D, jossa on auton rekisterinumero.
Taulukosta A pitäisi pystyä poistamaan kaikki rivit, joilla esiintyy sama rekisterinumero, joka löytyy taulukosta B.
Luetuimpia
-
Excel Solun sisällä tekstin rivivälin muuttaminen
Moi, miten saisin riviväliä pienemmäksi Excelin solussa. Olen kirjoittanut listaa jossa soluissa tekstiä astuksella rivitä. Nyt riviväli on turhan suuri ja koko taulukko menisi pienenpään tilaan jos saisi turhan ison rivivälin pienennettyä
-
Kuukauden sisäiset toteumien haku taulukosta
Hei, Taulukko on muotoa: Päivämäärä | Tuotekategoria | Hinta 30.8.2017 | Rakentaminen | 120,00 30.8.2017 | Tarvikkeet | 45,00 31.8.2017 | Rakentaminen | 200,00 1.9.2017 | Tarvikkeet | 25,50 1.9.2017 | Tarvikkeet | 14,00 2.9.2017 | Rakentaminen | 200,00 jne. Tuotekategorioita on useampia kuten on myös päiviä eri kuukausilta. Minkälaisella funktiolla saisin ulos esim. pelkän elokuun tarvikkeiden summan?
-
Tuodun luvun käyttö ei onnistu
Moi. Ongelma olis seuraavanlainen: Olen tuonut taulukkoon (TAUL2) netistä päivittyvän luvun toisesta taulukosta (TAUL1). Nyt pitäis tehdä taulukossa 2 jakolasku joka käyttää tota tuotua lukua mutta se ei onnistu millään. Herjaa vaan ARVO-virhettä tai tollasta: =JAKOJ(D30;[@Column2]). (SoluD30 on normaali luku.) Eli ei hyväksy mitään laskukaavaa. Mitenköhän tuon saisi käyttämään tota tuotua lukua? Olen muotoillut tuodun luvun luvuksi jne mutta ei auta.
moduuliin...
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
Sub EtsiijaPoistaa()
Dim vika As Long
On Error Resume Next
vika = Worksheets("Sheet2").Range("D65536").End(xlUp).Row
For Each solu In Worksheets("Sheet2").Range("D1:D" & vika)
EtsiJaSiirrä(solu, Columns("A:A")).EntireRow.Delete
Next
End Sub
Keep EXCELing
@Kunde
