Prosim HELP 
citovat
citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA mazani radku
MS Excel
Téma: VBA mazani radku 
Zaslal/a xoxoxoxox 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
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 SubP.citovat
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 SubP.citovat
(5.1.2017 13:18)#034197
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 icitovat
If Cells(i, 46).Value = "-M-" Then Rows(i).Delete
Next icitovat
(5.1.2017 13:45)#034200
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 Subcitovat
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 Subcitovat
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
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
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
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
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
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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články