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!
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!
Vastaukset 6
Vanhimmat
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ä.
Sub uusi()
Dim vika As Double
vika = Range("B65536").End(xlUp).Row
Range("B3:K17").Copy Destination:=Range("B" & vika 1)
End Sub
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
Voisiko sinuun ottaa yhteyttä sähköpostitse?
Minun sähköposti [email protected]
Olisi pieni kysymys tuosta poista -napin koodista...
tsekkaa postiasi...
@Kunde