Makro pro rozkopírování řádků Vyřešeno
-
- nováček
- Příspěvky: 17
- Registrován: únor 10
- Pohlaví:
- Stav:
Offline
Makro pro rozkopírování řádků
Opět mám prosbu. Potřeboval bych makro pro rozkopírování řádků, viz malý vzorek. Jedno jsem tu sice našel, ale bohužel nevyhovuje mým potřebám. Používám MS Office 2003 v anglické verzi. Díky moc
- Přílohy
-
- test1.xls
- (23.5 KiB) Staženo 32 x
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Makro pro rozkopírování řádků Vyřešeno
V edotoru VBA (Alt+F11) vloz do standardniho modulu proceduru:
Po spusteni ( za nabidky Nastroje>... nebo klavesova zkratka nebo v editoru) vyzada vlozeni oblasti bunek pro doplneni.
Kód: Vybrat vše
Option Explicit
Sub DoplnitRadky()
Dim SBlk As Range, SClmn As Range, Cll As Range
Dim CllVal As Variant
On Error Resume Next
Set SBlk = Application.InputBox("Vyber oblast bunek pro doplneni tazenim mysi" & vbCr _
& "nebo vepsanim, napr.: A1:D3", Type:=8)
If Err.Number <> 0 Then MsgBox "Nutno zadat oblast bunek, beh procedury ukoncen.": Exit Sub
On Error GoTo 0
With SBlk
Set SClmn = .Resize(.Rows.Count, 1)
End With
For Each SClmn In SBlk.Columns
CllVal = vbNullString
For Each Cll In SClmn.Cells
With Cll
If .Value <> vbNullString Then CllVal = .Value Else .Value = CllVal
End With
Next Cll
Next SClmn
Set SBlk = Nothing
Set SClmn = Nothing
Set Cll = Nothing
End Sub
Po spusteni ( za nabidky Nastroje>... nebo klavesova zkratka nebo v editoru) vyzada vlozeni oblasti bunek pro doplneni.
-
- nováček
- Příspěvky: 17
- Registrován: únor 10
- Pohlaví:
- Stav:
Offline
Re: Makro pro rozkopírování řádků
díky moc
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 3
- 2151
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Ukotvení prvního a posledního řádku v tabulce.
od Kopusek » 13 pro 2023 10:50 » v Kancelářské balíky - 2
- 1675
-
od Kopusek
Zobrazit poslední příspěvek
14 pro 2023 08:55
-
-
-
excel text na konec více řádků najednou Příloha(y)
od Myerina » 03 led 2024 11:51 » v Kancelářské balíky - 5
- 1121
-
od Zivan
Zobrazit poslední příspěvek
04 led 2024 09:42
-
-
- 9
- 1265
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů