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?
Makro
3
319
Vastaukset
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- jaskaKOO
Kiitoksia!
- Nyt vihreä
Nostan tämän, ei tarvitse aloittaa uutta.
Siis miten saan eräpäivän muuttumaan punaiseksi päivän u,peuduttua?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2284397Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii732846- 472393
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua431687- 781369
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘631028PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden137919- 64840
Sellainen tunne sydämessä
Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,86834Annan meille mahdollisuuden
Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil53832