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

Příspěvky uživatele

Hoj lidi potřeboval bych pomoci s otočením listu viz obrázek mam to, jak Japonec z prava do leva netuším, co jsem zmáčknul.

Hoj kuci a holky,
vím že toto sem asi nepatří, ale po několika strávených hodinách vyhledáváním na netu, mi to nedá a obracím se s prosbou o pomoc. Je to dotaz na Access, který se teprve učím a narazil jsem na jeden problémeček. Mám tabulku klient, úvěry a třeba pojištění. Potřeboval bych, aby se mi to pojištění a úvěry zobrazovali jako vnořené tabulky, ale já krčit rameny, bo nevím jak to splácat dohromady. Vzorek v příloze. Předem velký DÍÍÍÍÍÍÍÍÍÍKKKKKKKKKKKKKKKK

jj

tak nic už jsem na to došel

Hoj lidičkové zase potřebuji pomoc. Tak si otevřu Excel a chci začít něco šmudlit, ale já koukám, že se mi něco pokakalo. když najedu do pravého dolního rohu, kde by měl být malí čtvereček a po najetí by se mi měl změnit na křížeček tak tam není nichč. Takže nemůžu roztáhnout vzorec do sousedních buněk. neví někdo, co se to pokakalo a kam sáhnout, aby mi to zase fachčilo?

díky kucí za rady, ale už je to vyřešeno

Pro vyhledání poslední obsazené bunky pouzij:


Cells(Rows.Count, "A").End(xlUp).Row ' Ve sloupci A

pokud tedy nemáš někde v tom sloupci prázdné buňky toto začne od konce listu směrem nahoru hledat první obsazenou buňku (pokud se tedy nepletu).

Hoj lidičkové,
netušíte někdo kde dělám chybu? Mám tento kód:

Dim posledniSloupec
posledniSloupec = Worksheets("vyrizene_uvery").Cells(6, Columns.Count).End(xlToLeft).Column
Dim oblast As Range
Set oblast = Worksheets("vyrizene_uvery").Range("kl_1_vyrizeneUvery").Offset(14, posledniSloupec)
Dim kl_1_vyrizeneUvery() As Variant
kl_1_vyrizeneUveryPole = Worksheets("vyrizene_uvery").Range("B6", Cells(oblast.Row, oblast.Column))

Nemohu se dopátrat toho jak nahraji do dvourozměrného pole oblast buněk, tak aby na indexu(i) arr(i,y) byly řádky a na indexu (y) byly sloupce

Hoj machři,
chtěl jsem se zeptat když mám v listu událost BeforeDoubleClick z které volám formulář, jak si předám a hodnotu bunky z které bylo toto vyvoláno?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
set aktivniBunka=Target
Form.Show



Public aktivniBunka As Range
=============================================
Private Sub ListBox1_Click()

Worksheets("data").Cells(aktivniBunka.Row, aktivniBunka.Column).Value = ListBox1.Column(1)
Worksheets("data").Cells(aktivniBunka.Row + 1, aktivniBunka.Column).Select
Worksheets("data").Cells(aktivniBunka.Row, aktivniBunka.Column).Value = ListBox1.Column(0)
Worksheets("data_klient").Cells(aktivniBunka.Row + 1, aktivniBunka.Column).Select
Unload Me
End Sub

Pro někoho blbost.

Tak nic vyřešeno

Hups někam mi odešla příloha
Spíš nejde nahrát
Do jaké velikosti se dá náhrát příloha?

No nic tady je odkaz:
https://ulozto.cz/!dw8kpd8UQp4Y/psc-5-zip

Hoj exceláci,
chtěl byc Vás požádat o pomoc s následujícím porblémečkem: mám seznam psč, k tomu jsem použil nějaké kódy z tohoto fóra (mimochodem díky). Ale při změně textboxu na vyhledání mi nějak přetečou pole. Pokud bych mohl požádat tak i o vysvětlení. Moooooc dík.

hoj vsichni
chtel bych pozadat o pomoc potreboval bych makro, ktere mi usnadni praci se zmenou retezce takto:
ve sloupci A mam tyto retezce:

kl_1_uverujiciBanka_1 = Worksheets("vyrizene_uvery").Range("kl_1_uverujiciBanka_1").Value

a ja je poterbuji otocit takto:

Worksheets("vyrizene_uvery").Range("kl_1_uverujiciBanka_1").Value=kl_1_uverujiciBanka_1

Dekuji predem za pomoc.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje