MS Excel

Téma: Úprava makra

Zaslal/a krkstex 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.

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

Jeza(10.10.2012 22:18)#009809

co třeba nahradit
If cell.Value = smena
za
If ucase(cell.Value) = smenacitovat

krkstex(11.10.2012 7:07)#009813

DÍKY (díky)

citovat

Uživatelské menu

Nejste přihlášen(a)

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.