Příspěvky uživatele
< návrat zpět
Tak buď dělám něco špatně, nebo je to to samé. Spočítá všechny řádky. Potřebuji počítat od prvního volného řádku. Data přidávám taky od prvního volného řádku.
' Počet nových položek, řídí se podle sloupece A:A
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3
MsgBox "Zapsáno " & Pocet & " nových položek do Sestavy.", vbInformation
Spočítá mi to ale všechny i se starými položkami
Ahoj.
Přátelé řeším MsgBox, který by mi vypsal, kolik jsem importem přidal, (řádků) do tabulky
Dokonce se mi i případně v E2 zobrazuje počet stávajících řádků v tabulce.
Lugr děkuji, naved jsi mi na dobrou cestu.
Vložil jsem tam
Range("oblast").NumberFormat = "# ##0"
a mám co potřebuji. Díky
Ladys napsal/a:
Zdravím,
Základem je událostní procedura v ThisWorkbook, konkrétně Workbook_SheetChange, kde se dá odchytit změna v buňce.
Šlo by to udělat podobně i pro modul listu (V tom případě by šlo vynechat parametr Sh a řádek If Sh.name = "List1"). Viz příloha.Příloha: 54093_data_2.zip (18kB, staženo 1x)
Supr funguje, jen jsem požadoval sloupec a ne řádek. Nevadí to jsem si už upravil. Děkuji moc
Omlouvám se všem. Nechci spamovat příspěvek, odhlásilo mi to zde a příspěvěk se mi vložil jako Anonym. Proto vkládám znova s přílohou
Mistři svého oboru. Mám takovou věc. Prosím nekamenovat :-)
Mám soubor, kde se zapisují data a mám nastaveno automatické ukládání. Pokud je dat málo, je vše ok, ale pokud soubor je velký zdržuje to. Šlo by vyřešit aby se mi ukládal automaticky jen po zaškrtnutí formuláře (tlačítka)?
Může hlídat každou změnu, nebo jen změnu ve sloupci D
Moc a moc díky.
Lugr napsal/a:
A když změníš
toto
.NumberFormat = "@"
na toto
.NumberFormat = "# ##0,00"
Ostatní sloupce potřebuji ponechat ve stávajícím formátu (změna by se měla týkat jen sloupce Q
Hezký večer mistři.
Bylo by možné upravit tuto část kodu,kdy načítám data ale
sloupec Q (data se načítají od 4 řádku)bych potřeboval v číselném formátu a ne v textovém? Děkuji.
With wssoucty.Range("A4").Resize(r, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A4,1)"
.NumberFormat = "@"
.Value2 = .Value2
End With
Supr, Díky
Potřeboval bych upravit zápis tak, aby se importovaná data zapsali pod data, která již v souboru jsou. Tedy nic nemazat ale vkopírovat od prvního volného řádku.
With wsData.Range("A2").Resize(R, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A2,1)"
.NumberFormat = "@"
.Value2 = .Value2
End With
Uživatelské menu
\nFormulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články