Osaisiko joku neuvoa minkälainen VBA koodaus täytyisi tehdä Exceliin (tai olisiko jotain funktiota olemassa):
Datassa on A-sarakkeessa "ilmoitusnumero", 8 numeroa. Kuinka saisin tämän kopioitua alemmille riveille, seuraavaan ilmoitusnumeroon saakka. Ja sitten taas tämä kopioitaisiin seuraavaan sakka jne.
Ilmoitusnumeroiden välissä olevat tyhjät rivit vaihtelevat.
Data näyttää esimerkiksi tältä:
10002287 kone pysähtyi
(tyhjä) 10-83768K7
(tyhjä) kone pysähtyi ja kaikki meni pieleen
10002298 2. kone pysähtyi
(tyhjä) 190-4839J7
(tyhjä)
17892947 kone pysähtyi
Jotta näyttäisi tältä:
10002287 kone pysähtyi
10002287 10-83768K7
10002287 kone pysähtyi ja kaikki meni pieleen
10002298 2. kone pysähtyi
10002298 190-4839J7
10002298
17892947 kone pysähtyi
Esimerkki vähän hankalan näköinen, mutta eiköhän siitä perjaate selviä. Käsin tällaista ei viitsi alkaa tekemään, koska siinä menisi ikä ja terveys.
Toistuva kopionti VBA:n avulla
Neo_306
3
476
Vastaukset 3
- ....
Sub taytto()
Application.Calculation = xlCalculationManual
For Each solu In Range("A:A")
If solu.Value > 0 Then tayte = solu.Value Else solu.Value = tayte
Next
Application.Calculation = xlCalculationAutomatic
End Sub- Neo_306
Kiitoiksia! Helpotti elämää kummasti.
oikein vaan tayttaa koko sarakkeen ja ...
moduuliin...
Sub TaytaTyhjat()
Dim vika As Long
On Error Resume Next
vika = Range("A65536").End(xlUp).Row
Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 91697
Perhoseni (miehelle)
Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r1671078Totta on asia. Jeffrey Cohen on jättänyt Sofian.
Vaimon viesti on paljastanut totuuden.262953- 70814
- 63778
- 75741
Mies, näetkö minut myös
Seksuaalisena ihmisenä ja naisena? Haluatko minua seksuaalisesti? Vai olenko mielestäsi tyttönen?22686Kuinkahan monen
Naisen puolisoa olet nainen vikitellyt ja eron aiheuttanut? Toivottavasti karma on ku*sut muroihisi useamman kuin kerran69651Nainen, mitä mieltä olet kodittomista?
Ja heistä jotka eivät kykene huolehtimaan asioistaan, itsestään eikä terveydestään? Miten heidän kanssaan tulisi toimia?138647- 42609
- 62606
Voiko se ikinä toimia
Voiko meistä ikinä tulla mitään? Näin kauan aikaa on kulunut ja mitään ei tapahdu... En usko, että sinä mietit minua het32588Mies, kumman ottaisit mieluummin
176 cm vai 154 cm naisen, jos molemmat muuten yhtä viehättäviä? Mikä on oma pituutesi?118568- 55538
Tekisi mieli vetäistä kunnon jurrit sinun kanssasi
Ja keskustella asiat, ei tästä tule hevonvttua.42524- 48519
- 38509
Anteeksi mies
En jaksa tätä…, en halua, että sinulla on paha mieli tämän takia. Viestiä Sinulle.40503Kerro mies tarinasi
Miksi kaikki meni niinkuin meni? Haluaisin vieläkin ymmärtää. Tuskin saan vastausta häneltä, koska etsin aavikolta juuri20488- 30483