Olen tehnyt CommandButtonin jonka makro lisää CommandButtoneita toiselle sivulle ja aina CommandButtonin nimi muuttuu (CommandButton1, CommandButton2.....)
Private Sub CommandButton4_Click()
' Tässä pitäisi tulla tilattu työ tulostukseen
LISAYS
End Sub
Sub LISAYS()
'
' Macro7 Macro
' Macro recorded 9.7.2009 by JLe
'
'
Range("A2").Select
Sheets("TILATUT TYÖT").Select
Range("A2").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Sheets("Data").Select
Range("A15:E15").Select
Selection.Copy
Sheets("TILATUT TYÖT").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F7").Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=700, Top:=110, Width:=75, Height:=15) _
.Select
Selection.ShapeRange.IncrementLeft -9.75
Selection.ShapeRange.IncrementTop -5.25
Selection.ShapeRange.ScaleHeight 0.82, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementTop 3.75
Selection.ShapeRange.IncrementTop -2.25
Selection.ShapeRange.ScaleWidth 0.12, msoFalse, msoScaleFromTopLeft
Range("F6").Select
Sheets("Data").Select
Range("A3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A4").Select
End Sub
Allan on makro joka on liitettynä jokaiseen tilatun työn CommandButtoniin
Sub KOPIOINTI_POISTO()
'
' Macro1 Macro
' Macro recorded 23.7.2009 by JLe
'
'
Dim cBox As CommandButton
Sheets("Data").Select
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Range("A7").Select
Sheets("TILATUT TYÖT").Select
Range("B7:F7").Select
Selection.Copy
Range("A6").Select
Sheets("Data").Select
Range("A18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A8").Select
End Sub
Nyt tähän pitäisi saada lisättyä Poisto makroon sellainen että se poistaisi kyseisen CommandButtonin ja rivin missä oli painettu Button, rivejä voi olla vaikka 20 missä on buttoneita
Voisiko joku auttaa...
CommandButtonien tuhoaminen
3
345
Vastaukset 3
Ilmeisesti haluat siirtää Data taulukosta tilaustiedot A15:E15 alueelta TILATUT TYÖT taulukkoon alekkain tehdä riville napin, jolla sitten tilauksen voi palauttaa alekkain Data taulukkoon alkaen riviltä 17?
jos näin niin alla oleva koodi tekee sen. Helppo muokata sopivaksi
moduuliin...
Dim vika As Integer
Sub LISAYS()
Dim ylä As Double
Dim vasen As Double
Dim korkeus As Double
Dim leveys As Double
On Error Resume Next
Application.ScreenUpdating = False
Worksheets("TILATUT TYÖT").Activate
vika = Range("B65536").End(xlUp).Row 1
'tiedot alkaen riviltä 7 jos ei niin muuta?
If vika < 7 Then vika = 7
Range("Data!A15:E15").Copy Destination:=Range("B" & vika)
With Range("H" & vika)
ylä = .Top
vasen = .Left
korkeus = .Height
leveys = .Width
End With
ActiveSheet.Buttons.Add(vasen, ylä, leveys, korkeus).Select
Selection.OnAction = "KOPIOINTI_POISTO"
Range("B" & vika).Select
Application.ScreenUpdating = True
End Sub
Sub KOPIOINTI_POISTO()
Dim rivi As Integer
On Error Resume Next
Application.ScreenUpdating = False
rivi = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row
vika = Range("Data!B65536").End(xlUp).Row 1
'tiedot takaisin alkaen riviltä 17, jos ei niin muuta?
If vika < 17 Then vika = 17
Range("B" & rivi & ":F" & rivi).Copy Destination:=Range("Data!A" & vika)
Rows(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Delete Shift:=xlUp
ActiveSheet.Shapes(Application.Caller).Select
Selection.Cut
Application.ScreenUpdating = True
End Sub
ja nappisi koodi pysyy samana
Private Sub CommandButton4_Click()
' Tässä pitäisi tulla tilattu työ tulostukseen
LISAYS
End Sub- Uuden oppija
Terve Kunde
Tämä oli todella hyvä toimii.... nyt otan vielä selville mitä kaikki tarkoittavat niin ymmärrän paremmin mitä olen tekemässä.
TÄMÄ OLI LOISTAVAA KIITOS PALJON Uuden oppija kirjoitti:
Terve Kunde
Tämä oli todella hyvä toimii.... nyt otan vielä selville mitä kaikki tarkoittavat niin ymmärrän paremmin mitä olen tekemässä.
TÄMÄ OLI LOISTAVAA KIITOS PALJONHiukkasen spesiaalijuttujahan siinä on, mitä ei voi oppia kuin treenaamalla ja makronauhoittimella ei saa tommosta koodia aikaiseksi...
Keep Excelling
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on totta mikä ei?
Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?251905- 128875
Just saying
Mies joka antaa naiselle turvallisen olon, on seksikäs. Ei kieroja kikkoja ja haluaa olla vain sen yhden naisen mies.123657- 54598
Löytyikö syy miksi Martina on Muhiksen kanssa
Saipa naurut Gekkosen kuvasta, missä ovat ravintola Hookissa Immu fight night ottelun jälkeen, Muhoksella pullottaa hirv90565- 65541
Jos selviäisi että kaivattusi
Olisi savant asperger? Rakastaisitko vielä? Savant-lahjakkuus olisi kapea-alaista neroutta liittyen mekanisiin ja tilan88540- 42525
Päivän aivopieru Trumpilta
Trump julisti sodan hyttysiä vastaan. Myös punkit ovat Trumpin sodan kohteena. Eikö vieläkään USA:n kansa tajua tuon uko63503Jokin ei täsmää
Joskus yksi vuosiluku saa katsomaan koko tarinaa uudestaan. Löysin gradun. Matematiikka ei oikein täsmää siihen, mitä mi274494- 12487
Oliko Jani Halmeen aika jo tippua TTK:sta?
Jani Halme ja Claudia Ketonen joutuivat jättämään TTK:n. Halme ja Ketonen saivat viimeiseksi jäänestä tanssista, sambas26474Toivotko vielä viestiä
Minulta? En rohkene enää ottaa yhteyttä, kun varmasti jo uusia naisia elämässä. Nolaisin vain itseni.34463Jorma Uotinen läväytti härskin heiton - Paljastus uudesta TTK-romanssista?
Tuomari Jorma Uotisen linja on välillä hyvinkin rohkea TTK:ssa. Hän näpäytti Jaakko Parkkalille ja Kastanja Rauhalalle v9449Kuka kaipaa T m?
Kerro nainen kirjaimesi vaan... Haluan miettiä kuka tulee ekana mieleeni.. kuin kurkistus tunteiden meren pinnalle, jota32441Miksi jotku naiset on niin tyhmiä
Että elättelevät turhaa toivoa toisen kustannuksella. Onko ne kaikki kaappilesboja vai mikä niitä vaivaa? Sitten itketä51425- 58422
- 41416
S-ryhmän vastuullisuuden kaksoisstandardi
Vastuullisuuspuhe on helppoa. Vaikeampaa on selittää, miksi S-ryhmän omien merkkien tuotteita ja raaka-aineita hankitaan9407Jätä jo se puolisosi, mun kanssa kilpa-asetelma on tuhoisa.
Eikä hän tule sitä voittamaan. Myöskään missään vanhassa ei kannata roikkua, koska ei uskalla kohdata muutosta, hyvät as27406