< návrat zpět

MS Excel


Téma: VBA mazani radku rss

Zaslal/a 5.1.2017 8:05

Ahoj, potrebuju pomoc. potrebuju vzorec do VBA a to takto

Kdyz ve sloupci AT je obsazen text "-M-" tak tento radek smazat nijak se mi to nedari aplikovat

diky moc

Zaslat odpověď >

Strana:  1 2   další »
#034184
avatar
Prosim HELP 6citovat
#034187
avatar
Například takto:
Sub Smazat_radky_dle_podminky()
Dim i As Long

For i = 1 To Range("AT" & Rows.Count).End(xlUp).Row
If Cells(i, 46).Value = "-M-" Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next i

End Sub
P.citovat
#034189
avatar
Díky moc zachránil jsi měcitovat
#034197
avatar
případně:For i = Range("AT" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 46).Value = "-M-" Then Rows(i).Delete
Next i
citovat
#034200
avatar
Bez pardonů tohle je hodně prasácký kód:

Sub Smazat_radky_dle_podminky()

Dim i As Long

For i = 1 To Range("AT" & Rows.Count).End(xlUp).Row

If Cells(i, 46).Value = "-M-" Then

Rows(i & ":" & i).Select

Selection.Delete Shift:=xlUp

i = i - 1

End If

Next i

End Sub
citovat
#034244
avatar
A CO TEDA NAVRHUJES LEPSIHOcitovat
#034249
avatar
oprava ten vzorec je spatny ja potrebuju kdyz v bunce je "-M-" ale v bunce jsou i jine znaky jestli mi rozumite v bunce je treba cely text a ja potrebuju vzorec ktery najde v tom textu muj znak a nazaklade toho to samzecitovat
#034259
Stalker
Ten kód není špatný, dělá přesně to co jsi popsal v zadání. Špatné jsou tvoje vyjadřovací schopnosti! Chtěl jsi smazat řádek, kde je ve sloupci AT text "-M-" (tedy pomlka em pomlka).

Chceš tedy tvůj "znak" hledat v textovém řetězci v buňce sloupce AT.
Ten tvůj znak je "-M-" nebo je má jednat jen o obyčejné "M"? Má se rozlišovat velikost písmena "M" či nikoliv?citovat
#034261
avatar
Já mám ve sloupci AT jednu dlouhou větu a pokud v té větě je obsažen znak pomlka em pomlka "-M-" podotykám velké M
Tak potřebuji aby mi tento řádek smazal.

Kod který jsem dostal smaže řádek jenom tehdy kdy je v buňce pouze -M-

Vyjádřil jsem se korektně ? Díky za odpověďcitovat
#034262
Stalker
V tom případě vyzkoušej(na kopii svých dat) toto:
Sub Vymaz_radky_podle_podminky()

Dim i As Long

For i = Range("AT" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 46).Text Like "*-M-*" Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub


Edit: Kod upraven, vypadly mi tam ty pomlky!citovat

Strana:  1 2   další »

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