< návrat zpět

MS Excel


Téma: Najít první buňku od vrchu. hahaha rss

Zaslal/a 1.3.2017 11:21

Zdravím, taková prkotinka. ve sloupci "B" mám čísla, občas se shodují, takže podmínku může splnit více buněk.. Já potřebuju do label257 vypsat první nalezenou hodnotu, nikoliv od spodu, jak to má excel ve zvyku, ale od vrchu, ze sloupce "D". Nějaké nápady?

Private Sub ListBox2_Click()

Dim nn As Long
Label254.Caption = ListBox2.Value
nn = ListBox2.Value

Dim aa As Worksheet
Set aa = ThisWorkbook.Sheets("záznam")

Dim xx As Long
For xx = 2 To 1000

If cells(xx, 2) = nn Then
Label257.Caption = aa.cells(xx, 4)
end if
next xx

end sub

Zaslat odpověď >

#035185
avatar
napríklad aj takto 2
For xx = 1000 To 2 step -1

alebo
If cells(xx, 2) = nn Then
Label257.Caption = aa.cells(xx, 4)
exit sub
end if

Hahaha 5 2citovat
#035186
avatar
Sub PrvniShora()

Dim rngProhledavanaOblast As Range
Dim strHledanaHodnota As String
Dim strOdpovidajiciHodnota As String

Set rngProhledavanaOblast = Range("B2:B1000")

strHledanaHodnota = "mrkev"

strOdpovidajiciHodnota = _
rngProhledavanaOblast.Cells(WorksheetFunction.Match(strHledanaHodnota, _
rngProhledavanaOblast, 0)).Offset(0, 2).Text

End Sub


Hihňáte se jako tele...citovat
#035190
avatar

marjankaj napsal/a:

napríklad aj takto
For xx = 1000 To 2 step -1

alebo
If cells(xx, 2) = nn Then
Label257.Caption = aa.cells(xx, 4)
exit sub
end if

Hahaha


Hahaha, tak to je cool :D přesně něco podobného jsem čekal :Dcitovat

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

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35