Hledat buňku podle vlastních parametrů – Visual Basic – Fórum – Programujte.com

nevíte někdo jak???

Mám první řádek kde mám datumy (řádek začíná B1 a datum začíná vždy od 1. - třeba  ledna )

první sloupec mám jména ( první jméno je na A2)

.... a nyní potřebuji do buňky 15. ledna a řádek Pepa Novák (který je na 22.řádku) vypsat nějakou hodnotu, kterou mám v labelu1 na formuláři. - a chci to tam vložit přes tlačítko, které je také na formuláři.

Možná banální věc pro někoho, ale jsem začátečník.... 

Poradíte někdo??

Hledáš toto?

#2 liborb
když já nehledám buňku, která je plná ( něco obsahuje ), já mám všechny buňky prázdné a potřebuji pouze do té buňky 

"do buňky 15. ledna a řádek Pepa Novák (který je na 22.řádku" vepsat hodnotu z labelu1, který mám na formuláři.????

Tak sloupec by se dal vypočítat. Přece jenom to bude jen den v roce. Ale to jméno budeš muset najít, tj. najdeš na kterém je to řádku a to je ten, který tě zajímá.

Zasláno z mobilního telefonu.

#4 liborb
tak ten řádek, to zas takový problém nebyl ( když jsem využil tvůj odkaz a opsal ten kód ), ale ještě potřebuji ten sloupec

zatím mám toto:

Private Sub CommandButton1_Click()
Label1.Caption = "mikro"
TextBox1.Text = Date

Dim nasel As Long
Dim datum As Date

    nasel = Application.WorksheetFunction.Match(Label1.Caption, Range("A:A"), 0)
    MsgBox "hledal jsem: " & Label1.Caption & " a našel na řádku -  " & nasel

End Sub

- nyní jen najít ten textbox1.text , který zobrazuje aktuální datum ve sloupci...?? :(

#5 clavien
takže jsem to vyřešil takto:

Private Sub CommandButton1_Click()
Label1.Caption = "mikro"

Dim nasel As Long
Dim datum As Date

    nasel = Application.WorksheetFunction.Match(Label1.Caption, Range("A:A"), 0)
    MsgBox "hledal jsem: " & Label1.Caption & " a našel na řádku -  " & nasel

Label2.Caption = Left(CStr(TextBox1.Text), 2)
'vezmu první 2 znaky z datum ve formátu 04.02.12 ve formátu text(string)

Cells(nasel, CInt(Label2.Caption) + 1) = "našel jsem"
'a teď si najdu buňku s parametry nasel(7) a label2(4)+1
'plus 1, protože datumy mi začínají od buňky B1 a ne A1, a doplním do buňky text "našel jsem" :)

End sub