Tak hoď přílohu, upravíme to.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Počet přidaných řádků
Ty si proste génius. Vyriešil si to aj bez prílohy.citovat
MS Excel
Téma: Počet přidaných řádků 
Zaslal/a junis 16.12.2022 19:40
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.
' 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žkamicitovat
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žkamicitovat
POCET = Application.WorksheetFunction.Counta(wsIdata.Range("A:A"))
MsgBox "Zapsáno " & POCET & " nových položek do Sestavy.", vbInformationcitovat
MsgBox "Zapsáno " & POCET & " nových položek do Sestavy.", vbInformationcitovat
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.citovat
To samé to rozhodně není. Ty máš číslo posledního obsazeného řádku ve sloupci "A" mínus 3, ale já jsem ti poslal počet obsazených řádků ve sloupci "A".
Pošli pořádnou přílohu s kompletním kódem, část kódu je k ničemu!citovat
Pošli pořádnou přílohu s kompletním kódem, část kódu je k ničemu!citovat
Tak se mi to povedlo rozchodit. Asi by to šlo i jinak, ale funguje.
Před načtení jsem dal
' Počet nových položek, před načtením podle sloupece A:A
Pocet1 = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3
po načtení
' Počet nových položek, po načtení A:A
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3 - Pocet1
' MsgBox hlášení
MsgBox "Import byl proveden." & vbNewLine & "Tímto je přidáno " & Pocet & " nových položek do Sestavy.", vbInformationcitovat
Před načtení jsem dal
' Počet nových položek, před načtením podle sloupece A:A
Pocet1 = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3
po načtení
' Počet nových položek, po načtení A:A
Pocet = wsIdata.Cells(Rows.Count, "A").End(xlUp).Row - 3 - Pocet1
' MsgBox hlášení
MsgBox "Import byl proveden." & vbNewLine & "Tímto je přidáno " & Pocet & " nových položek do Sestavy.", vbInformationcitovat
junis napsal/a:
Tak se mi to povedlo rozchodit. Asi by to šlo i jinak, ale funguje.
Ty si proste génius. Vyriešil si to aj bez prílohy.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Google disk - stažení souboru s příponou .xlsm
OB • 22.3. 15:59
Rozdiel office 2016 alebo 2019
r13 • 22.3. 15:49
Rozdiel office 2016 alebo 2019
jano1 • 22.3. 9:52
Barva aktivní buňky
stusna • 22.3. 8:52
Tabulka - zamknout list
Alfan • 21.3. 8:48
Tabulka - zamknout list
r13 • 21.3. 8:44
Tabulka - zamknout list
Alfan • 21.3. 7:28
RSS nejnovější články