Anonymní profil clavien – Programujte.com

Díky "zlz", vyřešeno

Range("a1").Value = Cells(38, 7).Address(True, False)

pokud to budeš dělat ve VB6 tak si oprav 5. řádek a vymaž  "Math." před slovem Round

Public Class Form1
    Dim poradi As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       >>>>>>>>>>>>>>>>> poradi = Math.Round(Rnd(1) * 10, 0)
        TextBox23.Text = poradi
        For i = 1 To 10
            If i = poradi Then
                Me.Controls("textbox" & i).Text = poradi
            End If
        Next

    End Sub
End Class

Tady máš to od JoDika, trochu upravené na funkční ( děláno ve VisualBasicStudio 2010 )

Public Class Form1
    Dim poradi As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        poradi = Math.Round(Rnd(1) * 10, 0)
        TextBox23.Text = poradi
        For i = 1 To 10
            If i = poradi Then
                Me.Controls("textbox" & i).Text = poradi
            End If
        Next

    End Sub
End Class

#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

#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...?? :(

#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.????

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??