Excel makro

[MihelHerbííí]

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]

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