Kuka tietäisi vastauksen... Minkälaisen makron kirjoittasin, kun pitäisi olla ehtona, että jos rivillä on tietyssä sarakkeessa lukuarvo 0, niin koko rivi siirtyisi saman työkirjan toiselle taulukolle (välilehdelle)(taulukko 2). Eli tavallaan tehtäisiin niistä riveistä historiaa, joka säilyisi, ja tämän siirrettävän rivin tulisi vielä poistua siitä alkuperäisestä taulukosta... :(
makro, mikä siirtää rivejä toiseen taulukkoon..
aivot jäässä..
2657
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
oletuksena B-sarakkeen tutkiminen nyt
Sub PoistajaSiirrä()
Dim vika As Integer
Dim vika2 As Integer
Dim Alue As Range
Dim i As Integer
vika = Worksheets("Taul1").Range("B65536").End(xlUp).Row
For i = vika To 1 Step -1
If Worksheets("Taul1").Range("B" & i).Value = 0 Then
vika2 = Worksheets("Taul2").Range("B65536").End(xlUp).Row 1
Worksheets("Taul1").Range("B" & i).EntireRow.Copy Destination:=Worksheets("Taul2").Range("A" & vika2)
Worksheets("Taul1").Range("B" & i).EntireRow.Delete
End If
Next
End Sub
Kiitän kovasti. Tässä välillä sain kyllä ehdot tehtyä, mutta se rivien siirto ei onnistunut oikein.. Mutta nyt homma taas etenee mukavasti.. Aurinkoista kesää :)