Olen tehnyt asiakaslaskutaulukon, jossa laskun eräpäivän solun väri muuttuu punaiseksi kun eräpäivä on mennyt umpeen.
(taulukossa vaakasuuntaisesti asiakkaiden tiedot)
Millaisella makrolla saisin napauttua ne asiakastiedot( tai ainakin yhden solun tiedot) toiseen paikkaan, missä eräpäivä on mennyt umpeen?
(taulukossa vaakasuuntaisesti asiakkaiden tiedot)
Millaisella makrolla saisin napauttua ne asiakastiedot( tai ainakin yhden solun tiedot) toiseen paikkaan, missä eräpäivä on mennyt umpeen?
Vastaukset 3
Vanhimmat
muuttele taulukoiden nimet, hakualue ja värikoodi (pun=3) sopivaksi
moduuliin...
Option Explicit
Sub EtsiJaSiirrä()
Dim solu As Range
Dim vika As Long
On Error Resume Next
Worksheets("Sheet2").Cells.Clear
Worksheets("Sheet1").Activate
vika = Range("C65536").End(xlUp).Row
For Each solu In Range("C1:C" & vika)
If solu.Interior.ColorIndex = 3 Then
solu.EntireRow.Copy Range("Sheet2!A65536").End(xlUp).Offset(1, 0)
End If
Next
End Sub
Keep Excelling
@Kunde
Kiitoksia!
Nostan tämän, ei tarvitse aloittaa uutta.
Siis miten saan eräpäivän muuttumaan punaiseksi päivän u,peuduttua?