MS Excel

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 Subcitovat

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

Ahoj,

třeba takto:
Rows(radek).Delete

jinak je to v příloze.
S pozdravem
M@citovat

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

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