< návrat zpět

MS Excel


Téma: SMAZAT ŘÁDEK - EXCEL rss

Zaslal/a 23.2.2010 9:32

Dobrý den,

nemohu najít příkaz pro odstranění řádku...například, když bude v nějaké buňce "hodnota", pak chci celý tento řádek smazat.

Děkuji za reakce!

Zaslat odpověď >

Strana:  1 2   další »
icon #001246
Poki
Zdravím,
je otázka, jestli se má procedura spouštět na základě nějake akce automaticky nebo ji spustit uzivatel; tato procedura zkontroluje prvni sloupec aktivniho radku a pokud se tato bunka rovna "hodnota", smaze cely radek.

Sub DeleteRow()

If Cells(ActiveCell.Row, 1) = "hodnota" Then

Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp

End If

End Sub
citovat
#001251
avatar
Děkuji moc Poki!! Funguje to, maže řádky! 2

Není někde nějaký manuál/pdf se základními příkazy tvorby maker?citovat
icon #001253
Poki
Pokud o uceni se VBA, to se resilo tady: http://wall.cz/index.php?m=topic&id=1121, ale jestli jde jen o to najit konkretni metody, lze si pozadovanou akci nahrat pomoci zaznamu maker a upravit si vytvoreny kod...citovat
#001736
mrwiki
Zdravím,
prosím o radu jak vytvořit makro na odstranění řádku jehož číslo určím já.viz.příloha
předem děkuji
Příloha: rar1736_mazani_radku.rar (11kB, staženo 83x)
citovat
#001737
Jeza.m
Ahoj,

třeba takto:
Rows(radek).Delete

jinak je to v příloze.
S pozdravem
M@
Příloha: zip1737_mazani_radku.zip (15kB, staženo 185x)
citovat
#001739
mrwiki
Moc děkuji funguje 4 17 20 25citovat
#001745
avatar
Zdravím,

rád bych navázal na téma. Vytvořil jsem si následující makro, které mi vymaže obsah řádku, když v daném sloupci salda je nulová hodnota:

Sub zkouska()

Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Name = "Saldo"
Selection.NumberFormat = "#,##0"

Dim Pocet As Single
Dim Konec As Single

Konec = WorksheetFunction.Count(Range("Saldo"))

Range("F2").Select

For Pocet = 1 To Konec
If ActiveCell.Offset(Pocet - 1, 0).Value = 0 Then
ActiveCell.Offset(Pocet - 1, 0).EntireRow.Clear
End If
Next Pocet

End Sub

Makro dělá to co potřebuji, ale lepší by bylo nahradit výmaz hodnot v řádku smazáním celého řádku, kde je nulová hodnota, což by mi ušetřilo další krok a to sortování. Ale to už je nad mé síly, nejsem schopen tam zabudovat Delete, tak aby to fungovalo a tak prosím zkušenější o pomoc.

Díky, Láďacitovat
#001747
Jeza.m
Tak tady je jedna možnost:
For radek = 1 To ActiveSheet.Range("Saldo").Rows.Count
If Range("Saldo").Cells(radek, 1) = 0 Then Rows(radek).Delete
Next


S pozdravem
M@citovat
#001750
avatar
Dobrý den,

prosím o radu jak udělat v excelu následující:

Potřebuji si zapamatovat datum buňky jejíž řádek má v jiné buňce chybovou hodnotu #N/A, vložit ho do buňky o řádek níže a poté řádek s chyb.hodnotou smazat.
Nově přepsané datum barevně označit a ještě tam někam vložit příznak, aby se změny daly vyfiltrovat.

Asi je to zmatené, ale snad někdo pomůže.

Díky moc.

Vláďacitovat
#001752
Jeza.m
Záleží na tom jestli to #N/A chci kontrolovat vždy ve stejném sloupci.
Zkusil bych:

For radek = 1 To ActiveSheet.UsedRange.Rows.Count
If IsError(Cells(radek, 5)) = True Then
Cells(radek+1, 3) = Cells(radek, 3)
Rows(radek).Delete
radek = radek-1
end if
Next

kdy 5 znamená prohledávaný 5. sloupec je-li v něm chyba (lze změnit na kterýkoliv sloupec)
a 3 znamená že hodnota ze sloupce 3 prohledávaného řádku (tam může být datum) bude zapsána zase do 3. sloupce řádku +1 (následujícího řádku)

Snad to tak bude fungovat, nějak jsem si to nezkusil, ale myslím, že by mělo :-).

M@citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje