Szeretném megoldani, hogy a táblázatban szereplő lejárt dátumot tartalmazó cellák ill. a közvetlen mellettük lévő cellák tartalma törlödjön. Mivel az eredeti munkalap több egymástól különböző táblázatot tartalmaz ezért fontos lenne, hogy csak a cellák tartalma és ne az egész sor torlódjon. A kód amit próbálgattam sajnos a cellához tartozó egész sor tartalmát törli. Lehet ezt valahogy a kivánalmaimnak megfelelően átalakítani? Előre is köszönöm a segítséget!
A1-ben van a mai dátum B oszlop tartalmazza a dátumokat, C oszlop a megjegyzéseket.
Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.COUNT, „b”).End(xlUp).Row
For r = lr To 2 Step -1
If Range(„a1”).Value > Range(„B” & r).Value Then
Rows(r).ClearContents
End If
Next r
End Sub
A Rows(r) az egész sort jelöli ki az állandók törlésére.
Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row
For r = lr To 2 Step -1
If Range("A" & r) > Range("B" & r) Then
Range("A" & r & ":C" & r).ClearContents
' Range("A" & r & ":C" & r).Delete Shift:=xlUp
End If
Next r
End Sub
A megjegyzésbe tett sor az A:C részt úgy törli az r sorból, hogy az alatta lévő cellákat feljebb viszi, míg a másik törli a tartalmat, és üresen maradnak a cellák.
Eszembe jutott még egy kérdés…. sorry
Mi van akkor ha az oszlopban aminek a celláit törölni akarom a lejárt dátum alapján egyesített (2sor) cellák? Olyankor mit kell átírni a képletben?
Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row
For r = lr To 2 Step -2
If Range("A" & r) > Range("B" & r) Then
' Range("A" & r & ":C" & r + 1).ClearContents
Range("A" & r & ":C" & r + 1).Delete Shift:=xlUp
End If
Next r
End Sub
.
