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

Příspěvky uživatele

Tak?

=Hárok2!D2&" "&Hárok2!F2
nebo
=CONCATENATE(Hárok2!D2;" ";Hárok2!F2)

=D2&" "&F2

nebo

=CONCATENATE(D2;" ";F2)

@JoKe
teoreticky stačí toto:

=POČET(B1:D1)

ale on chce makro.

@Zumi
zkus to jednoduše takhle:


Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

SLB = wsDATA.Cells(Rows.Count, "B").End(xlUp).Row
SLC = wsDATA.Cells(Rows.Count, "C").End(xlUp).Row
SLD = wsDATA.Cells(Rows.Count, "D").End(xlUp).Row

RADEK = Application.WorksheetFunction.Max(SLB, SLC, SLD)

wsDATA.Range("A1").Resize(RADEK).Formula = "=IF(COUNT(B2:D2)=0,"""",COUNT(B2:D2))"
wsDATA.Range("A1").Resize(RADEK).Value = wsDATA.Range("A1").Resize(RADEK).Value

Tak?

Ještě oprava chyb.

Ještě jsem to poladil, když bylo víc času.

Třeba se to někomu hodí.

Jen tak narychlo.

Moc děkuji

Ahoj kluci,

prosím o radu.
Udělal jsem si makro na uložení souboru.
Otevře se mi předvyplněné Dialogové okno a dál jsem se zasekl. Nevím jak mu nastavit, aby si název a typ souboru vzal z Dialogového okna.

Děkuji za pomoc

Tak si list zamkni a vkládej hodnotu pomocí VBA.

Je to super, moc děkuji.

Ahoj všem,

mám zase jednu prosbu.

Vytvořil jsem si UserForm PDF Creator. Potřeboval bych poradit s kódem, kde bych si mohl vybrat které listy budou v soustavě PDF a zdali se má soubor PDF po vytvoření otevřít k náhledu.

Děkuji.

@Nosal

Nešlo by poslat originální excelovskou tabulku od dodavatele. Třeba s pozměněnými daty?

Mě nejde do hlavy, že by ty tabulky byly takhle poházené po listě.

Tak jsem něco vypotil. Ještě to není hotové, je potřeba ošetřit chyby při zadávání atd., ale mohlo by to fungovat.

Snad jsem to pochopil dobře. Nějak se rozkoukejte a případně mi řekněte jestli v tom mám pokračovat nebo ne. Je to všechno jinak.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje