< návrat zpět

MS Excel


Téma: Kopie formuláře rss

Zaslal/a 21.4.2013 16:55

Další problémek. Potřeboval bych makrem udělat kopii formuláře o třech sloupcích, ale aby bylo makrem vybrány pouze řádky z formuláře, kde je obsazená buňka ve sloupci H a ostatní ignorovat
Potřebuji mít čistý formulář bez mezer (prázdných řádků) pro další použití. Viz příloha. Prosím o pomoc s tímto...

Příloha: rar13012_kopie-formulare.rar (10kB, staženo 18x)
Zaslat odpověď >

#013037
avatar
Poraďte prosím, je to makrem proveditelné? :-(citovat
icon #013041
eLCHa
Sub subDeleteRows()
Dim rForm As Range
Set rForm = Range("E2:H22")

Dim lCalc As Long
lCalc = Application.Calculation
Application.Calculation = False
Dim bScreen As Boolean
bScreen = Application.ScreenUpdating
Application.ScreenUpdating = False

With Range("E26").Resize(rForm.Rows.Count, rForm.Columns.Count)
.Value = rForm.Value
Dim I As Integer
For I = .Rows.Count To 1 Step -1
If IsEmpty(.Rows(I).Cells(4)) Or .Rows(I).Cells(4).Value = 0 Then
If Not IsEmpty(.Rows(I).Cells(1)) Then
.Rows(I).Cells(1).Offset(1, 0).Value = .Rows(I).Cells(1).Value
End If
.Rows(I).Delete Shift:=xlUp
End If
Next I
End With 'Range("26").Resize(rForm.Rows.Count, rForm.Columns.Count)

Application.ScreenUpdating = True
Application.Calculation = lCalc

Set rForm = Nothing
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09