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
Excel makro
-
- Level 3.5
- Příspěvky: 770
- Registrován: červenec 10
- Pohlaví:
- Stav:
Offline
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel makro
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.
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
-
- 9
- 1362
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 16
- 8424
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 2
- 2868
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
-
- 5
- 4049
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
-
- 3
- 3229
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů