Příspěvky uživatele

Tahle procedura ulozena v modulu prislusneho listu zajisti to, co pozadujes...
Private Sub Worksheet_Change(ByVal Target As Range)

Set bunka = Intersect(Target, Range("A:A"))
If bunka = "r" Then
MsgBox "Vyplň ještě buňku ve sloupci 'C' na řádku: " & Target.Row, vbMsgBoxSetForegroun
End If

End Sub

zdravim,
nevidim duvod, proc by neslo nacist data ze skryteho listu, popr. jde list zobrazit a pak zase skryt
pokud bude skryty list2, slo by to takto:
Public Sub hiddensheet()
'Worksheets("list2").Visible = True

Worksheets("list1").Range("a1") = Worksheets("list2").Range("a1")

'Worksheets("list2").Visible = False
End Sub

Rozumim,
sel by u hrace A pouzit tento vzorec:
=svyhledat("A";a1:B10;2;nepravda)-svyhledat("A";D1:E10;2;nepravda), kde

- '"A"' je jméno (může být adresa na bunku, napr A1),
- 'a1:b10' je rozsah prvni tabulky/seznamu (prvni sloupec musi byt ten se jmeny)
- '2' je číslo sloupce, ve kterém se nacházejí body
- 'd1:E10' je je rozsah druhe tabulky/seznamu (prvni sloupec musi byt ten se jmeny)
- 'nepravda' znamená, že musí být vyhledána přesně daná hodnota/jméno

...klidne upravim primo v souboru poslanem na e-mail

Zdravím,
momentalně je server ulozto přetížený, takže soubor nestáhnu, ale myslím, že pro váš účel perfektně poslouží funkce SVYHLEDAT (angl. VLOOKUP), pokud ovšem ve jmenném seznamu nemáte duplicity!

Rozumim,
verim, ze tohle zvladnete upravit, staci si uvedomit, jak vypada struktura funkce KDYŽ.

=KDYŽ(podminka;ano;ne)

Váš problém je tedy v části NE, kterou musíte upravit - kdyby to preci jen nešlo, dejte vědět, ale myslím, že je to dobrá cesta k pozorumění excelu :-)

Dobrý den,

v přiloženém souboru najdete řešení provedené pomocí funkce KDYŽ, A.
Snad to je to, co jste chtěl.
Přeji mnoho úspěchů ve škole

ahoj,
v tomto pripade nejde pouzit vzorcu, tak pouzij makro.

ve VBA Editoru vloz do modulu konkretniho listu tento kod:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$1" Then
If IsNumeric(Range("b1")) = True Then
Range("a1") = Range("a1") + Range("b1")
Else
Exit Sub
End If
End If
End Sub

Nejak si nedovedu predstavit, co presne potrebujes - bylo by asi dobry prilozit nejakej priklad...

1) seznam pomocí ověření neumožňuje (aspon co vim ja) zvýšit počet zobrazených možností (standardne je 8) - moznost je udelat si vlastni formular, kde lze tento pocest zvysit pomoci vlastnosti: ListRows

2) idealni reseni by byl vlastni formular s naprogramovanymi tlacitky - coz by nebylo nijak zvlast tezke, jen je potreba presne vedet, co to ma delat

Jde to.
Je nutné označit vše, co chceš seřadit (všechny sloupce a řádky (s hlavickou nebo bez ni).
Potom (ve verzi 2003, jak je to ve 2007 nevim) dáš Data/Seřadit a v dialogu si zvolíš podle jakého sloupce chceš řadit, jesti vzestupně nebo sestupně a jestli je to s hlavičkou nebo bez...

ahoj,

napsat takove makro nebude tezke, problem ale bude s tim, kdy se takova procedura spusti.
Lze to spustit ruzne: napr. pri otevreni sesitu, pri zmene nejake bunky, pred zavrenim sesitu nebo treba na kliknuti...je toho hodne, co se da pouzit, jen je potreba vedet, k cemu to bude slouzit...

Pokud bys ty hodnoty zapisovat treba do sloupce D od druheho radku (prvni bude asi nejaka hlavicka)

tak by to slo takhle:

Cells(Application.WorksheetFunction.CountA(Range("D:D")) + 1, 4) = Me.TextBox1.Value

predpoklada to ale, ze ve sloupci D nebudes mit zadne prazdne bunky, resp, ze ta prvni prazda bude ta, kam se zapise hodnota z formulare

Tak uz jsem to pochopil - to bylo vycerpavajici vysvetleni :).

Je to strasne jednoduchy - v nastaveni commandbuttonu (uloz) jen pridas jeden radek, takze bude vypadat takhle:
(pokud uložíš 'nic', tak se vloží taky 'nic' do zvolené buňky)

Private Sub CommandButton1_Click()

Range("e3") = Me.TextBox1.Value

Unload UserForm1
End Sub

snad je to to, co jsi chtel :)

No, asi by to chtelo trosku vic vysvetlit, co bys potreboval. At to ctu, jak to ctu, nedava mi to moc smysl. Určitě to bude jednoduchý, jen vědět, co to má dělat...(mozna by se hodila i ukazka)

1) Textbox je na formulari?
2) Má se obsah bunky ulozit do toho textboxu?
3) Štítek textboxu je popisek?

Ještě mě napadlo, že popisek může být i na listu (sice mi uniká význam takovéhoto popisku, ale budiž). Lze k němu přistoupit takto:

Sub popisek()

ActiveSheet.Shapes("Label1").Select
Selection.Text = "kokot"

End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje