• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse