MS Excel

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

Zaslal/a Ernesto 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ěď >

marjankaj(1.3.2017 11:29)#035185

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

citovat

xlnc(1.3.2017 12:33)#035186

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

Anonym(1.3.2017 12:50)#035190

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)

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.