< návrat zpět

MS Excel


Téma: Úprava makra rss

Zaslal/a 10.10.2012 21:58

Zdravím,
mám potíž s makrem co mi tu bylo poraděno.
Makro je:
Public Sub vyber()
Set oblast = Application.Intersect(Selection, ActiveSheet.UsedRange)
oblast.Select
Range("C:C").ClearContents
smena = UCase(InputBox(" Zadej směnu R/O/N "))
If smena <> "" Then
For Each cell In oblast
i = cell.Row
If cell.Value = smena Then Cells(i, 3) = Cells(i, 3) + 1
Next cell
For Each cell In Range(Cells(2, 3), Cells(1 + oblast.Rows.Count, 3))
If cell.Value = "" Then cell.EntireRow.Hidden = True
Next
Else
For i = 2 To 1 + oblast.Rows.Count
Cells(i, 3).EntireRow.Hidden = False
Next
End If

End Sub

Filtruje mi to pouze záznamy psané velkýma písmenama. Potřebuju,ale filtrovat záznamy psané malýma písmenama.

Celá komunikace o tom je tady:
http://wall.cz/index.php?m=topic&id=9643

Prosím o pomoc.

stop Uzamčeno - nelze přidávat nové příspěvky.

#009809
avatar
co třeba nahradit
If cell.Value = smena
za
If ucase(cell.Value) = smenacitovat
#009813
avatar
DÍKY (díky) 1citovat

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