@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.
Je možné, že v tom příkladu máte chybu, a že máte větší objednávky zboží než příjmy?
Pořád se tím prolouskávám.
Já jsem pořád v mínusu.
Přemýšlím jak to celé předělat, přijde mi to složitý na takovou banalitu, ale zatím nevím jak.
A to tam někdo vpisuje ručně nebo to exportujete z nějakého jiného programu? Objednávky mají datum vzniku?
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.