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

Příspěvky uživatele

no, smazat ten textbox po varovnym msgboxu je logicky: TextBox6=""

tlacitko, kterym potvrzujete zadana data ve formulari by mohlo mit takovyto kod: Private Sub cmbOK_Click()
Dim Duplicita As String
On Error Resume Next
Duplicita = List1.Range("B:B").Find(CVar(UserForm1.txtRC.Text), , , xlWhole).Address
If Err.Number = 91 Then
MsgBox "bez duplicity"
'...dalsi kod
Unload Me
Exit Sub
End If
MsgBox "Tato hodnota jiz v seznamu existuje na adrese: " & Duplicita
Unload Me
End Sub

nejak jsem neobjevil vlastnost, ktera by udala cislo listu, tak jsem pouzil cyklus:Sub sheet()
For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
Sheets(i - 1).Protect
Exit Sub
End If
Next i
End Sub

mozna takto

Workbooks.Open "D:\Leitz 2010\Bestellung Folder 2010\B.xls"

S timto vyvstavaji dalsi otazky.
Aby bylo mozne zkopirovat radek, je nutne vedet, ktera bunka v radku bude editovana jako posledni (v jakem sloupci), aby byl zkopirovan kompletni radek.
Je nutne rozkopirovat (1x na zacatku) vsechny radky tabulky (ne pouze 4. radek?)
Prilozte nejaky vzor, protoze takhle "nasucho" se jen velmi tezko dela...

slo by to takto:Sub vyhledej()
CO = Range("c1").Value
On Error Resume Next
Hledat = Range("a:a").Find(CO, , , xlWhole).Address
If Err.Number = 91 Then
MsgBox "NENALEZENO"
Exit Sub
End If
MsgBox "Hodnota nalezena na adrese: " & Hledat
End Sub

Mozna si nerozumime v tom, co myslime pod pojmem formular. Ja si ho nepredstavuji jako oblast bunek, ktera nejak naformatovana a ma nejake zahlavi - jednou z moznosti, co bych oznacil slovem formular je uzivatelsky formular vytvoreny ve Visual Basic Editoru.
Tedy - je mozne upravit vámi vytvoreny formular, ktery si vytvorite podle toho, jak ho budete potrebovat a co budete chtit zapisovat do bunek v listu a bude mozne udelat i ono "overeni", ze je nekdo opravnen menit jine nez posledni radky, ale ten formular, tedy okno, ktere se objevi a slouzi pro zadavani hodnot, musi nejdriv existovat! A ten zkratka v prilozenem sesitu neni...

Je to velmi jednoduche, ve vase prokladu neni scitana oblast (sloupec D) ulozena jako hodnoty, takze vzorec secte jen ty hodnoty, ktere jsou cislem (ostatni jsou text)

Zdravim,
funkce jako takove neumi kopirovat, ani vkladat hodnoty. Umi pouze vyhodnotit vstupni udaje a zobrazit hodnotu.
K vasim ucelum bude tedy vice vyhovovat nejake makro, ktere muze "zkontrolovat" vsechny bunky ve sloupci B a rozkopirovat je do prislusnych listu.
Otazkou je, kdy se ma takove makro spoustet - jestli ho budete spoustet sama tlacitkem nebo se ma spustit pri nejake konkretni akci - to je potreba si promyslet a pak nebude problem nejake takove makro napsat.

Pokud vim tak, na ribbonu budes ikonu hledat tezko - ja jsem si ji dal na osobni listu.

Uvodni kulate tlacitko/Moznosti aplikace Excel/Prizpusobit/Vsechny prikazy/Fotoaparat

tohle by mohl byt posledni obrazek na listu1:
list1.pictures(list1.pictures.count)

omlouvam se, byla to moje chyba, zapomnel jsem na vlastnost .row - takze tady je uz doufam spravny radek:
worksheets("2010").cells(cells(65000,1).end(xlup).row,1)+1

zkuste prilozit ten sesit, takhle bez dat se dost tezko odhaluji chyby...

vzorcem to bohuzel nepujde, takze makro.
tento kod vlozte do modulu prislusneho listu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("a2:a3") = Target
End If

If Target.Address = "$A$2" Then
Range("a1,a3") = Target
End If

If Target.Address = "$A$3" Then
Range("a1:a2") = Target
End If
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje