Olisi hakusessa makro joka lisäisi rivin aina kun päiväys vaihtuu, Taulukossa on on reilu tuhat riviä, joissa tietoa samalla päivällä voi olla yhdestä kymmeneen riviä. Haluaisin makron joka lisäisi rivin aina kun päiväys vaihtuu.
Rivin lisääminen kun päiväys vaihtuu
tietoa_haluava
6284
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 6
Vanhimmat
Sub Tsekkaapäiväykset()
Dim vika As Long
vika = Range("A65536").End(xlUp).Row
For i = vika To 2 Step -1
'¨muuta sarake oikeaksi 1= A-sarake, 2=B-sarake jne.
If Cells(i - 1, 1).Value <> Cells(i, 1).Value Then
Cells(i, 1).Insert
End If
Next i
End Sub
Keep EXCELing
@Kunde
Mitä pitäisi muuttaa, että lisäisi koko rivin, kun nyt siirtää sarakkeeen soluja alaspäin
http://analysistabs.com/excel-vba/insert-rows-worksheet/
En tiedä auttaisiko entirerow lisääminen
Cells(i, 1).EntireRow.Insert
Ei mene noin. sorry.
Juuri noin, kuten enosaavba kirjoittaa...
Sub Tsekkaapäiväykset()
Dim vika As Long
vika = Range("A65536").End(xlUp).Row
For i = vika To 2 Step -1
'¨muuta sarake oikeaksi 1= A-sarake, 2=B-sarake jne.
If Cells(i - 1, 1).Value <> Cells(i, 1).Value Then
Cells(i, 1).EntireRow.Insert
'Cells(i, 1).Insert
End If
Next i
End Sub
Keep EXCELing
@Kunde
Kiitos!
Hienosti toimii