Hei!
Minulla on kaavake pohja joka on B-K * 13 alue ja nauhoitin makron jossa kopion sen kaavakepohjan ja liitän sen riville 17:sta. Tein sitten sen napin jolla se sen siihen lisää, mutta kun sen pitäisi olla sellainen, että aina kun painaa nappia niin se lisäisi sen kaavakkeen sen ylempänä olevan kaavakkeen ala puolelle. Tässä tämän hetkinen makro jonka nauhoitin, jos vähän selventäisi mistä on kyse.
Sub uusi()
'
' uusi Makro
Range("B3:K17").Select
Selection.Copy
Range("B18").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A2").Select
End Sub
En osaa tehdä tuohon sitä tarvittavaa muutosta, jolla sen saisi toimimaan niin kuin haluaisin.
Kiitän avusta!
Makro
Nassu
6
628
Vastaukset
- Excelisti
Mitähän tässä yritetään sanoa? Suomen kielessä ei tarvita määrättyä artikkelia "se". Mikä on "kaavake pohja"?
>Tein sitten sen napin jolla se sen siihen lisää, mutta kun sen pitäisi olla sellainen, että aina kun painaa nappia niin se lisäisi sen kaavakkeen sen ylempänä olevan kaavakkeen ala puolelle.<
Mihinkähän tämän lyhyen ja ytimekkään kaikki "se"-"sen"- ja "siihen"-sanat oikein viittaavat?
Koska viestin tulkitsemiseen menisi minulta enemmän aikaa kuin ko. makron tekemiseen, niin en edes yritä. - Kunde
Sub uusi()
Dim vika As Double
vika = Range("B65536").End(xlUp).Row
Range("B3:K17").Copy Destination:=Range("B" & vika 1)
End Sub- nassu
Kiitos paljon.
Miten tuohon saisi lisättyä sellaisen, että jättäisi yhden rivin väliä kahden kaavakkeen välille, nyt kaavakkeet ovat yhdessä pötkössä.
Mitenkäs nappi, jolla saisi alimmasta lähtien poistettua yhden kaavakkeen pois? - Kunde
nassu kirjoitti:
Kiitos paljon.
Miten tuohon saisi lisättyä sellaisen, että jättäisi yhden rivin väliä kahden kaavakkeen välille, nyt kaavakkeet ovat yhdessä pötkössä.
Mitenkäs nappi, jolla saisi alimmasta lähtien poistettua yhden kaavakkeen pois?Sub uusi()
Dim vika As Double
vika = Range("B65536").End(xlUp).Row
Range("B3:K17").Copy Destination:=Range("B" & vika 2)
End Sub
Sub Poista()
Dim vika As Long
Dim vika2 As Long
vika = Range("B65536").End(xlUp).Row
If vika = 17 Then Exit Sub 'säilyttää alkuperäisen
vika2 = Range("B" & vika).End(xlUp).Row
Range("B" & vika2 & ":K" & vika).Delete
End Sub - Nassu
Kunde kirjoitti:
Sub uusi()
Dim vika As Double
vika = Range("B65536").End(xlUp).Row
Range("B3:K17").Copy Destination:=Range("B" & vika 2)
End Sub
Sub Poista()
Dim vika As Long
Dim vika2 As Long
vika = Range("B65536").End(xlUp).Row
If vika = 17 Then Exit Sub 'säilyttää alkuperäisen
vika2 = Range("B" & vika).End(xlUp).Row
Range("B" & vika2 & ":K" & vika).Delete
End SubVoisiko sinuun ottaa yhteyttä sähköpostitse?
Minun sähköposti [email protected]
Olisi pieni kysymys tuosta poista -napin koodista... - Kunde
Nassu kirjoitti:
Voisiko sinuun ottaa yhteyttä sähköpostitse?
Minun sähköposti [email protected]
Olisi pieni kysymys tuosta poista -napin koodista...tsekkaa postiasi...
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kelekkakisat
Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.3411291- 609098
- 1375445
- 1443754
- 753680
Virkamiehille tarvitaan tuntuvat palkankorotukset
Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi373599- 403338
- 602698
Olisipa saanut sinuun
Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak722420Riikka Purran kaudella nousi bensan hinta yli 2 euron
Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal142073