Itselläni on makro joka poistaa rivejä, mutta onko millä koodilla saan makron käyttämään kaavasta saatuja arvoja?
Makro:
Rows("8:14").Select
Selection.Delete Shift:=xlUp
Eli millä saan että numero 8 määrittyy kaavan mukaan esim 8 = B8 solu ja 14 olisi B9 solu.
Makro ohjelmointia
jykke3
2
218
Vastaukset
- rivienpoisto
Yksi mahdollinen keino on esim. tällainen. Osaat varmaan soveltaa itsellesi sopivan.
Sub poistaRivit()
Range("A1").Select
alku = ActiveCell.Value
Range("B1").Select
loppu = ActiveCell.Value
Rows(alku & ":" & loppu).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub Sub poistaRivit()
On Error Resume Next
Rows(Range("B8") & ":" & Range("B9")).Delete
End Sub
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Persujen vaalilupaus oli euron bensa
Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.1392393Vain vasemmistohallitus saa minut menemään töihin
Änkyräkapitalistien sortaessa kansaa en laita rikkaakaan ristiin. Elän mielummin Kelan tuilla, ja jos niitä leikataan, n712299Maataloustuet perittävä korkojen kera takaisin
Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi671976EK: Suomi tarvitsee vuosittain 45 000 maahanmuuttajaa
Senpä takia Riikkakin laulaa sen lauluja kenen leipää syö. Viime vuonnahan Suomeen muutti 50 tuhatta ulkomaalaista. htt871687- 1081565
Topi osti Askon
Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan1021508Oliko se oikeasti epäselvää
sinulle että olin ihastunut sinuun? (Ymmärrän että siitä on aikaa, eikä voi olettaa että kaikkea muistaisi tai että men1201412Uskomatonta touhua!
Ei olis uskonut että kateus yrittäjää kohtaan menee noin pitkälle. TTP:ssa irrotettu sähköjohto jäätelöaltaasta. Kaikki321274Kastaa ja upottaa on eri sanat
Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan2191191- 811144