Excel makro

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

MihelHerbííí
Level 3.5
Level 3.5
Příspěvky: 770
Registrován: červenec 10
Pohlaví: Muž
Stav:
Offline

Excel makro

Příspěvekod MihelHerbííí » 12 pro 2015 16:01

Zdravím pánové,

potřebuju pomoct s makrem.

Jak by to mělo vypadat - vyberu z rolety (třeba Team A), z druhé roletky (Team B) a ze třetí roletky (odehráno) a kliknu na tlačítko - informace se přesunou na jinou stránku (do teďka vím co dělta). Když ale chci zadat další informace, jak udělám, aby se informace zadaly na další řádek?

Makro vypadá takhle :

' Makro2 Makro
'

'
Range("E3").Select
ActiveCell.FormulaR1C1 = "=RC[5]"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=RC[5]"
Range("G3").Select
ActiveCell.FormulaR1C1 = "=RC[5]"
Range("G4").Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=595.5, Top:=42, Width:=126.75, Height:= _
39.75).Select
End Sub

Děkuji

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel makro

Příspěvekod cmuch » 28 úno 2016 16:44

Makro vlož do modulu listu s těma roletkama a přiřad ho tlačítku,
po stisknutí vloží hodnoty na list2. Uprav dle sebe.

Kód: Vybrat vše

Sub Vloz()
  Dim radek As Long
  Dim zdrSh As Worksheet
  Application.ScreenUpdating = False

  Set zdrSh = Sheets("List2")
  radek = zdrSh.Cells(zdrSh.Cells.Rows.Count, "A").End(xlUp).Row + 1

  With ActiveSheet
    zdrSh.Cells(radek, "A").Value = .Range("E3").Value
    zdrSh.Cells(radek, "B").Value = .Range("F3").Value
    zdrSh.Cells(radek, "C").Value = .Range("G3").Value
  End With
End Sub


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6000
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1842
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2325
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1646
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů