< návrat zpět
MS Excel
Téma: zobrazené řádky 
Zaslal/a vladbord 13.11.2011 0:25
Mám zobrazené řádky např.1,2..-7.8,následují po filtru 56,57.. atd. Jakou funkcí zjistím číslo prvního
řádku po čísle 8/ tzn. že je zobrazen řádek 56 /.
Díky za odpověď.
AL(13.11.2011 13:11)#006464 
Option Explicit
Sub POM()
Dim MyRange As Range, cell As Range, stary As Long, novy As Long, Msg As String
Set MyRange = Range("A1", Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 1))
stary = 0
For Each cell In MyRange
If Rows(cell.Row).Hidden = False Then
novy = cell.Row
If novy - stary > 1 Then
Msg = MsgBox("Číslo riadku je: " & novy, vbOKOnly)
Exit Sub
Else: stary = novy
End If
End If
Next cell
End SubcitovatRomanNTA(14.11.2011 12:22)#006473 Lehký kalibr může být např. toto.
Sub FiltrovanaOblast()
Range("B3:H3").AutoFilter
Range("B3").AutoFilter Field:=4, Criteria1:="=16913388"
i = Range("E65536").End(xlUp).Row
If i <= 3 Then
MsgBox ("Filtr je bez radku.")
Exit Sub
End If
Range("E4:E65536").Cells.SpecialCells(xlCellTypeVisible).Select
MsgBox "Prvni radek je " & Selection.Row
For Each c In Selection
If Not IsEmpty(c.Value) Then
s = s & c.Address & ","
End If
If c.Row > i Then Exit For
Next c
If s <> "" Then MsgBox ("Prosel jsem filtrovane data a nasel bunky " + vbCrLf + s)
End Sub
Může mít chybu v případě ... ???
citovat
RSS nejnovější články