< návrat zpět

MS Excel


Téma: smazat řádek s určitým rss

Zaslal/a 6.9.2011 15:04

dobrý den, potřeboval bych pomocí VB nastavit odstranění řádku, obsahujícího určitý textový řetězec.
Použil jsem následující zápis:
For i = 2 To ActiveSheet.UsedRange.Rows.Count

Cells(i, 2).Select
If ActiveCell = "S.R.O." Then
Rows(i).Delete Shift:=xlUp
i = i - 1
End If

Next i

tento zápis ale odstraní jen ty buňky, kde je přesně daný řetězec. potřeboval bych odstranit všechny, tj včetně těch, kde je i jiný text + vyhledávaný řetězec.

předem díky za pomoc,

Zaslat odpověď >

#005934
Jeza.m
Stačí trochu upravit podmínku...
If InStr(1, ActiveCell.Value, "S.R.O", vbTextCompare) <> 0 then
M@citovat
#005936
avatar
Nebo např toto:
For i = 2 To ActiveSheet.UsedRange.Rows.Count

Cells(i, 2).Select
If ActiveCell Like "*S.R.O.*" Then
Rows(i).Delete Shift:=xlUp
i = i - 1
End If

Next i
citovat
#005937
avatar
díky moc oběmacitovat
#039773
avatar
Zdravím, jak to napsat aby nerozlišoval velká a malá písmena. Díkcitovat
#039775
elninoslov
Pr.:
Sub VymazBunkyObsahujuce(Co As String, Stlpec As Long)
Dim Riadkov, Data(), i As Long, RNG As Range
With ActiveSheet
Riadkov = .Cells(Rows.Count, Stlpec).End(xlUp).Row
ReDim Data(1 To Riadkov, 1 To 1)
If Riadkov = 1 Then Data(1, 1) = .Cells(1, Stlpec).Value2 Else Data = .Cells(1, Stlpec).Resize(Riadkov).Value2
For i = 1 To Riadkov
If InStr(1, Data(i, 1), Co, vbTextCompare) > 0 Then
If RNG Is Nothing Then Set RNG = .Cells(i, Stlpec) Else Set RNG = Union(RNG, .Cells(i, Stlpec))
End If
Next i
If Not RNG Is Nothing Then RNG.Delete Shift:=xlUp: Set RNG = Nothing
End With
End Sub

Sub Pokus()
Call VymazBunkyObsahujuce("bla", 1)
Call VymazBunkyObsahujuce("s.r.o", 2)
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